如何随机显示图片计数器?_编程10000问

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")<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

' 定义一个服务器组件.
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]

时间: 2024-10-29 15:07:24

如何随机显示图片计数器?_编程10000问的相关文章

如何按时间显示最新标志_编程10000问

<%mytime=rs("time") '数据库中保存时间nowtime=now() '当前时间if datediff("d",mytime,nowtime)<1 then '比较当前时间和数据库中时间,如相差小于1,即显示图片new.gif%><img src="images/new.gif"><%end if%>

如何制作一个防止多次刷新计数的图片计数器?_编程10000问

请问如何做一个专业的图片计数器? <% countlong=8     ' 定义计数器位数. On Error Resume Next     ' 忽略所有的错误. count=server.mappath(count.txt) set cou = server.createobject(scripting.filesystemobject) set out=cou.opentextfile(count,1,false,false) counter=out.readline out.close

如何显示随机信息?_编程10000问

<html> <head> <title>千花飞舞之信息随机显示</title> </head> <body> <% randomize randomnum=int(rnd*6)+1 ' 随机发生次数. select CASE randomnum CASE 1%> 我最喜爱的出版社--中国水利水电出版社<br><?xml:namespace prefix = o ns = "urn:schema

如何使图象随机显示?_编程10000问

<% dim p,ppic,dpic ppic=12 randomize p=Int((ppic*rnd)+1) dpic="chunfeng/images/"&p&".gif" %>  <?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /> [1]

如何用数据库制作一个多用户版的计数器?_编程10000问

count.asp<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /> ' 计数器的核心程序. <%Set conn = Server.CreateObject("ADODB.Connection")dbpath=server.MapPath("count.mdb")conn.open "driver={Microsof

如何在ASP里显示进度条?_编程10000问

response.buffer=true ' 应用缓存技术. dim lostnum ' 防止dmax过大而dstep过小. dim shownum delayshow(dstep,dmax) sub delayshow(dstep,dmax) ' dmax表示要处理多少dmax(步)才能完成全过程,dstep表示已处理的占全过程的大致百分比.  <?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office

如何做一个计数器并让人家申请使用?_编程10000问

第一步,创建一个计数器(最简单的数字计数器,不是图片式的): <% @language="vbscript" %>  <%  set fsFilesys=CreateObject("Scripting.FileSystemObject") set myText=fsFilesys.OpenTextFile(Server.MapPath("/count")&"\count.txt")count=myTe

如何检测用户第一次访问我的网站并显示友好信息?_编程10000问

< %@ LANGUAGE="VBscript" % >< % RequestName = Request.Form("Name")RequestLeaveMeAlone = Request.Form("LeaveMeAlone")If RequestName <  >"" or RequestLeaveMeAlone <  >"" then<?xml:nam

如何显示一个文本文件?_编程10000问

 Write(StrING) WriteLine(StrING) WriteBlankLines(LINES)  <?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /> 〈html〉 〈head〉 〈http-equiv="Content-Type" content="text/html; charset=gb2312"〉 〈title〉