国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學(xué)院 > 開發(fā)設(shè)計 > 正文

虹雨的功能較全的計數(shù)程序

2019-11-18 22:07:52
字體:
供稿:網(wǎng)友
這個程序難一點,特點在于,因為他是分別的傳送每個圖片,所以不像CGI產(chǎn)生的圖片那樣大。而且圖片可以重復(fù)的利用所以較率高速度快。只是沒有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="imgurl&imgname&Mid(cnt,i,1)&".gif>"
next
Response.Write "
?????"
for i=1 to 4-len(dnt)
Response.Write "<img src="&imgurl&"0.gif>"
next
for i=1 to len(dnt)
Response.Write "<img src="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="&imgurl&"0.gif>"
for j=1 to len(i)
Response.Write "<img src="imgurl&imgname&Mid(i,j,1)&".gif>"
next
Response.Write "');"%>


發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
主站蜘蛛池模板: 平和县| 桦南县| 奇台县| 嘉祥县| 兴海县| 临洮县| 绥棱县| 枣阳市| 河北省| 郑州市| 内乡县| 云龙县| 久治县| 烟台市| 九龙县| 东源县| 长兴县| 师宗县| 华宁县| 万安县| 定州市| 华池县| 崇阳县| 朔州市| 紫阳县| 廊坊市| 澄江县| 温州市| 天镇县| 朝阳县| 泰来县| 抚宁县| 肃南| 鞍山市| 桃江县| 新化县| 淅川县| 手机| 永清县| 巴彦县| 新沂市|