📄 delfile.asp
字号:
<!--#INCLUDE FILE="sysinc.asp" -->
<html>
<head>
<LINK href="../style.css" rel=stylesheet>
<title>文件删除</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<br>
<br>
<br>
<br>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<td height="8">
<div align="center">
<%sqlstr="select * from 文件信息 where 文件编号="&request("id")
my_rs.open sqlstr,my_Conn,1,1
filename=my_rs("文件名")
if session("权限")="管理" or my_rs("上传人")=session("Username") then
my_rs.close
set my_rs=nothing
Set my_rs= Server.CreateObject("ADODB.Recordset")
sqlstr="delete from 文件信息 where 文件编号="&request("id")
my_rs.open sqlstr,my_Conn,1,3
response.write "成功删除文件!!"
'my_rs.close
set my_rs=nothing
set my_rs=server.createobject("adodb.recordset")
sqlstr="select * from 系统日志信息"
my_rs.open sqlstr,my_Conn,1,3
my_rs.addnew
my_rs("使用者名称")=session("username")
my_rs("所做事件")="删除文件，文件名是"&filename
my_rs.update
my_rs.close
else
response.write "你没有权限删除该文件，请与管理员联系!!"
end if%>
<%
response.write "<input type='button' value='关闭窗口' name='B2' class='buttonface' onclick='javascript:self.close()'>"
%>
</div>
</td>
</tr>
<tr>
<td>
<div align="center"> </div>
</td>
</tr>
</table>
<br>
<br>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -