DNF每日簽到送豪
lol7月神秘商店
LOL黑市亂斗怎么
LOL英雄成就標(biāo)志相關(guān)資訊
本類常用軟件
-
福建農(nóng)村信用社手機(jī)銀行客戶端下載下載量：584204
-
Windows優(yōu)化大師下載量：416896
-
90美女秀(視頻聊天軟件)下載量：366961
-
廣西農(nóng)村信用社手機(jī)銀行客戶端下載下載量：365699
-
快播手機(jī)版下載量：325855
ASP生成靜態(tài)網(wǎng)頁中實(shí)現(xiàn)閱讀次數(shù)的程序?qū)嵗a分享
騎自行車的正確
在校大學(xué)生該如
微信朋友圈怎么下面提供給大家分享的是關(guān)于ASP生成靜態(tài)網(wǎng)頁中實(shí)現(xiàn)閱讀次數(shù)的程序?qū)嵗a，希望能夠幫助到大家。
************************調(diào)用*********************
'* <script language="java script" src="xxx.ASP?max=8"></script>
'*************************************************
Javastr="<div algin='center'>"
<%
max=Request("max") '//計(jì)數(shù)器位數(shù)
If Request.cookies("count")="" Then '//防刷
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set fp=fso.OpenTextFile(Server.MapPath("count.dat")) '//計(jì)數(shù)器統(tǒng)計(jì)文件
countn=fp.Readline
countn=countn+1
Fp.close
Set fp=Nothing
set fp=fso.createtextfile(server.mappath("count.dat"))
fp.Writeline countn
set fp=nothing
set fso=nothing
Response.Cookies("count")=countn
End If
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set fp=fso.OpenTextFile(Server.MapPath("count.dat"))
s=fp.Readline
For n=(max-len(s)) to 1 step -1
%>
javastr=javastr+"<img src=count/0.gif' border=0>" '//計(jì)數(shù)器圖片文件
<%
Next
j=0
For i=(max-len(s)) to max-1
j=j+1
%>
javastr=javastr+"<img src='count/<%=mid(s,j,1)%>.gif' border=0>"
<%
Next
Set fp=Nothing
Set fso=Nothing
javastr=javastr+"</div>"
%>
document.write(javastr)