📄 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 + -