欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

网络精英计数器源程序

程序员文章站 2022-05-09 20:51:26
使用了imagelib!     <%     site_id=reque...
使用了imagelib!
     <%
     site_id=request.querystring("site_id")
     if isempty(site_id) then
     response.end
     end if
     
     set sistema = createobject("scripting.filesystemobject")
     set ilib = server.createobject("overpower.imagelib")
     path=server.mappath("../保存计数文件的路径/")
     counterfile=path & "count_"& site_id &".txt"
     contagem = 0
     if sistema.fileexists(counterfile) then
     set arquivo = sistema.getfile(counterfile)
     set texto = arquivo.openastextstream(1, -2)
     contagem = texto.readline
     texto.close
     end if
     contagem = contagem + 1
     
     set texto = sistema.createtextfile(counterfile, true, false)
     texto.writeline contagem
     texto.close
     
     texto = contagem
     if contagem > 1 then texto = texto
     textolen=len(texto)
     for i=1 to 8-textolen
     texto="0" & texto
     next
     
     ilib.fontcolor = "#00ff00" 字体色
     ilib.brushcolor = "#000000" 背景色
     ilib.fontface = "verdana"
     ilib.fontface = "checkers"
     ilib.fontsize = 8
     ilib.fontbold = false
     ilib.width = ilib.gettextwidth(texto)+5
     ilib.height = ilib.gettextheight(texto)+5
     ilib.pencolor = "#307c3b" 边框色
     ilib.box 1,1,ilib.width,ilib.height
     ilib.textout texto,3,3
     
     ilib.textout "",ilib.width/2 - tamanho/2,10
     
     ilib.picturebinarywrite 2, 0, ""
     
     set sistema =nothing
     set ilib =nothing
     set arquivo = nothing
     set texto = nothing
     %>
     本计数器使用了imagelib组件,在使用程序前需要先注册该组件;
     假如说你将文件保存为count.,然后在与count.asp,然后通过下面代码引用本计数器: