用JAVASCRIPT帮我写个计数器
2018-09-06 12:31
你们能用JAVASCRIPT帮我写个计数器吗?要带文本的那种,我在ASP那里要用呀?拜托..........
我自己写了一个,是不带文本的,谁能帮我弥补一下呢?
<%@Language=Jscript%>
<%
Application.Lock();
Application(Counter)=parseInt(Application(Counter))+1;
Application.UnLock();
%>
我知道要用到<%
varpath=Server.MapPath(test.txt);
varMyFileObject=Server.CreateObject(Scripting.FileSystemObject);
varMyTextFile=MyFileObject.CreateTextFile(path);
MyTextFile.WriteLine();
MyTextFile.Close();
%>这些命令,可具体怎么写呢?
复制代码 代码如下:
给你一个最全的吧：
<scriptlanguage=vbscriptrunat=server>
subapplication_onstart
取的计数文件的真实路径
countfile=server.mappath(count.txt)
创建文件系统对象实例
setmyfso=server.createobject(scripting.filesystemobject)
若计数文件不存在
ifnotmyfso.fileexists(countfile)then
创建该文件及取得textstream对象实例
setmytextstream=myfso.createtextfile(countfile,True)
application.lock
application(online)=0
application(counter)=0
application.unlock
将计数值写入文件
mytextstream.writeline(cstr(application(counter)))
else
以只读的方式打开
setmytextstream=myfso.opentextfile(countfile,1,false)
读一行，并将值赋给计数变量
application(counter)=mytextstream.readline
endif
mytextstream.close
setmyfso=nothing
endsub
subsession_onstart
session.timeout=1
countfile=server.mappath(count.txt)
setmyfso=server.createobject(scripting.filesystemobject)
application.lock
application(online)=application(online)+1
application(counter)=application(counter)+1
application.unlock
以写方式打开文件
setmytextstream=myfso.opentextfile(countfile,2,false)
以写行的方式将数据写入文件
mytextstream.writeline(cstr(application(counter)))
mytextstream.close
setmyfso=nothing
endsub
subsession_onend
application.lock
application(online)=application(online)-1
application.unlock
endsub
</script>
<html>
<head>
<metahttp-equiv=Content-Typecontent=text/html;charset=gb2312>
<title>计数器例子</title>
</head>
<body>
<divalign=center>您是本站第<fontcolor=#FF0000><%=application(counter)%></font>位贵宾！
</div>
</body>
</html>
文章标题：用JAVASCRIPT帮我写个计数器
文章链接：http://soscw.com/index.php/essay/10412.html