<% ' ' jQuery File Tree ASP (VBS) Connector ' Copyright 2008 Chazzuka ' programmer@chazzuka.com ' http://www.chazzuka.com/ ' Function URLDecode(str) str = Replace(str, "+", " ") For i = 1 To Len(str) sT = Mid(str, i, 1) If sT = "%" Then If i+2 < Len(str) Then sR = sR & _ Chr(CLng("&H" & Mid(str, i+1, 2))) i = i+2 End If Else sR = sR & sT End If Next URLDecode = sR End Function ' retrive base directory dim BaseFileDir:BaseFileDir=URLDecode(Request.Form("dir")) ' if blank give default value if len(BaseFileDir)=0 then BaseFileDir="/userfiles/" dim IsImg:IsImg=false if(Request.QueryString("img")="yes") then IsImg = true end if dim ObjFSO,BaseFile,Html ' resolve the absolute path BaseFile = Server.MapPath(BaseFileDir)&"\" ' create FSO Set ObjFSO = Server.CreateObject("Scripting.FileSystemObject") ' if given folder is exists if ObjFSO.FolderExists(BaseFile) then dim ObjFolder,ObjSubFolder,ObjFile,i__Name,i__Ext Html = Html + "

"&VBCRLF Set ObjFolder = ObjFSO.GetFolder(BaseFile) ' LOOP THROUGH SUBFOLDER For Each ObjSubFolder In ObjFolder.SubFolders i__Name=ObjSubFolder.name Html = Html + "
• "&_ ""&_ (i__Name)+"
"&VBCRLF Next 'LOOP THROUGH FILES For Each ObjFile In ObjFolder.Files ' name i__Name=ObjFile.name ' extension i__Ext = LCase(Mid(i__Name, InStrRev(i__Name, ".", -1, 1) + 1)) if (IsImg=false or (IsImg=true and (i__Ext="jpeg" or i__Ext="jpg" or i__Ext="png" or i__Ext="gif"))) then Html = Html + "
• "&_ ""&_ (i__name)+"
"&VBCRLF end if Next Html = Html + "

"&VBCRLF end if Response.Write Html %>