把下面代码存到一个 asp 文件中即可 ， 方便管理服务器上的文件
<Title> http://bbs.asp2004.net 制作 ： 小灰 QQ ： 103895 </Title>
<meta http-equiv = contenu contenu contenu = text / html; charse = gb2312>
<style type = text / css>
<! -
a: lien {
taille de police: 9pt;
}
A: visité {
taille de police: 9pt;
}
A: Hover {
taille de police: 9pt;
}
a: actif {
taille de police: 9pt;
}
corps {
taille de police: 9pt;
marge-gauche: 0px;
marge: 0px;
marge-droite: 0px;
marge-fond: 0px;
hauteur de ligne: 20px;
}
td {
taille de police: 9pt;
hauteur de ligne: 20px;
}
->
</ style>
<%
action = request.querystring (action)
Temp = Split (request.servervariables (URL), /)
url = temp (ubound (temp))
chklogin ()
Sélectionnez l'action de cas
déconnexion de cas
logout ()
cas de delfile
Delfile ()
Case SaveFile
SaveFile ()
CASE EDITFILE
FileEdit ()
cas de file newfile
filenew ()
Téléchargement du boîtier
télécharger()
case SaveUpload
SaveUpload ()
Delfolder de cas
Delfolder ()
Case Savefolder
Savefolder ()
édition de cas
EditFolder ()
tout nouveau
newfolder ()
cas d'autre
FolderName = request.QueryString (FolderName)
FileName = request.Querystring (nom de fichier)
chemin = nom de dossier
Si path = alors path = server.mappath (./)
Showfolderlist (chemin)
fin de sélection
Fonction showfolderlist (Folderspec)
temp = request.servervariables (http_referer)
Temp = gauche (temp, instrrev (temp, /))
temp1 = len (dossierpec) -len (server.mappath (./))- 1
Si temp1> 0 alors
Temp1 = à droite (Folderspec, Cint (Temp1))
elseif temp1 = -1 alors
temp1 =
terminer si
tempurl = temp + remplacer (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 = téléchargement> 上传文件 </a> | <a href = <% = url%>? foldername = <% = upfolderspec% >> 向上 </a> | <a href = file.asp> 返回首页 </a> | <a href = <% = url%>? Action = logout> 退出 </a>
<Largeur du tableau = 100% Border = 0 CELLPADDING = 0 CELLSPACINE = 1 BGCOLOR = # 6595D6>
<tr bgColor = # e4e8ef>
<td width = 64%> <div align = Center> 名称 </div> </td>