把下面代码存到一个 asp 文件中即可 , 方便管理服务器上的文件
<title> http://bbs.asp2004.net 制作 : 小灰 QQ : 103895 </title>
<meta http-equiv = content-type content = text/html; charset = gb2312>
<стиль типа = текст/css>
<!-
A: ссылка {
размер шрифта: 9pt;
}
A: посетил {
размер шрифта: 9pt;
}
A: Hover {
размер шрифта: 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))
хклогин ()
Выберите действие корпуса
вход в кейс
logout ()
Дело Делфля
Delfile ()
Case SaveFile
SaveFile ()
Кейс EditFile
fileedit ()
Case newfile
filenew ()
Загрузка корпуса
загрузить()
Case SaveUpload
SaveUpload ()
Дело Делфулдер
Delfolder ()
Case SaveFolder
SaveFolder ()
Дело редактирование
EditFolder ()
Case Newfolder
newfolder ()
случай еще
foldername = request.querystring (foldername)
filename = request.querystring (имя файла)
path = foldername
Если path = then path = server.mappath (./)
ShowFolderList (Path)
конец выбора
Function ShowFolderList (FOLDERSPEC)
temp = request.servervariables (http_referer)
Temp = Left (Temp, Instrrev (Temp,/))
temp1 = len (foterlespec) -len (server.mappath (./))- 1
Если temp1> 0 тогда
temp1 = справа (Foterlespec, Cint (temp1))
elseif temp1 = -1 тогда
temp1 =
конец, если
tempurl = temp+reply (temp1,/,/)+/
Установить fso = createObject (scripting.filesystemobject)
upfolderspec = fso.getParentFolderNam
%>
<a href = <%= url%>? action = newfolder & foldername = <%= fotherspec%>> 新建文件夹 </a> | <a href = <%= url%>? action = newfile & filename = <%= folderspec &/%>> 新建文件 </a> | <a href = <%= url%>? action = upload> 上传文件 </a> | <a href = <%= url%>? foldername = <%= uplodderspec%>> 向上 </a> | <a href = file.asp> 返回首页 </a> | <a href = <%= url%>? action = logout> 退出 </a>
<таблица ширины = 100% граница = 0 cellpadding = 0 cell -spacing = 1 bgcolor =#6595d6>
<tr bgcolor =#e4e8ef>
<td ширина = 64%> <div align = center> 名称 </div> </td>