最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
asp 显示目录存在时显示此目录下的所有子目录
时间:2010-04-12 编辑:简简单单 来源:一聚教程网
'参数:目录名(相对路径) ,对象
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 = "
Else
ShowFolderList = "-"
End if
If Err <> 0 Then Err.Clear
Set f = Nothing
Set fc = nothing
End Function
-
上一个: asp 取文件相关信息与取目录相关信息
相关文章
- VBS 批量Ping的项目讲解 09-19
- 如何封装一个Ajax函数介绍 09-16
- ASP实现加法验证码方法 09-16
- ASP错误捕获的几种常规处理方法介绍 09-16
- ajax实现城市三级联动的代码介绍 09-16
- asp中获取日期为星期几的技巧 09-14