最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
asp 显示目录存在时显示此目录下的所有子目录
时间：2022-07-02 23:43:41 编辑：袖梨 来源：一聚教程网
'参数：目录名(相对路径) ,对象
Public Function ShowFolderList(folderUrl,tag,listType)
Dim f,f1,fc,i,temp,disabledtf
On Error Resume Next
temp = Server.MapPath(folderUrl)
If oFso.FolderExists(temp) Then
Set f = oFso.GetFolder(temp)
Set fc = f.SubFolders
If listType = "list" Then
disabledtf = "disabled"
Else
disabledtf = ""
End If
ShowFolderList = "
| javascript教程:selectAllCheckBox('path',this.id);checkDisabled('button',getValueList('input'));"" "& disabledtf &" /> | "& Chr(13)目录名/文件名 | "& Chr(13)大小 | "& Chr(13)
| "& Chr(13) | "& f1.name &" | "& Chr(13)"& GetfolderInfo(folderUrl &"/"& f1.name)(0) &" | "& Chr(13)
Else
ShowFolderList = "-"
End if
If Err 0 Then Err.Clear
Set f = Nothing
Set fc = nothing
End Function
相关文章
- 洛克王国世界圣羽翼王怎么过 圣羽翼王打法思路推荐 03-28
- 毒液突击队尸王打法攻略 毒液突击队尸王Boss通关技巧与阵容搭配 03-28
- 羞羞漫画-登录入口免费阅读 03-28
- 燕云十六声新赛季新增免费配饰一览 03-28
- 樱花动漫app官方正版下载安装最新版-樱花动漫正版app安卓版下载安装入口 03-28
- 洛克王国世界 抽卡机制详解与概率分析 03-28