[ÇóÖú]ͳ¼ÆÎļþÊýÄ¿µÄ´úÂë³ö´íÁË£¬ÈçºÎ¸Ä

ÂÞ¤×Âü¨ÉµÛKe

´ó¼Ò°ïæ¿´¿´£¬ÄÄÀïÓдí
<%
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

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

²»ºÃÒâ˼£¬ÎÒû±í´ïÇå³þ
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

ÉÙÁËfileRs.MoveNext

While...Wend...³öÏÖËÀÑ­»·