大家帮忙看看，哪里有错
<%
dim u_id,f_u_id
dim i,j,num
dim arr
num=0
u_id=Session("user_id")
while not fileRs.eof
f_u_id=replace((fileRS.Fields.Item("user_id").Value)," ","")
arr=split(f_u_id,",")
j=cint(ubound(arr))

for i=0 to j
if u_id=arr(i) then
num=num+1
end if
next
wend
response.Write num


%>

错误提示：
Active Server Pages 错误 'ASP 0113'

脚本超时

/ps/index1.asp

超过了脚本运行的最长时间。可以为 Server.ScriptTimeOut 属性指定新值或更改 IIS 管理工具中的相应值来更改此限制。

少了fileRs.MoveNext

While...Wend...出现死循环

[此贴子已经被作者于2007-3-23 13:28:33编辑过]

Set FsoObj=Server.CreateObject("Scripting.FileSystemObject")
'统计文件夹数量
Set FolderList = FsoObj.GetFolder(FolderPath)
For Each FolderArr In FolderList.SubFolders
FolderObjCount = FolderObjCount + 1
Next
Set FolderList = Nothing

'统计文件数量
Set FileList = FsoObj.GetFolder(FolderPath)
For Each FileArr In FileList.Files
FileObjCount = FileObjCount + 1
Next
Set FileList = Nothing
Set FsoObj=Nothing

不好意思，我没表达清楚
fileRS.Fields.Item("user_id").Value '记录此文件可以被哪些用户读取的用户ID，例如用户ID：12,11,44这些用户可以读取此文件
while not fileRs.eof
f_u_id=replace((fileRS.Fields.Item("user_id").Value)," ","")
arr=split(f_u_id,",") '获取有读取权限的用户数组
j=cint(ubound(arr))

for i=0 to j
if u_id=arr(i) then '判断当前用户是否在数组中
num=num+1 '若有在当前数组中，则加1
end if
next
wend
response.Write num