把下面代码存到一个 ASP 文件中即可 方便管理服务器上的文件 方便管理服务器上的文件
<title> http://bbs.asp2004.net 制作 : 小灰 QQ : 103895 </title>
<meta http-oquiv = content-type content = text/html; Charset = GB2312>
<estilo type = text/css>
<!-
A: enlace {
tamaño de fuente: 9pt;
}
A: Visitado {
tamaño de fuente: 9pt;
}
A: Hover {
tamaño de fuente: 9pt;
}
A: Activo {
tamaño de fuente: 9pt;
}
cuerpo {
tamaño de fuente: 9pt;
margen-izquierda: 0px;
margen-top: 0px;
margen-derecha: 0px;
Margen-Bottom: 0px;
Línea de altura: 20px;
}
TD {
tamaño de fuente: 9pt;
Línea de altura: 20px;
}
->
</style>
<%
Action = request.QueryString (Acción)
temp = split (request.servervariables (url),/)
url = temp (Ubound (temp))
Chklogin ()
Seleccionar acción de caso
INGOMPARACIÓN DE CASO
logrout ()
Case Delfile
Delfile ()
Case SaveFile
saveFile ()
Arcil de edición de casos
fileEdit ()
Caso Newfile
FileNew ()
Caso de carga
subir()
Case saveupload
saveUpload ()
Case Delfolder
Delfolder ()
Case savefolder
savefolder ()
Case EditFolder
editFolder ()
Caso Newfolder
Newfolder ()
caso
FolderName = request.QueryString (FolderName)
FileName = request.QueryString (nombre de archivo)
ruta = Nombre de pliegue
if path = entonces rath = server.mappath (./)
Showfolderlist (ruta)
final seleccionar
Función showfolderlist (carpetaspec)
temp = request.servervariables (http_referer)
temp = Left (temp, instrrev (temp,/))
TEMP1 = LEN (FOPERSPEC) -LEN (SERVER.MAPPATH (./))- 1
Si temp1> 0 entonces
TEMP1 = Right (FolderPec, Cint (TEMP1))
elseif temp1 = -1 entonces
temp1 =
final si
tempurl = temp+reemplazar (temp1,/,/)+/
Establecer fso = createObject (scripting.filesystemObject)
upfederspec = fso.getParentFolderName (carpetaspec &/)
%>
<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 = logrout> 退出 </a>
<ancho de tabla = 100% border = 0 CellPadding = 0 CellSpacing = 1 bgcolor =#6595d6>
<tr bgcolor =#e4e8ef>
<td width = 64%> <div align = Center> 名称 </div> </td>