📄 left.asp
字号:
<%
response.buffer=true
response.expires=0%>
<!--#include file="./includes/setup.asp"--><head>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<link href="images/left.css" rel="stylesheet" type="text/css">
<%
num=request.querystring("num")
username=request.querystring("username")
path=request.querystring("path")
newdir=trim(request.form("newdir"))
if session("xichen_num")<>num or session("xichen_username")<>username or session("xichen_num")="" or session("xichen_username")="" then
%>
<script>alert('您的操作非法，已被系统记录！');location.href='index.asp'</script>
<%
end if
if newdir<>"" then
call create_dir(newdir)
end if
on error resume next
if path=<"\"+username then path="\"+username
Set ds= fs.GetFolder(fullpath&HPDIRName&path)
if ds="" then response.End()
Set ofs = ds.SubFolders
Response.Write "当前目录："&path &"<br>"
tmp="\"&username
Response.Write "<img src=images/file.gif border=0>"
if path<>tmp then
Response.Write "↑<a href='main.asp?num="&num&"&username="&username&"&path="&left(path,InstrRev(path,"\")-1)&"' target='main'>回上级目录</a> "
end if
Response.Write " <a href='main.asp?num="&num&"&username="&username&"&path=' target='main'>根目录</a><br>"
response.Write "<table width='100%'>"
For Each objFile in ofs
Response.Write "<tr><td><img src=images/file.gif border=0> <a href='main.asp?num="&num&"&username="&username&"&path="&path&"\"&objFile.Name&"' target='main'>"& objFile.Name &"</a></td><td><a href='del.asp?num="&num&"&username="&username&"&ty="&"dir"&"&path="&path&"\"&objFile.Name&"' onclick='if(!confirm(""确定要删除此目录吗？删除后将无法恢复！""))return false;'>删除</a></td></tr>"
Next
response.Write "</table>"
sub Create_dir(newdir)
pathtemp=fullpath&hpdirname&path&"\"&newdir
if fs.FolderExists(pathtemp)=true then
newdir="error"
else
fs.CreateFolder pathtemp
newdir="ok"
end if
end sub
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="JScript">
function check_input()
{
if (frm.newdir.value=="")
{ alert("请输入新建目录名称！");
return false;
}
return true;
}
</script>
</head>
<body background="images/left_bg.jpg" oncontextmenu="return false";return true">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<form name="frm" method="post" action="left.asp?num=<%=num%>&username=<%=username%>&path=<%=path%>" onSubmit="return check_input()"><tr>
<td align="center">
<input name="newdir" type="text" title="在此输入新建目录名称" onfocus="this.value=''" onClick="this.focus()" value="输入新建目录名" size="16">
<input name="建立" type="submit" id="建立" class="INPUT1" value="新建目录">
</td>
</tr></form>
</table>
<table width="200" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="30" align="center"><input name="button" type="button" value="刷新目录" class="input1" onClick="document.location.reload()"></td>
</tr>
<tr>
<td width="903" height="30" align="center"><a href="exit.asp" target="_top">安全退出</a></td>
</tr>
</table>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -