如何制作一个防止多次刷新计数的图片计数器？_编程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

　　' 打开count.txt,读出目前计数器的值.

　　if session(in)<>in then

　　' 判断用户是否已进入主页,防止用户刷新或再次来到此页面时计数器再加1.

　　session(in)=in

　　set out = cou.createtextfile(count,true,false)

　　application.lock

　　counter=counter＋1

' 计数器加1 .

　　out.writeline(counter)

　　application.unlock

　　out.close

　　' 建立新文件count.txt并写入加1后计数器的值.

　　end if

　　co=cstr(counter)

' 把数字型变量转换成字符型.

　　for i = 1 to countlong－len(co)

' 得到前面0图片的个数.

　　response.write

　 ' 完成计数器前面的0图片的添加.

　　for i= 1 to len(co)

　　response.write

　　' 从变量co的第i位开始读.

％>

[1]

时间： 2024-10-03 15:11:57

如何制作一个防止多次刷新计数的图片计数器？_编程10000问的相关文章

如何让一个方框栏内的文字滚动显示？_编程10000问

如何让一个方框栏内的文字滚动显示?<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />  <% dim NewsStr(1,5) NewsStr(0,0)="下载本栏链接" NewsStr(1,0)="http://www.intels.net

如何把一个Excel文件放到ASP页面中去？_编程10000问

<%set xlApp = Server.CreateObject("Excel.Application")xlApp.Visible = false<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /> ' 使服务端不出现Excel窗口.set myWorkbook = xlApp.Workbooks.Add ' 建立一个worksheet.set

如何防范利用刷新来“作弊”的计数器？_编程10000问

如何防范利用刷新来"作弊"的计数器? <%If IsEmpty(Session("Connected")) Then Application.Lock Application("counter") = Application("counter") + 1 Application.UnLockEnd If Session("Connected") = True%> <ht

如何制作一个弹出式的调查窗口？_编程10000问

<% Dim bSurvey <?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /> ' 是否显示调查表 const bID="1" ' 调查表的id bSurvey=false ' 检查调查表是否已经显示过. if instr(request.Cookies("s"),":&q

如何制作一个Web日程安排表？_编程10000问

chunfeng.asp<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /> ' 该页面可以看到已安排了哪些事情,并在底部链接可按月前后翻动. ' 该代码包含获得数据连接的函数,如果数据源一旦有变化,则只有一个位置需要编辑连接信息(服务器.用户和口令). <@ LANGUAGE="VBscript" ENABLESESSIONSTATE =

如何用数据库制作一个多用户版的计数器？_编程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

如何制作一个文本文件编辑器？_编程10000问

newdoc.asp<%@ Language=VBScript %><script id=DebugDirectives runat=server language=javascript>//Set these to true to enable debugging or tracing@set @debug=false@set @trace=false</script><html><head><META name=VI60_default

如何制作一个倒计时的程序？_编程10000问

<%CountdownDate = #1/1/2008 00:00:00AM#If Date >= CountdownDate Then Response.Write "2008 北京" Response.EndEnd If theDate = NowDaysLeft = DateDiff("d",theDate,CountdownDate) - 1theDate = DateAdd("d",DaysL

如何制作一个安全的页面？_编程10000问

manage.asp' 登录页面.<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /> <%@ Language=VBScript %><html><body><form name="Login" method="Post" action="login.asp"><