|
大家好！
今天我想談談一個網頁的計數器問題，有些網站的計數器在用戶刷新一次頁面時，記數值會加1，這樣的計數器是不健全的。如果你的網站搞一些有獎活動，例如，"如果你是第100000個用戶你將得到本站提供的獎品"。
所以，下面給出一個計數器的原碼，同時你要在這個ASP文件下新建一個counter.txt文件，用于存放記數值。
<%
function counts(counterfile)
dim objfso,objts
application.lock '鎖定對象
set objfso=server.createobject("scripting.filesystemobject")
set objts=objfso.opentextfile(server.mappath(counterfile),1,true)
if not objts.atendofstream then '檢查是否到達文件結尾
counts=clng(objts.readline)
end if
counts=counts+1
objts.close
set objts=objfso.opentextfile(server.mappath(counterfile),2,true)
objts.writeline(counts)
objts.close
application.unlock '解除鎖定
end function
if session("counter")=empty then
session("counter")=counts("counter.txt")
end if
%>
<html>
<body>
您是第<%=session("counter")%>位訪客
</body>
</html>
這樣一個完美的計數器就做成了。
|
