网站计数器ASP

时间:2016-03-21 16:41:54
【文件属性】:

文件名称:网站计数器ASP

文件大小:19KB

文件格式:ZIP

更新时间:2016-03-21 16:41:54

计数器

一个简单实用的网页计数器!

<% Const ForReading = 1, ForWriting = 2, ForAppending =3 Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0 dim filepath,fs,f,ts,s filepath=server.mappath("/count") filename=filepath+"\counter.txt" set fs=createobject("scripting.filesystemobject") if fs.fileexists(filename) then set f=fs.getfile(filename) Set ts = f.OpenAsTextStream(ForReading,TristateUseDefault) s=ts.readline+1 ts.close else fs.createtextfile(filename) set f=fs.getfile(filename) s=1 end if '向counter.txt中写数据 Set ts = f.OpenAsTextStream(ForWriting,TristateUseDefault) ts.writeline(cstr(s)) ts.close '显示计数器 s=cstr(s+10000000) s=mid(s,2,7) response.write "您是第" for i=1 to 7 response.write "" next response.write "位访问者!" %>


【文件预览】:
网页增加计数器
----Count()
--------5.gif(1KB)
--------2.gif(1014B)
--------1.gif(1015B)
--------8.gif(1KB)
--------3.gif(1KB)
--------6.gif(1KB)
--------0.gif(1KB)
--------9.gif(1KB)
--------7.gif(1KB)
--------4.gif(1KB)
--------counter.txt(5B)
----jsq.asp(777B)
----index.asp(29KB)

网友评论