如何讓計(jì)數(shù)器只對(duì)新進(jìn)用戶計(jì)數(shù)？
如何讓計(jì)數(shù)器只對(duì)新進(jìn)用戶計(jì)數(shù)？
<script language=vbscript runat=server>
sub application_onstart
filepath=server.mappath("/count")
filename=filepath+"\counter.txt"
set fs=createobject("scripting.filesystemobject")
if not fs.fileexists(filename) then
fs.createtextfile(filename)
set f=fs.getfile(filename)
s=1
Set ts = f.OpenAsTextStream(2, -2)
ts.writeline(cstr(s))
ts.close
else
set f=fs.getfile(filename)
Set ts = f.OpenAsTextStream(1, -2)
s=ts.readline+1
ts.close
end if
application(“visitor”)=s
end sub
sub session_onstart
session.timeout=5
application("visitor ")=application("visitor ")+1
set f=fs.getfile(filename)
Set ts = f.OpenAsTextStream(2, -2)
ts.writeline (cstr(application("visitor ")))
ts.close
end sub
</script>
<%
s=cstr(application("visitor")+10^6)
s=mid(s,2,6)
for i=1 to 6
response.write "<img src='flashdays/liyanbing/images/"
&mid(s,i,1)&".gif' width='18' height='25'>"
next
%>[1]
相關(guān)文章
可以讓程序告訴我詳細(xì)的頁面錯(cuò)誤和數(shù)據(jù)庫連接錯(cuò)誤嗎？
可以讓程序告訴我詳細(xì)的頁面錯(cuò)誤和數(shù)據(jù)庫連接錯(cuò)誤嗎？...2006-11-11
如何判斷電子郵件的地址格式是否正確？...2006-11-11
如何用下拉列表顯示數(shù)據(jù)庫里的內(nèi)容？
如何用下拉列表顯示數(shù)據(jù)庫里的內(nèi)容？...2006-11-11
如何做一個(gè)隨機(jī)密碼產(chǎn)生器？...2006-11-11
如何用表單在線建立目錄？...2006-11-11
如何自動(dòng)更新導(dǎo)航欄？...2006-11-11
如何在網(wǎng)站中插播廣告？...2006-11-11
如何實(shí)現(xiàn)某些頁面只讓特定的用戶瀏覽？...2006-11-11
如何用FileSystemObject組件來做一個(gè)站內(nèi)搜索？
如何用FileSystemObject組件來做一個(gè)站內(nèi)搜索？...2006-11-11
如何判斷URL格式是否符合規(guī)范？...2006-11-11