Asp计数器 20
我的选修课期末考试题，只有25分了，都奖给你。启动IIS服务器，在本地机某逻辑盘根目录下新建一个文件夹作为新建站点根目录（服务器脚本使用VBScript）。调试以下计数器...
我的选修课期末考试题，只有25分了，都奖给你。
启动IIS服务器，在本地机某逻辑盘根目录下新建一个文件夹作为新建站点根目录（服务器脚本使用VBScript）。
调试以下计数器程序counter.ASP
<%
Function Visitor(Data)
Dim ObjFSO, ObjTS
Application.Lock
Set ObjFSO=Server.CreateObject("Scripting.FileSystemObject")
Set ObjTS=ObjFSO.OpenTextFile(Server.MapPath(Data), 1, True)
If Not ObjTS.AtEndOfStream Then
Visitor = CLng(ObjTS.ReadLine)
End If
Visitor = Visitor + 1
ObjTS.Close
Set ObjTS=ObjFSO.OpenTextFile(Server.MapPath(Data), 2, True)
OBjTS.WriteLine(Visitor)
ObjTS.Close
Application.Unlock
End Function
%>
<HTML>
<TITLE>计数器②</TITLE>
<BODY>
您好！欢迎光临！您是第<B><%=Visitor("Visitor.txt") %></B>位来访者。请稍候。计数器②
</BODY>
</HTML>
改进本程序，使之在页面刷新时计数器计数不会增加。改进后的程序以本人学号.ASP保存。
使用其它asp组件或application的其它形式实现计数器功能统计站点访问者的日流量（一天内访问者的数量，同一ip的多次访问按实际访问次数统计在总流量内） 展开
启动IIS服务器，在本地机某逻辑盘根目录下新建一个文件夹作为新建站点根目录（服务器脚本使用VBScript）。
调试以下计数器程序counter.ASP
<%
Function Visitor(Data)
Dim ObjFSO, ObjTS
Application.Lock
Set ObjFSO=Server.CreateObject("Scripting.FileSystemObject")
Set ObjTS=ObjFSO.OpenTextFile(Server.MapPath(Data), 1, True)
If Not ObjTS.AtEndOfStream Then
Visitor = CLng(ObjTS.ReadLine)
End If
Visitor = Visitor + 1
ObjTS.Close
Set ObjTS=ObjFSO.OpenTextFile(Server.MapPath(Data), 2, True)
OBjTS.WriteLine(Visitor)
ObjTS.Close
Application.Unlock
End Function
%>
<HTML>
<TITLE>计数器②</TITLE>
<BODY>
您好！欢迎光临！您是第<B><%=Visitor("Visitor.txt") %></B>位来访者。请稍候。计数器②
</BODY>
</HTML>
改进本程序，使之在页面刷新时计数器计数不会增加。改进后的程序以本人学号.ASP保存。
使用其它asp组件或application的其它形式实现计数器功能统计站点访问者的日流量（一天内访问者的数量，同一ip的多次访问按实际访问次数统计在总流量内） 展开
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
