📄 del_contract.asp
字号:
<!--#include file="user_timeout.asp"-->
<!--#include file="getabcd.asp"-->
<%
c_no=trim(request("c_no"))
sql="select * from contract where c_no='"&c_no&"'"
rs.open sql,conn,1,1
c_file=rs("c_file")
c_state=rs("c_state")
rs.close
if c_state<>"new" then
errmsg="合同“<font color=red>"&c_no&"</font>”已被审核，不能删除！"
return_url="main.asp"
else
if c_file<>"nothing" then
set c_fs=server.createobject("scripting.filesystemobject")
c_fs.deletefile(Server.MapPath("con_files/"&c_file))
c_fs.close
end if
sql="delete from contract where c_no='"&c_no&"'"
'response.write sql
'response.end
rs.open sql,conn,1,3
errmsg="合同“<font color=red>"&c_no&"</font>”删除成功！"
return_url="main.asp"
end if
%>
<html>
<head>
<title>北华航天工业学院 设备合同管理系统</title>
<META HTTP-EQUIV=REFRESH CONTENT='1; URL=<%=return_url%>'>
<link href="global.css" rel="stylesheet" type="text/css">
</head>
<body>
<div align="right"><a href="edit_pwd.asp">[修改密码]</a> <a href="help/index.html" target="_black">[帮助]</a> <a href="logout.asp">[退出系统]</a> </div>
<br><br><br><br><br><br><br><br><br><br><br>
<center><%=errmsg%></center>
</body>
</html>
<%call DBConnEnd()%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -