<%@ Language=VBScript %>
<%
Option Explicit
Response.Expires = -1
Dim folpath, goingup, FlashPath
folpath = Request.QueryString("loc")
goingup = Request.QueryString("u")
FlashPath = Request.QueryString("FP")
If Right(FlashPath,1) <> "/" Then
FlashPath = FlashPath & "/"
End If
If folpath <> "" And goingup <> "y" Then
folpath = folpath & "/"
End If
Function Showbrowse_Img(spec)
Dim f, sf, fol, fc, fil, s, ext, counter
Dim fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(spec)
Set sf = f.SubFolders
s = s & "
"
For Each fol In sf 'add the html for the folders
s = s & "
" & vbcrlf
s = s & " " & fol.name & "
" & vbcrlf
Next
Set fc = f.Files
For Each fil In fc 'add the html for the files
If InStr(fil.name, ".swf" ) <> 0 Then
s = s & "
" & vbcrlf
s = s & "
"
s = s & fil.name & "
" & vbcrlf
End If
Next
s = s & "
"
Showbrowse_Img = s
set f=nothing
set fso=nothing
End Function
Function GetExtension(str_FileName)
GetExtension = LCase(Right(str_FileName,(Len(str_FileName)-InStrRev(str_FileName,"."))))
End Function
%>
<% Response.Write Showbrowse_Img(Server.MapPath(FlashPath & folpath)) %>