内容载入中...
首先用编辑器(Dreamaver或记事本)建立index.asp文件(取名任意),输入以下代码:
<% @ LANGUAGE = VBScript %>
<%
Option Explicit
Dim CountWeb
CountWeb = Request.ServerVariables("SCRIPT_NAME")
’为每个页面设置一个唯一的变量, 单独记数。
%>
<HTML>
<BODY>
<%
Response.Write "刷新页面，即可观看记数效果。"
Application.Lock
Application(CountWeb) = Application(CountWeb) + 1
’进入页面时，累加器加1。
Application.UnLock
Response.Write "WEB服务器关闭重启前，该页的点击总数为: " & Application(CountWeb)
%>
<p>可以在主页上加上以下的语句: </p>
欢迎您! 您是第[ <%= Application(CountWeb)%> ]位光临[网站制作初学者]的客人。
</BODY>
</HTML>
