<%
Function ReadCounter(CounterFile)
Dim objFSO, objTS
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objTS = objFSO.OpenTextFile(Server.MapPath(CounterFile), 1, True)
If Not objTS.AtEndOfStream Then
ReadCounter = CLng(objTS.ReadLine)
Else
ReadCounter = 0
End If
objTS.Close
End Function

Sub WriteCounter(CounterFile, Counter)
Dim objFSO, objTS
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objTS = objFSO.OpenTextFile(Server.MapPath(CounterFile), 2, True)
objTS.WriteLine(Counter)
objTS.Close
End Sub
%>

运行显示:
Server 对象, ASP 0177 (0x800401F3)
无效的类别字符串
/bo/xuanpiao/xuanpiao.ASP, 第 4 行
浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)
请指点一下