繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 虹雨的功能较全的计数程序
- ASP
- BytesToBstr获取的源码转换为中文的代码
- PostHttpPage用asp是实现模拟登录效果的代码
- asp下实现UrlEncoding转换编码的代码
- GetBody asp实现截取字符串的代码
- asp之GetArray提取链接地址，以$Array$分隔的代码
- DefiniteUrl asp将相对地址转换为绝对地址的代码
- ReplaceSaveRemoteFile 替换、保存远程图片 的代码
- ReSaveRemoteFile函数之asp实现查找文件保存替换的代码
- FormatRemoteUrl函数之asp实现格式化成当前网站完整的URL-将相对地址转换为绝对地址的代码
- ReplaceTrim 函数之asp实现过滤掉字符中所有的tab和回车和换行的代码
- CheckFile函数之asp实现检查某一文件是否存在的代码
- SaveRemoteFile函数之asp实现保存远程的文件到本地的代码
- FpHtmlEnCode 函数之标题过滤特殊符号的代码
- GetPaing 函数之asp采集函数中用到的获取分页的代码
- ScriptHtml 函数之过滤html标记的asp代码
- asp实现检查目录是否存在与建立目录的函数
- ShowPage 显示“上一页 下一页”等信息的封装代码
- JoinChar 向地址中加入 ? 或 & 用于实现传参
- CreateKeyWord asp实现的由给定的字符串生成关键字的代码
- Server.Execute方法执行指定的ASP程序
ASP 中的 虹雨的功能较全的计数程序
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 218 ::
收藏到网摘: n/a
程序原代码：
<%
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="/upload/tech/20091103/20091103102544_d9fc5b73a8d78fad3d6dffe419384e70.gif">"
next
Response.Write "
?????"
for i=1 to 4-len(dnt)
Response.Write "<img src="/upload/tech/20091103/20091103102544_9c838d2e45b2ad1094d42f4ef36764f6.gif">"
next
for i=1 to len(dnt)
Response.Write "<img src="/upload/tech/20091103/20091103102545_b73ce398c39f506af761d2277d853a92.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="/upload/tech/20091103/20091103102544_9c838d2e45b2ad1094d42f4ef36764f6.gif">"
for j=1 to len(i)
Response.Write "<img src="/upload/tech/20091103/20091103102546_5807a685d1a9ab3b599035bc566ce2b9.gif">"
next
Response.Write "');"%>
评论 (0) All
