【www.gdgbn.com--面向对象编程】
"参数:目录名(相对路径),对象,页码,每页几条
Public Function ShowFileList(folderUrl,tag,page_Num,page_Size,listType)
Dim f,f1,fc,i,temp,page_Count,disabledtf,tagExp
On Error Resume Next
temp = Server.MapPath(folderUrl)
If oFso.FolderExists(temp) Then
Set f = oFso.GetFolder(temp)
Set fc = f.Files
If listType = "list" Then
disabledtf = "disabled"
Else
disabledtf = ""
End If
ShowFileList = ""& Chr(13)
i = 0
page_Count = Int(fc.Count / page_Size)
If fc.Count / page_Size > page_Count Then page_Count = page_Count + 1
For Each f1 in fc
tagExp = ""
If tag <> "" Then
tagExp = "onClick=""javascript教程:window.opener.document.getElementById(""& tag &"").value = ""& folderUrl &"/"& f1.name &""; window.close()"""
Else
tagExp = "onClick=""javascript:window.open(""& folderUrl &"/"& f1.name &"");"""
End If
If i >= CInt((page_Num - 1) * page_Size) And i <= CInt(page_Num * page_Size - 1) Then
ShowFileList = ShowFileList &""& Chr(13)
ShowFileList = ShowFileList &""& Chr(13)
ShowFileList = ShowFileList &""& GetFilePic(GetFileExtName(f1.name)(1)) &" "& f1.name &""& Chr(13)
ShowFileList = ShowFileList &""& GetFileInfo(folderUrl &"/"& f1.name)(0) &""& Chr(13)
ShowFileList = ShowFileList &""& Chr(13)
ElseIf i >= CInt(page_Num * page_Size) Then
Exit For
End If
i = i + 1
Next
ShowFileList = ShowFileList &""& Chr(13)
If fc.Count > 0 Then ShowFileList = ShowFileList &""& iRs.PageListBar(page_Num,page_Count,fc.Count,page_Size,"folderUrl="& folderUrl &"&tag="& tag &"&listType="& listType &"&",1) &""& Chr(13)
Else
ShowFileList = "-"
End If
If Err <> 0 Then Err.Clear
Set f = Nothing
Set fc = nothing
End Function