网络精英计数器源程序

使用了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，然后通过下面代码引用本计数器：

<img src="path/count.asp?site_yoursite" border=0>

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

<a href="http://www.chinanetboy.com/" target="_blank" alt="网络精英"><img

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

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

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