网络精英计数器源程序 -pc6资讯

您的位置：首页 → 网页设计 → ASP实例 → 网络精英计数器源程序

网络精英计数器源程序 时间：2004/11/7 2:51:00来源：本站整理作者：蓝点我要评论(0): 使用了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.asp,然后在与count.asp，然后通过下面代码引用本计数器：





     你也可以直接引用本站的计数器程序，代码如下：




src="http://www.chinanetboy.com/scripts/count.asp?site_id=你的域名" border=0>





     不过使用之前请发个email给我，免得我在清理的时候将你的数据删了：）

     计数器程序代码请看这里http://www.chinanetboy.com/website/read.asp?id=123；

文章评论

查看所有0条评论>>

热门文章 没有查询到任何记录。