查人人中国名人网彩带脏辫教程视频教程:asp网页计数器怎么制作
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/29 07:21:38
计数器测试版
<html>
<head>
<title>计数器测试版</title>
</head>
<body>
<p align="center">您是本网站的第
<font color="blue">
<%
Application("Num")=Application("Num")+1
Response.Write Application("Num")
%>
</font>
位访问者</p>
</body>
</html>
计数器改进版
<html>
<head>
<title>计数器改进版</title>
</head>
<body>
<p align="center">您是本网站的第
<font color="blue">
<%
Application.Lock
Application("Num")=Application("Num")+1
Response.Write Application("Num")
Application.UnLock
%>
</font>
位访问者</p>
</body>
</html>
计数器正式版
<html>
<head>
<title>计数器正式版</title>
</head>
<body>
<p align="center">您是本网站的第
<font color="blue">
<%
Sub Numberpad()
Set files=Server.CreateObject("Scripting.FileSystemObject")
Set numtxt=files.OpenTextFile(Server.MapPath("/Num.txt"))
Application("Num")=numtxt.ReadLine
numtxt.Close
Application("Num")=Application("Num")+1
Response.Write Application("Num")
Set numtxt=files.CreateTextFile(Server.MapPath("/Num.txt"),True)
numtxt.WriteLine(Application("Num"))
numtxt.Close
End Sub
Application.Lock
Numberpad
Application.UnLock
%>
</font>
位访问者</p>
</body>
</html>
学会用搜索引擎。！！