|
|
主题: : 统计在线人数问题·FSO 问题·
|
mezi
职务：普通成员
等级：1
金币：0.0
发贴：141
注册：2002/4/1 10:54:21
|
#12002/10/21 12:06:00
<%
Function fcounts(fcounterFile)
Dim objFSO, objTS
Application.Lock
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objTS = objFSO.OpenTextFile(Server.MapPath(fcounterFile), 1, True)
If Not objTS.AtEndOfStream Then '检查是否到达文件结尾
fcounts = CLng(objTS.ReadLine)
End If
fcounts = fcounts + 1
objTS.Close
Set objTS = objFSO.OpenTextFile(Server.MapPath(fcounterFile), 2, True)
objTS.WriteLine(fcounts)
objTS.Close
Application.Unlock
End Function
If Session("fcounter") = Empty Then
Session("fcounter") = fcounts("fcounter.txt")
End If
%>
我首页的一段统计在线人数的代码如上··
结果在我这台机器上··发生页面错误··说·
Set objTS = objFSO.OpenTextFile(Server.MapPath(fcounterFile), 2, True)
有错误
而在另一台机器上·则没有毛病··
怎么搞的？
是不是我机器的设置上有问题？
|
mezi
职务：普通成员
等级：1
金币：0.0
发贴：141
注册：2002/4/1 10:54:21
|
#22002/10/21 12:06:19
可同时那页还有个访问人数统计共多少人访问过··
这个就可以执行··也是FSO的阿？？
|
5D荣誉版主
职务：普通成员
等级：1
金币：10.0
发贴：271
注册：2002/10/16 16:19:02
|
#32002/10/21 12:48:54
可能是文件的写权限受到限制啊
|
mezi
职务：普通成员
等级：1
金币：0.0
发贴：141
注册：2002/4/1 10:54:21
|
#42002/10/21 14:25:01
那另一个访问统计人数的怎么就能执行那?
|
5D荣誉版主
职务：普通成员
等级：1
金币：10.0
发贴：271
注册：2002/10/16 16:19:02
|
#52002/10/21 14:31:54
他的电脑的用户名有写文件的权限
你上那台放程序的电脑上把文件的写权限打开
|
mezi
职务：普通成员
等级：1
金币：0.0
发贴：141
注册：2002/4/1 10:54:21
|
#62002/10/21 16:18:47
怎么打开写权限？
在哪了？
|
5D荣誉版主
职务：普通成员
等级：1
金币：10.0
发贴：271
注册：2002/10/16 16:19:02
|
#72002/10/21 16:30:57
进入你所建立的虚拟目录对应的物理路径,右击fcounter.txt所在的文件夹,打开文件夹对everyone的写权限is ok
|
