虹雨的功能较全的计数程序
2000-11-01 10:55:37 来源:WEB开发网核心提示:这个程序难一点,特点在于,虹雨的功能较全的计数程序,因为他是分别的传送每个图片,所以不像CGI产生的图片那样大,而且图片可以重复的利用所以较率高速度快,只是没有javaScript就不行了
这个程序难一点,特点在于,因为他是分别的传送每个图片,所以不像CGI产生的图片那样大。而且图片可以重复的利用所以较率高速度快。只是没有javaScript就不行了。
程序原代码:
<%
imgurl="http://xxx.xxx.xxx/xxxx/" '图片路径
imgname="xxx" '图片名字
cnt=0
dnt=0
s=Request.ServerVariables("path_translated")
cName = left(s,instrrev(s,"\",len(s)))&"chy.cnt"
dName = left(s,instrrev(s,"\",len(s)))&"dchy.cnt"
Set objfso = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile = objFSO.OpenTextFile(cName,1,True)
If Not objCountFile.AtEndOfStream Then cnt=CLng(objCountFile.ReadAll)
objCountFile.Close
Set objCountFile=Nothing
cnt=cnt+1
Set objCountFile=objFSO.CreateTextFile(cName,True)
objCountFile.Write cnt
objCountFile.Close
Set objCountFile=Nothing
if application("dntime")<=cint(hour(time())) then
Set objCountFile = objFSO.OpenTextFile(dName,1,True)
If Not objCountFile.AtEndOfStream Then dnt=CLng(objCountFile.ReadAll)
objCountFile.Close
Set objCountFile=Nothing
end if
application("dntime")=cint(hour(time()))
dnt=dnt+1
Set objCountFile=objFSO.CreateTextFile(dName,True)
objCountFile.Write dnt
objCountFile.Close
Set objCountFile=Nothing
Set objFSO = Nothing
Response.Write "document.write('99?7?10???"
for i=1 to len(cnt)
Response.Write "<img src=http://www.cncms.com/"imgurl&imgname&Mid(cnt,i,1)&".gif>"
next
Response.Write "
?????"
for i=1 to 4-len(dnt)
Response.Write "<img src=http://www.cncms.com/"&imgurl&"0.gif>"
next
for i=1 to len(dnt)
Response.Write "<img src=http://www.cncms.com/"imgurl&imgname&Mid(dnt,i,1)&".gif>"
next
t=(cint(day(date()))*24+cint(hour(time())))*60+cint(minute(time()))
k=0
i=1
y=0
Do While application("zxip"&i)<>""
if application("zxip"&i)=Request.ServerVariables("REMOTE_ADDR") then
application("zxsj"&i)=t
y=1
end if
if t-application("zxsj"&i)>9 or t<application("zxsj"&i) then
k=k+1
else
if k>0 then
application.lock
application("zxip"&i-k)=application("zxip"&i)
application("zxsj"&i-k)=application("zxsj"&i)
application.unlock
end if
end if
if k>0 then
application.lock
application("zxip"&i)=""
application.unlock
end if
i=i+1
loop
if y=0 then
application("zxip"&i)=Request.ServerVariables("REMOTE_ADDR")
application("zxsj"&i)=t
else
i=i-1
end if
Response.Write " ?????"
if len(i)=1 then Response.Write "<img src=http://www.cncms.com/"&imgurl&"0.gif>"
for j=1 to len(i)
Response.Write "<img src=http://www.cncms.com/"imgurl&imgname&Mid(i,j,1)&".gif>"
next
Response.Write "');"%>
程序原代码:
<%
imgurl="http://xxx.xxx.xxx/xxxx/" '图片路径
imgname="xxx" '图片名字
cnt=0
dnt=0
s=Request.ServerVariables("path_translated")
cName = left(s,instrrev(s,"\",len(s)))&"chy.cnt"
dName = left(s,instrrev(s,"\",len(s)))&"dchy.cnt"
Set objfso = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile = objFSO.OpenTextFile(cName,1,True)
If Not objCountFile.AtEndOfStream Then cnt=CLng(objCountFile.ReadAll)
objCountFile.Close
Set objCountFile=Nothing
cnt=cnt+1
Set objCountFile=objFSO.CreateTextFile(cName,True)
objCountFile.Write cnt
objCountFile.Close
Set objCountFile=Nothing
if application("dntime")<=cint(hour(time())) then
Set objCountFile = objFSO.OpenTextFile(dName,1,True)
If Not objCountFile.AtEndOfStream Then dnt=CLng(objCountFile.ReadAll)
objCountFile.Close
Set objCountFile=Nothing
end if
application("dntime")=cint(hour(time()))
dnt=dnt+1
Set objCountFile=objFSO.CreateTextFile(dName,True)
objCountFile.Write dnt
objCountFile.Close
Set objCountFile=Nothing
Set objFSO = Nothing
Response.Write "document.write('99?7?10???"
for i=1 to len(cnt)
Response.Write "<img src=http://www.cncms.com/"imgurl&imgname&Mid(cnt,i,1)&".gif>"
next
Response.Write "
?????"
for i=1 to 4-len(dnt)
Response.Write "<img src=http://www.cncms.com/"&imgurl&"0.gif>"
next
for i=1 to len(dnt)
Response.Write "<img src=http://www.cncms.com/"imgurl&imgname&Mid(dnt,i,1)&".gif>"
next
t=(cint(day(date()))*24+cint(hour(time())))*60+cint(minute(time()))
k=0
i=1
y=0
Do While application("zxip"&i)<>""
if application("zxip"&i)=Request.ServerVariables("REMOTE_ADDR") then
application("zxsj"&i)=t
y=1
end if
if t-application("zxsj"&i)>9 or t<application("zxsj"&i) then
k=k+1
else
if k>0 then
application.lock
application("zxip"&i-k)=application("zxip"&i)
application("zxsj"&i-k)=application("zxsj"&i)
application.unlock
end if
end if
if k>0 then
application.lock
application("zxip"&i)=""
application.unlock
end if
i=i+1
loop
if y=0 then
application("zxip"&i)=Request.ServerVariables("REMOTE_ADDR")
application("zxsj"&i)=t
else
i=i-1
end if
Response.Write " ?????"
if len(i)=1 then Response.Write "<img src=http://www.cncms.com/"&imgurl&"0.gif>"
for j=1 to len(i)
Response.Write "<img src=http://www.cncms.com/"imgurl&imgname&Mid(i,j,1)&".gif>"
next
Response.Write "');"%>
[]
- ››功能最全!网管必备子网划分计算工具!
- ››功能完整的 Google Reader 离线浏览器 Byline 介绍...
- ››功能才是硬道理 色彩风暴图片处理
- ››功能完备 Google Talk新版试用体验
- ››功能区工具栏基本操作——PowerPoint 2007多媒体课...
- ››功能强大桌面便签YNotes新版发布
- ››功能再改进!Foxmail 6.5Beta2发布
- ››功能完善的Java连接池调用实例
- ››功能强大的全新 T-SQL 语法极大地提升了 SQL Serv...
- ››功能丰富的图片浏览软件新宠儿XnView
- ››功能更强:VMware 5.5 Beta发布功能简介
- ››功能增强!最新版Windows Defender下载
更多精彩
赞助商链接