📄 pass_fpay.asp

📁 关于设备管理的大型系统

💻 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
last_payment=rs("last_payment")
'response.write last_payment
'response.end
c_state=rs("c_state")
rs.close
if c_state<>"audited" then
	errmsg="合同“<font color=red>"&c_no&"</font>”已取消了审核，不能支付首款！"
	return_url="main.asp"
else
	if last_payment<>0 then
		sql="update contract set c_state='f_passed', firstpay_time='"&now()&"', lastpay_time='"&dateadd("yyyy",1,now())&"' where c_no='"&c_no&"'"
	else
		sql="update contract set c_state='l_passed', firstpay_time='"&now()&"', lastpay_time='"&now()&"' where c_no='"&c_no&"'"
	end if
	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 + -