把下面代码存到一个ASP文件中即可,方便管理服务器上的文件
<title>http://bbs.asp2004.net 制作:小灰 QQ:103895</title>
<meta http-equiv=Content-Type content=text/html; charset=gb2312>
<style type=text/css>
<!--
a:link {
font-size: 9pt;
}
a:visited {
font-size: 9pt;
}
a:hover {
font-size: 9pt;
}
a:active {
font-size: 9pt;
}
body {
font-size: 9pt;
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
line-height: 20px;
}
td {
font-size: 9pt;
line-height: 20px;
}
-->
</style>
<%
action=request.QueryString(action)
temp=split(request.ServerVariables(URL),/)
url=temp(ubound(temp))
chklogin()
select case action
case logout
logout()
case delfile
delfile()
case savefile
savefile()
case editfile
fileedit()
case newfile
filenew()
case upload
upload()
case saveupload
saveupload()
case delfolder
delfolder()
case savefolder
savefolder()
case editfolder
editfolder()
case newfolder
newfolder()
case else
foldername=request.QueryString(foldername)
filename=request.QueryString(filename)
path=foldername
if path= then path=server.MapPath(./)
ShowFolderList(path)
end select
Function ShowFolderList(folderspec)
temp=request.ServerVariables(HTTP_REFERER)
temp=left(temp,Instrrev(temp,/))
temp1=len(folderspec)-len(server.MapPath(./))-1
if temp1>0 then
temp1=right(folderspec,cint(temp1))
elseif temp1=-1 then
temp1=
end if
tempurl=temp+replace(temp1,/,/)+/
Set fso = CreateObject(Scripting.FileSystemObject)
upfolderspec=fso.GetParentfoldername(folderspec&/)
%>
<a href=<%= url%>?action=newfolder&foldername=<%= folderspec%>>新建文件夹</a> | <a href=<%= url%>?action=newfile&filename=<%= folderspec&/%>>新建文件</a> | <a href=<%= url%>?action=upload>上传文件</a> | <a href=<%= url%>?foldername=<%= upfolderspec%>>向上</a> | <a href=file.asp>返回首页</a> | <a href=<%= url%>?action=logout>退出</a>
<table width=100% border=0 cellpadding=0 cellspacing=1 bgcolor=#6595D6>
<tr bgcolor=#E4E8EF>
<td width=64%><div align=center>名称</div></td>