'参数:目录名(相对路径) ,对象
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 = "