标题: [求助]统计文件数目的代码出错了，如何改 [打印本页] 作者: 罗ぷ曼ㄉ帝Ke 时间: 2010-1-7 01:06 标题: [求助]统计文件数目的代码出错了，如何改 大家帮忙看看，哪里有错
<%
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 管理工具中的相应值来更改此限制。作者: √sdf 时间: 2010-1-7 01:06
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作者: ｓeeＹa 时间: 2010-1-7 01:06
不好意思，我没表达清楚
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作者: 封xin封mg 时间: 2010-1-7 01:06
少了fileRs.MoveNext