count.asp
＜ html ＞
＜ head ＞
＜ meta http-equiv="Content-Type"
content="text/html; charset=gb2312" ＞
＜title＞隨風(fēng)起舞之千變計數(shù)器＜/title＞
＜/head＞
＜body＞
＜p＞
＜%
dim out
countfile=server.mappath("aspcount.txt")
set objfile=server.createobject("scripting.filesystemobject")

' 定義一個服務(wù)器組件.
set out=objfile.opentextfile(countfile,1,false,false)
counter=out.readline

' 讀取數(shù)據(jù).
out.close
set objfile=server.createobject("scripting.filesystemobject")
set out=objfile.createtextfile(countfile,trUE,FALSE)
application.lock

' 暫時鎖定.
counter=counter+1

' 訪客次數(shù)加1.
out.writeline(counter)

' 寫入數(shù)據(jù).
application.unlock

' 解鎖.
out.close
%＞
＜script language="javascript"＞
function countdisp(countvar){
var countvar1="000000"+countvar;

' 實現(xiàn)隨機(jī)顯示,不足6位以0補(bǔ)全.
var howFar1=countvar1.length;
countvar1=countvar1.substring(howFar1, howFar1-1)
var index=""+Math.floor(Math.random()*10);
if (index=="10"){
index="0"};
for (var icount=0;icount＜ 6;icount++＝{
var g=countvar1.substring(icount,icount+1);
document.images[icount].src="http://
localhost/images/"+index+g+".gif";
}
＝
＜/script＞＜/p＞
＜!--預(yù)載圖像數(shù)組--＞
您是第＜img src="http://localhost/images/00.gif" height=20 width=20＞
＜img src="http://localhost/images/00.gif" height=20 width=20＞
＜img src="http://localhost/images/00.gif"height=20 width=20＞
＜img src="http://localhost/images/00.gif"height=20 width=20＞
＜img src="http://localhost/images/00.gif"height=20 width=20＞
＜img src="http://localhost/images/00.gif"height=20 width=20＞位訪問者！
＜script language="javascript"＞
count(counter);

[1]

最新評論