大家帮忙看看，哪里有错
<%
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.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