📄 del.asp
字号:
<%
response.buffer=true
response.expires=0%>
<!--#include file="./includes/setup.asp"-->
<head>
<style type="text/css">
<!--
p,td,input,select,div,tr,body,html{ font-size: 9pt ; }
a {color:#666666;font-size: 9pt;text-decoration:none; }
a:hover {color: #000000;}
a:active {color:#666666;}
-->
</style>
<%
num=request.querystring("num")
username=request.querystring("username")
ty=request.querystring("ty")
path=request.querystring("path")
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 path=<"\"+username then path="\"+username
if ty="dir" then
Set ds= fs.GetFolder(fullpath&HPDIRName&path)
ds.Delete(True)
%>
<script language=javascript>alert("删除成功！");</script>
<script language="vbs">
<!--
top.left.location.href="left.asp?num=<%=num%>&username=<%=username%>&path=<%=left(path,InstrRev(path,"\")-1)%>"
-->
</script>
<%
end if
if ty="file" then
Set ts= fs.Getfile(fullpath&HPDIRName&path)
ts.Delete(True)
%>
<script language=javascript>alert("删除成功！！");</script>
<script language="vbs">
<!--
top.main.location.href="main.asp?num=<%=num%>&username=<%=username%>&path=<%=left(path,InstrRev(path,"\")-1)%>"
-->
</script>
<%
end if
if ty="files" then
for each x in request("del")
Set ts= fs.Getfile(fullpath&HPDIRName&x)
ts.Delete(True)
next
%>
<script language=javascript>alert("所选文件已经完全删除！！");</script>
<script language="vbs">
<!--
top.main.location.href="main.asp?num=<%=num%>&username=<%=username%>&path=<%=left(path,InstrRev(path,"\")-1)%>"
-->
</script>
<%
end if
%>
</head>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -