<%
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)
请指点一下

看不懂。。。汗。

FSO的你的第四行是那行啊！

fso组建错误。你可能没有正确安装fso组建

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
第一次见到这样写的,括号里好象有错误,也可能是我没见过吧,呵呵。

是不是没有安装FSO组件?或者NTFS分区没有设置操作权限