文件名称:网站计数器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) 网友评论 |