• 文件名
• 文件属性
• 文件大小
• 更新日期

<% dim infopath dim serverpath dim objfso dim objfolder dim objfoldercontents dim objfoldercount dim objfileitem If not IsObjInstalled("Scripting.FileSystemObject") Then response.write("") response.write("") response.end end if response.write "" dim i i = 0 if path <> "" then %> <% end if for each objfoldercount in objfolder.subfolders '循环显示文件夹 i = i+1 if i mod 2 <> 0 then response.write "" else response.write "" end if response.write "" '文件夹名称 response.write "" '文件夹属性 response.write "" '文件夹大小 response.write "" '时间 response.write "" next for each objfileitem in objfoldercontents edityes = false select case right(objfileitem.name,3) case "gif" fileimg = "" case "jpg" fileimg = "" case "zip" fileimg = "" case "rar" fileimg = "" case ".js" fileimg = "" edityes = true case "htm" , "tml" fileimg = "" edityes = true case "asp" fileimg = "" edityes = true case "txt" fileimg = "" edityes = true case "xml" fileimg = "" edityes = true case "spx" fileimg = "" edityes = true case else fileimg = "" end select i = i+1 if i mod 2 <> 0 then response.write "" else response.write "" end if if edityes = true then response.write "" else response.write "" end if response.write "" '类型 response.write "" '文件大小 response.write "" '更新日期 response.write "" next response.write "

模板根目录
" response.write ""&objfoldercount.name&"	"&objfoldercount.type&"		"&objfoldercount.DateCreated&"
"&fileimg&" "&objfileitem.name&"	"&fileimg&" "&objfileitem.name&"	"&objfileitem.type&"	"&objfileitem.size&"kb	"&objfileitem.datelastmodified&"

" '检查组件是否已经安装 Function IsObjInstalled(strClassString) IsObjInstalled = False Err = 0 Dim xTestObj Set xTestObj = Server.CreateObject(strClassString) If 0 = Err Then IsObjInstalled = True Set xTestObj = Nothing Err = 0 End Function %>