把下面代码存到一个 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 : 호버 {
글꼴 크기 : 9pt;
}
A : Active {
글꼴 크기 : 9pt;
}
몸 {
글꼴 크기 : 9pt;
마진 왼쪽 : 0px;
마진-탑 : 0px;
마진 오른쪽 : 0px;
마진 바닥 : 0px;
라인 높이 : 20px;
}
TD {
글꼴 크기 : 9pt;
라인 높이 : 20px;
}
->
</스타일>
<%
action = request.querystring (action)
temp = split (request.servervariables (url),/)
url = temp (ubound (temp))
chklogin ()
사례 조치를 선택하십시오
케이스 로그 아웃
로그 아웃 ()
케이스 델리 테
델리 테 ()
케이스 저장 파일
SaveFile ()
케이스 editfile
fileEdit ()
케이스 뉴 파일
filenew ()
케이스 업로드
upload ()
사례 saveUpload
saveUpload ()
CASE DELFOLDER
Delfolder ()
사례 저장 폴더
SaveFolder ()
사례 편집자
editfolder ()
케이스 신 Newfolder
뉴 폴더 ()
다른 경우
folderName = request.queryString (folderName)
filename = request.querystring (filename)
경로 = 폴더 이름
if path = the the path = server.mappath (./)
Showfolderlist (경로)
종료 선택
함수 showfolderlist (폴더 스펙)
temp = request.servervariables (http_referer)
온도 = 왼쪽 (Temp, Instrev (temp,/))
temp1 = len (폴더 스펙) -len (server.mappath (./))- 1
Temp1> 0이면
temp1 = right (폴더 스펙, 고린 (temp1))
그렇다면 elseif temp1 = -1
temp1 =
끝 If
tempurl = temp+replace (temp1,/,/)+/
set fso = createobject (scripting.filesystemobject)
Upfolderspec = fso.getParentFolderName (Follerspec &/)
%>
<a href = <%= url%>? action = newfolder & folderName = <%= 폴더 스펙%>> 新建文件夹 </a> | <a href = <%= url%>? action = newfile & filename = <%= 폴더 스펙 &/%>> </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% 테두리 = 0 CellPadding = 0 CellSpacing = 1 BGCOLOR =#6595D6>
<tr bgcolor =#e4e8ef>
<td 너비 = 64%> <div align = center> </div> </td>