📄 user_qrchk.asp
字号:
<!--#include file=conn.asp-->
<!--#include file=usercookies.asp-->
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>支付确认</title>
<link rel="stylesheet" type="text/css" href="1.CSS">
</head>
<body topmargin="0" leftmargin="0">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="778" height="371">
<tr>
<td width="778" colspan="4" height="46"><!--#include file=top.asp--></td>
</tr>
<tr>
<td width="157" height="299" valign="top"><br>
<!--#include file=userleft.asp--></td>
<td width="10" height="299" background="img/line_01.gif"> </td>
<td width="603" height="299" valign="top" align="center">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="45">
<tr>
<td width="94%" height="112">
<p align="center">
<%savedd()%>
</td>
</tr>
</table>
</td>
<td width="8" height="299" background="img/line_01.gif"> </td>
</tr>
<tr>
<td width="778" height="26" colspan="4"><!--#include file=copywright.asp--></td>
</tr>
</table>
</center>
</div>
</body>
</html>
<%
sub savedd()
dim rs,sql,username,ddhm,cash,zffs
ddhm=request("ddhm")
cash=request("cash")
zffs=request("zffs")
if not isnumeric(cash) or cash="" then
response.write "<script language=JavaScript>" & chr(13) & "alert('错误的汇款金额！');" & "history.back()" & "</script>"
response.end
end if
if ddhm="" then
response.write "<script language=JavaScript>" & chr(13) & "alert('错误的定单号码！');" & "history.back()" & "</script>"
response.end
end if
username=request.cookies("ijob")("username")
set rs = Server.CreateObject("ADODB.RecordSet")
sql="select * from [dingdan] where username='"&username&"' and ddhm='"&ddhm&"'"
rs.open sql,conn,1,3
if not rs.eof or not rs.bof then
response.write "<br>"
response.write "<script language=JavaScript>" & chr(13) & "alert('定单号码重复！');" & "history.back()" & "</script>"
response.end
else
rs.addnew
rs("username")=username
rs("zffs")=zffs
rs("ddhm")=ddhm
rs("cash")=cash
rs("data")=now()
rs.update
response.write "<li>定单提交成功，请等待管理员进行审核！"
end if
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -