count.asp
< html >
< head >
< meta http-equiv="Content-Type"
content="text/html; charset=gb2312" >
<title>隨風起舞之千變計數器</title>
</head>
<body>
<p>
<%
dim out
countfile=server.mappath("aspcount.txt")
set objfile=server.createobject("scripting.filesystemobject")
' 定義一個伺服器組件.
set out=objfile.opentextfile(countfile,1,false,false)
counter=out.readline
' 讀取資料.
out.close
set objfile=server.createobject("scripting.filesystemobject")
set out=objfile.createtextfile(countfile,trUE,FALSE)
application.lock
' 暫時鎖定.
counter=counter+1
' 訪客次數加1.
out.writeline(counter)
' 寫入資料.
application.unlock
' 解鎖.
out.close
%>
<script language="javascript">
function countdisp(countvar){
var countvar1="000000"+countvar;
' 實現隨機顯示,不足6位以0補全.
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>
<!--預載映像數組-->
您是第<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);
' 調用count()函數,實現計數器的生動影像顯示.
</script>
</body>
</html>
[1]