把下面代码存到一个asp文件中即可,方便管理服务器上的文件
<Title> http://bbs.asp2004.net制作:QQ:103895 </title>
<meta http-equiv = content-type content = text/html; charset = gb2312>
<样式类型= text/css>
<! -
答:链接{
字体大小:9pt;
}
答:访问{
字体大小:9pt;
}
答:悬停{
字体大小:9pt;
}
答:活动{
字体大小:9pt;
}
身体 {
字体大小:9pt;
左键:0px;
保证金顶:0px;
边缘右:0px;
边缘底:0px;
线高:20px;
}
TD {
字体大小:9pt;
线高:20px;
}
- >
</style>
<%
action = request.querystring(action)
temp = split(request.servervariables(url),/)
url = temp(ubound(temp))
chklogin()
选择案例动作
案例注销
logout()
案例
delfile()
案例保存文件
savefile()
案例编辑文件
fileedit()
案例newfile
filenew()
案例上传
上传()
CASE SAVEUPLOAD
saveupload()
案例固定员
delfolder()
CASE SAVEFOLDER
savefolder()
案例编辑备货员
editfolder()
案例新手
newfolder()
其他情况
foldername = request.querystring(foldername)
filename = request.querystring(文件名)
路径= foldername
如果路径=然后路径= server.mappath(./)
ShowFolderList(路径)
结束选择
函数ShowFolderList(folderspec)
temp = request.servervariables(http_referer)
temp =左(temp,instrev(temp,/))
temp1 = len(folderspec)-len(server.mappath(./)- :)- 1
如果temp1> 0,则
temp1 = right(folderspec,cint(temp1))
然后,elseif temp1 = -1
temp1 =
如果结束
tempurl = temp+替换(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%边界= 0 cellpadding = 0 cellpacing = 1 bgcolor =#6595d6>
<tr bgcolor =#e4e8ef>
<td width = 64%> <div align = center>名称</div> </td>