?? list.asp
字號:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>網辰在線網頁維護系統1.0</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<style>
<!--
table{ font-family: 宋體; font-size: 9pt }
a{ font-family: 宋體; font-size: 9pt; color: rgb(0,32,64); text-decoration: none }
a:hover{ font-family: 宋體; color: rgb(255,0,0); text-decoration: underline }
a:visited{ color: rgb(128,0,0) }
-->
</style>
</head>
<body bgcolor="#FF8040">
<%
'《網辰在線網頁維護系統1.0使用協議》
'本程序由網辰獨立開發，是免費程序，但請注意下列事項
'1.本程序不得使用于任何非法用途
'2.本程序允許使用于商業用途
'3.本程序允許復制、發送給他人或提供下載
'4.允許修改本程序內的代碼，但請尊重網辰的工作，在程序發放過程中不要改變版本信息，變相盜用。
'5.網辰對程序可能給你帶來的任何不良后果不負任何責任
'6.在提供下載時請注明網辰連接（http://netspace.wojia.com）
'7.如果你未遵守上述事項，由此帶來的后果和損失自負
'程序運行環境
'IIS3/IIS4+中英文NT Server
'PWS4+中英文WIN95/WIN98
if Request.Cookies("password")="juchen" then
dim cpath,lpath
set fsoBrowse=CreateObject("Scripting.FileSystemObject")
if Request("path")="" then
lpath="/"
else
lpath=Request("path")&"/"
end if
cpath=Server.MapPath(lpath)
Sub GetFolder()
dim theFolder,theSubFolders
if fsoBrowse.FolderExists(cpath)then
Set theFolder=fsoBrowse.GetFolder(cpath)
Set theSubFolders=theFolder.SubFolders
Response.write"<a href='list.asp?path="&Request("oldpath")&"'>『<font color='ff2222'>回上級目錄</font>』</a><br>"
For Each x In theSubFolders
Response.write"<a href='list.asp?path="&lpath&x.Name&"&oldpath="&Request("path")&"'>『<font color='100030'>"&x.Name&"</font>』</a><br>"
Next
end if
End Sub
Sub GetFile()
dim theFiles
if fsoBrowse.FolderExists(cpath)then
Set theFolder=fsoBrowse.GetFolder(cpath)
Set theFiles=theFolder.Files
Response.write"<table border='0' width='100%' cellpadding='0'>"
For Each x In theFiles
Response.write"<tr><td width='40%'><a href='edit.asp?path="&lpath&x.Name&"' target='_blank'>〖<strong><font color='ff8050'>"&x.Name&"</font></strong>〗</a></td><td width='40%'>"&x.type&"</td><td width='20%'><p align='right'>"&x.size&" byte<br></td></tr>"
Next
end if
Response.write"</table>"
End Sub
%>
<table border="0" width="700" cellpadding="0" cellspacing="3" height="54">
<tr>
<td width="696" bgcolor="#F0D0C0" colspan="2" height="27"><p align="center"><font size="3">【<a
href="http://netspace.wojia.com"><span style="font-size: 12pt">網辰</span></a>在線網頁維護系統1.0】</font></td>
</tr>
<tr>
<td width="234" bgcolor="#F0D0C0" height="14">【當前目錄:<%=lpath%>】 </td>
<td width="462" bgcolor="#FFDBCA" height="14">〖文件〗 注：只允許文本編輯</td>
</tr>
<tr>
<td width="234" valign="top" bgcolor="#FFDBCA" height="1"><%Call GetFolder()%>
</td>
<td width="462" valign="top" bgcolor="#FFefdf" height="1"><%Call GetFile()%>
</td>
</tr>
</table>
<%else
response.write "對不起!你的密碼已經失效或者你輸錯了密碼，請返回重輸"
response.write "<a href='index.asp'>【返 回】</a>"
end if
%>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -