把下面代码存到一个 Asp 文件中即可 ， 方便管理服务器上的文件
<title> http://bbs.asp2004.net 制作 ： 小灰 qq: 103895 </ititure>
<meta http-equiv = content-type content = text/html; charset = gb2312>
<tipo de estilo = texto/css>
<!-
A: Link {
tamanho de fonte: 9pt;
}
A: visitado {
tamanho de fonte: 9pt;
}
A: Hover {
tamanho de fonte: 9pt;
}
A: ativo {
tamanho de fonte: 9pt;
}
corpo {
tamanho de fonte: 9pt;
margem-esquerda: 0px;
Margin-top: 0px;
Margem-direita: 0px;
Margin-Bottom: 0px;
altura de linha: 20px;
}
TD {
tamanho de fonte: 9pt;
altura de linha: 20px;
}
->
</style>
<%
ação = request.QueryString (ação)
Temp = Split (request.Servervariables (URL),/)
url = temp (ubound (temp))
Chklogin ()
selecione Ação do caso
Logout do caso
logout ()
Case Delfile
Delfile ()
Case Savefile
savefile ()
EDITFILE DE CASE
fileedit ()
Caso NewFile
filenew ()
upload de casos
carregar()
Caso saveupload
saveUpload ()
Caso Delfolder
Delfolder ()
Case SaveFolder
savefolder ()
Caso EditFolder
editfolder ()
Case NewFolder
newFolder ()
caso mais
FoldName = request.QueryString (Nome de Foldern)
FileName = request.QueryString (nome do arquivo)
Caminho = Nome do Foldern
Se Path = Then Path = Server.mappath (./)
ShowFolderList (caminho)
final Selecione
Função ShowFolderList (Folderspec)
temp = request.Servervariables (http_referer)
Temp = esquerda (Temp, Instrrev (temp,/))
temp1 = len (pastapec) -len (server.mappath (./))- 1
Se temp1> 0 então
temp1 = direita (pastapec, cint (temp1))
elseif temp1 = -1 então
temp1 =
final se
tempurl = temp+substituir (temp1,/,/)+/
Set fso = createObject (script.filesystemObject)
upfolderspec = fso.getParentFolderName (Folderspec &/)
%>
<a href = <%= url%>? Ação = newFolder & Foldername = <%= Federspec%>> 新建文件夹 </a> | <a href = <%= url%>? Action = newFile & filename = <%= pasterpec &/%>> 新建文件 </a> | <a href = <%= url%>? Ação = upload> 上传文件 </a> | <a href = <%= url%>? Nome da dobra = <%= UpFolderspec%>> 向上 </a> | <a href = file.asp> 返回首页 </a> | <a href = <%= url%>? Action = logout> 退出 </a>
<tabela largura = 100% borda = 0 celularpadding = 0 cellspacacing = 1 bgcolor =#6595d6>
<tr bgcolor =#e4e8ef>
<td width = 64%> <div align = Center> 名称 </div> </td>