UC知道用VBscript写的ASP网站计数器
来源：百度知道 编辑：UC知道 时间：2024/05/21 22:27:53
1).counter.asp计数器程序的代码如下：
<%
function digital(counter)
dim i,mystr,scounter
scounter=cstr(counter)
for i=1 to 5-len(scounter)
mystr=mystr&"<img src=C:\Inetpub\wwwroot\counter\0.gif>"
next
for i=1 to len(scounter)
mystr=mystr&"<img src=C:\Inetpub\wwwroot\counter\"& mid(scounter,i,1) &".gif>"
next
digital=mystr
end function
application.lock
application("counter")=application("counter")+1
application.unlock
%>
<html>
<head><title>计算机演示版</title></head>
<body>
<h2 align="center"><font color="#0000ff">这是一个网站计算机的演示程序</font></h2>
<hr>
<p align="center">您是本站第<%=digital(application("counter"))%>位访客</p>
</body>
<%
function digital(counter)
dim i,mystr,scounter
scounter=cstr(counter)
for i=1 to 5-len(scounter)
mystr=mystr&"<img src=C:\Inetpub\wwwroot\counter\0.gif>"
next
for i=1 to len(scounter)
mystr=mystr&"<img src=C:\Inetpub\wwwroot\counter\"& mid(scounter,i,1) &".gif>"
next
digital=mystr
end function
application.lock
application("counter")=application("counter")+1
application.unlock
%>
<html>
<head><title>计算机演示版</title></head>
<body>
<h2 align="center"><font color="#0000ff">这是一个网站计算机的演示程序</font></h2>
<hr>
<p align="center">您是本站第<%=digital(application("counter"))%>位访客</p>
</body>
global.asa
是一个网站在任何人打开第一个页面的时候就进行了调用
这个文件一般存储整个网站的运行变量.
例如
global.asa
-------------------
a=1
------------------
在网站其他页面<%=a%>都会显示 1
如果是XP系统做的服务器,不要忘记重新启动一下IIS
网站计数器很多啊，现在一般都不用global.asa这种文件了。你还是在网上下载几个看看吧
不会