當前位置：
首頁 >
前端技术
> javascript
>内容正文
javascript
javascript写计数器
生活随笔
收集整理的這篇文章主要介紹了
javascript写计数器
小編覺得挺不錯的,現(xiàn)在分享給大家,幫大家做個參考.
<script???language???=???"vbscript"???runat???=???"server">???
??sub???application_onstart???
??????????'取的計數(shù)文件的真實路徑???
??????????countfile=server.mappath("count.txt")???
??????????'創(chuàng)建文件系統(tǒng)對象實例???
??????????set???myfso???=???server.createobject("scripting.filesystemobject")???
??????????'若計數(shù)文件不存在???
??if???not???myfso.fileexists(countfile)???then???
??????????????????'創(chuàng)建該文件及取得textstream對象實例???
??set???mytextstream???=???myfso.createtextfile(countfile,???True)???
??application.lock???
??application("online")???=???0???
??application("counter")???=???0???
??application.unlock???
??'將計數(shù)值寫入文件?????
??mytextstream.writeline(cstr(application("counter")))???
??else???
??????????????????'以只讀的方式打開???
??????????????????set???mytextstream???=???myfso.opentextfile(countfile,1,false)???
??????????????????'讀一行，并將值賦給計數(shù)變量???
??????????????????application("counter")???=???mytextstream.readline???
??end???if???
????????mytextstream.close???
????????set???myfso???=???nothing???
??end???sub???
??sub???session_onstart???
??????????session.timeout???=???1???
??????????countfile???=???server.mappath("count.txt")???
??????????set???myfso???=???server.createobject("scripting.filesystemobject")???
??????????application.lock???
??????????application("online")???=???application("online")+1???
??????????application("counter")???=???application("counter")+1???
??????????application.unlock???
??????????'以寫方式打開文件???
??????????set???mytextstream???=???myfso.opentextfile(countfile,2,false)???
??????????'以寫行的方式將數(shù)據(jù)寫入文件???
??????????mytextstream.writeline(cstr(application("counter")))???
??????????mytextstream.close???
??????????set???myfso???=???nothing???
??end???sub???
??sub???session_onend???
??????????application.lock???
??????????application("online")???=???application("online")-1???
??????????application.unlock???
??end???sub???
??</script>?????????????????????????????????
??<html>???
??<head>???
??<meta???http-equiv="Content-Type"???content="text/html;???charset=gb2312">???
??<title>計數(shù)器例子</title>???
??</head>???
??<body>???
??<div???align="center">您是本站第<font???color="#FF0000"><%=application("counter")%></font>位貴賓！?????
??</div>???
??</body>???
??</html>
?
??sub???application_onstart???
??????????'取的計數(shù)文件的真實路徑???
??????????countfile=server.mappath("count.txt")???
??????????'創(chuàng)建文件系統(tǒng)對象實例???
??????????set???myfso???=???server.createobject("scripting.filesystemobject")???
??????????'若計數(shù)文件不存在???
??if???not???myfso.fileexists(countfile)???then???
??????????????????'創(chuàng)建該文件及取得textstream對象實例???
??set???mytextstream???=???myfso.createtextfile(countfile,???True)???
??application.lock???
??application("online")???=???0???
??application("counter")???=???0???
??application.unlock???
??'將計數(shù)值寫入文件?????
??mytextstream.writeline(cstr(application("counter")))???
??else???
??????????????????'以只讀的方式打開???
??????????????????set???mytextstream???=???myfso.opentextfile(countfile,1,false)???
??????????????????'讀一行，并將值賦給計數(shù)變量???
??????????????????application("counter")???=???mytextstream.readline???
??end???if???
????????mytextstream.close???
????????set???myfso???=???nothing???
??end???sub???
??sub???session_onstart???
??????????session.timeout???=???1???
??????????countfile???=???server.mappath("count.txt")???
??????????set???myfso???=???server.createobject("scripting.filesystemobject")???
??????????application.lock???
??????????application("online")???=???application("online")+1???
??????????application("counter")???=???application("counter")+1???
??????????application.unlock???
??????????'以寫方式打開文件???
??????????set???mytextstream???=???myfso.opentextfile(countfile,2,false)???
??????????'以寫行的方式將數(shù)據(jù)寫入文件???
??????????mytextstream.writeline(cstr(application("counter")))???
??????????mytextstream.close???
??????????set???myfso???=???nothing???
??end???sub???
??sub???session_onend???
??????????application.lock???
??????????application("online")???=???application("online")-1???
??????????application.unlock???
??end???sub???
??</script>?????????????????????????????????
??<html>???
??<head>???
??<meta???http-equiv="Content-Type"???content="text/html;???charset=gb2312">???
??<title>計數(shù)器例子</title>???
??</head>???
??<body>???
??<div???align="center">您是本站第<font???color="#FF0000"><%=application("counter")%></font>位貴賓！?????
??</div>???
??</body>???
??</html>
?
轉(zhuǎn)載于:https://www.cnblogs.com/supercode/archive/2007/05/09/739698.html
總結(jié)
以上是生活随笔為你收集整理的javascript写计数器的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。
- 上一篇： 基于Tomcat5.0和Axis2开发W
- 下一篇： SharePoint Portal Se