[求助]统计文件数目的代码出错了，如何改

[复制链接]

罗ぷ曼ㄉ帝Ke

电梯直达

1^#

发表于 2010-1-7 01:06: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 管理工具中的相应值来更改此限制。

收藏0

使用道具举报

√sdf

2^#

发表于 2010-1-7 01:06:08 | 只看该作者

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

3^#

发表于 2010-1-7 01:06:11 | 只看该作者

不好意思，我没表达清楚
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

4^#

发表于 2010-1-7 01:06:14 | 只看该作者

少了fileRs.MoveNext

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

回复支持反对

使用道具举报

返回列表

		自动登录	找回密码
密码			注册