|
<%@ LANGUAGE = VBScript %> <%Server.ScriptTimeout=5000%> <html> <head> <style TYPE="text/css"> /* Outline Style Sheet */ UL UL {display: none; margin-left: 20pt} </style> <script LANGUAGE="JavaScript"> function checkParent(src, dest) { // Search for a specific parent of the current element while (src!=null) { if (src.tagName == dest) return src; src = src.parentElement; } return null; } function outline() { // Expand or collapse if a list item is clicked. var open = event.srcElement; // Make sure clicked inside an LI. This test allows rich HTML inside lists. var el = checkParent(open, "LI"); if (null!=el) { var pos = 0; // Search for a nested list for (var pos=0; pos<el.children.length; pos++) { if ("UL"==el.children[pos].tagName) break; } if (pos==el.children.length) return; } else return; el = el.children[pos]; if ("UL"==el.tagName) { // Expand or Collapse nested list if (""==el.style.display) { el.style.display = "block"; el.style.listStyleImage = "url(images/folder.gif)"; el.parentElement.style.listStyleImage = "url(images/ofolder.gif)"; } else { el.style.display = ""; el.parentElement.style.listStyleImage = "url(images/folder.gif)"; } } event.cancelBubble = true; } document.onclick = outline; </script> <base target="main"> <title>Folders</title> <link rel="stylesheet" type="text/css" href="ase.css"> </head> <body topmargin="0" leftmargin="0"> <SCRIPT LANGUAGE=vbscript RUNAT = Server> Dim fs, folderpara, folderArray Set fs = CreateObject("Scripting.FileSystemObject") if not isempty(request("txtRelative")) then folderpara=server.mappath(request("txtRelative")) else folderpara=request("txtAbsolute") end if Response.write "<UL>" Response.write "<LI STYLE=@#list-style-image: url(images/folder.gif)@#><a href=@#files.asp?sPath=" & folderpara & "@#>" & folderpara & "</a></LI>" Call ShowFolderList(folderpara) Response.write "</UL>" set fs = Nothing Sub ShowFolderList(folderspec) Dim f, f1, fc, s,fs Set fs=Server.CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(folderspec) Set fc = f.SubFolders Set fs=f.Files @#if (not (fc.count = 0)) then Response.write "<UL>" For Each f1 in fc s = f1.name If (not ((left (s, 1)) = "_")) then Response.write "<li>" Response.write "<a href=@#files.asp?sPath=" & f1 & "@#>" Response.write s & "</LI>" Response.write "</a>" Call ShowFolderList((folderspec & "/" & s)) end if Next For Each f1 in fs s = f1.name If (not ((left (s, 1)) = "_")) then Response.write "<li>" Response.write "<a href=@#files.asp?sPath=" & f1 & "@#><font color=666666>" if instr(s,"product")>0 then Response.write replace(s,"product","<font color=008800>product</font>") else if instr(s,"prod")>0 then Response.write replace(s,"prod","<font color=008800>prod</font>") else Response.write s end if end if Response.write "</font></LI>" Response.write "</a>" end if Next Response.write "</UL>" @#end if end sub </SCRIPT> </body> </html>
|
运行时间载入中.....