把下面代码存到一个asp文件中即可、方便管理服务器上的文件
<Title> http://bbs.asp2004.net
<メタhttp-equiv = content-type content = text/html; charset = gb2312>
<style type = text/css>
<! -
A:link {
フォントサイズ:9pt;
}
A:訪問{
フォントサイズ:9pt;
}
A:ホバー{
フォントサイズ:9pt;
}
A:Active {
フォントサイズ: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
savefile()
ケース編集ファイル
fileedit()
ケースニューファイル
filenew()
ケースアップロード
アップロード()
ケースSAVEUPLOAD
saveupload()
ケースデルフォルダー
delfolder()
ケースSaveFolder
savefolder()
ケース編集フォルダー
editfolder()
ケースニューフォルダー
newFolder()
ケース他のケース
foldername = request.querystring(foldername)
filename = request.querystring(filename)
path = foldername
path = then path = server.mappath(./)の場合
showfolderList(パス)
[選択]を終了します
関数showfolderlist(folderspec)
temp = request.servervariables(http_referer)
temp = left(temp、instrev(temp、/))
temp1 = len(folderspec)-len(server.mappath(。/))-1
temp1> 0の場合
temp1 = right(folderspec、cint(temp1))
Elseif temp1 = -1次に
temp1 =
ifを終了します
tempurl = temp+felpper(temp1、/、/)+/
fso = createObject(scripting.filesystemObject)をset
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>
<テーブル幅= 100%Border = 0 CellPadding = 0 CellSpacing = 1 BgColor =#6595D6>
<tr bgcolor =#e4e8ef>
<td width = 64%> <div align = center>名称</div> </td>