asp 列出目录存在时显示此目录下的所有文件

 '参数：目录名(相对路径),对象,页码,每页几条
 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 = "<table width=""100%"" border=""0"" cellspacing=""1"" cellpadding=""1"">"& 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 &"<tr "& Lib.DefaultTrStyle(i,"defaulttr","defaultmod","defaulttdover") &">"& Chr(13)
     ShowFileList = ShowFileList &"<td width=""3%""><input name=""path"" id=""path"" type=""checkbox"" value="""& folderUrl &"/"& f1.name &""" onClick=""javascript:checkDisabled('button',getValueList('input'));"" "& disabledtf &" /></td>"& Chr(13)
     ShowFileList = ShowFileList &"<td><span style=""cursor:pointer"" onmouseover=""javascript:xmlHttpPost('../Inc/XmlHttp.asp','action=preview&showType=file&filepath='+ escape('"& folderUrl &"/"& f1.name &"'),0,0,'preview')"" "& tagExp &">"& GetFilePic(GetFileExtName(f1.name)(1)) &" "& f1.name &"</span></td>"& Chr(13)
     ShowFileList = ShowFileList &"<td width=""20%"" align=""right"">"& GetFileInfo(folderUrl &"/"& f1.name)(0) &"</td>"& Chr(13)
     ShowFileList = ShowFileList &"</tr>"& Chr(13)
    ElseIf i >= CInt(page_Num * page_Size) Then
     Exit For
    End If
    i = i + 1
   Next
   ShowFileList = ShowFileList &"</table>"& Chr(13)
   If fc.Count > 0 Then ShowFileList = ShowFileList &"<div class=""margintop"">"& iRs.PageListBar(page_Num,page_Count,fc.Count,page_Size,"folderUrl="& folderUrl &"&tag="& tag &"&listType="& listType &"&",1) &"</div>"& Chr(13)
  Else
   ShowFileList = "-"
  End If
  If Err <> 0 Then Err.Clear
  Set f = Nothing
  Set fc = nothing
 End Function