📄 audit_contract.asp
字号:
<!--#include file="user_timeout.asp"-->
<!--#include file="getabcd.asp"-->
<%
c_no=trim(request("c_no"))
c_content=trim(request("c_content"))
c_total=trim(request("c_total"))
first_payment=trim(request("first_payment"))
'last_payment=c_total-first_payment
sql="select * from contract where c_no='"&c_no&"'"
rs.open sql,conn,1,1
c_no2=trim(rs("c_no"))
c_content2=trim(rs("c_content"))
c_total2=trim(rs("c_total"))
first_payment2=trim(rs("first_payment"))
'last_payment2=c_total2-first_payment2
rs.close
if c_no<>c_no2 or c_content<>c_content2 or c_total<>c_total2 or first_payment<>first_payment2 then
errmsg="合同“<font color=red>"&c_no2&"</font>”已被修改，请重新审核各项数据！"
return_url="main.asp"
else
sql="update contract set c_state='audited', audit_time='"&now()&"' where c_no='"&c_no&"'"
rs.open sql,conn,0,1
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 + -