最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
asp 列出目录存在时显示此目录下的所有文件
时间:2022-07-02 23:02:43 编辑:袖梨 来源:一聚教程网
'参数:目录名(相对路径),对象,页码,每页几条
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) | "& GetFilePic(GetFileExtName(f1.name)(1)) &" "& f1.name &" | "& Chr(13)"& GetFileInfo(folderUrl &"/"& f1.name)(0) &" | "& Chr(13)
If fc.Count > 0 Then ShowFileList = ShowFileList &"
Else
ShowFileList = "-"
End If
If Err <> 0 Then Err.Clear
Set f = Nothing
Set fc = nothing
End Function