把下面代碼存到一個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>