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=""＞
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="/UploadFiles/2021-04-02/">}
＝
＜/script＞＜/p＞
＜!--预载图像数组--＞
您是第＜img src="/UploadFiles/2021-04-02/00.gif">＜img src="http://localhost/images/00.gif">＜img src="/UploadFiles/2021-04-02/00.gif">＜img src="http://localhost/images/00.gif">＜img src="/UploadFiles/2021-04-02/00.gif">＜img src="http://localhost/images/00.gif">＜script language=""＞
count(counter);
＜/script＞
＜/body＞
＜/html＞
[1]
免责声明：本站文章均来自网站采集或用户投稿，网站不提供任何软件下载或自行开发的软件！ 如有用户或公司发现本站内容信息存在侵权行为，请邮件告知！ 858582#qq.com