📄 user_qrchk.asp
字号:
<!--#include file=conn1.asp-->
<!--#include file="config.asp"-->
<!--#include file=usercookies.asp-->
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=title%>--支付确认结果</title>
<link href="inc_style.css" rel="stylesheet" type="text/css">
</head>
<body topmargin="0" leftmargin="0">
<!--#include file=top.asp-->
<div align="center">
<center>
<table border="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111" width="760" height="36">
<tr>
<td width="157" height="34" valign="top"><br>
<!--#include file=userleft.asp--></td>
<td width="10" height="34" background="images/line_01.gif"> </td>
<td width="603" height="34" valign="top" align="center">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="9">
<tr>
<td width="94%" height="9">
<p align="center">
<%savedd()%>
</td>
</tr>
</table>
</td>
<td width="8" height="34" background="images/line_01.gif"> </td>
</tr>
<!--#include file=end.htm-->
</table>
</center>
</div>
</body>
</html>
<%
sub savedd()
dim rs,sql,username,ddhm,cash,zffs,liuyan
ddhm=request("ddhm")
cash=request("cash")
liuyan=request("liuyan")
zffs=request("zffs")
if zffs="" or zffs="0" then
response.write "<script language=JavaScript>" & chr(13) & "alert('请选择支付方式！');" & "history.back()" & "</script>"
response.end
end if
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("cnmai")("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("liuyan")=liuyan
rs("ddhm")=ddhm
rs("cash")=cash
rs("zffs")=zffs
rs("data")=now()
rs.update
response.write "<li>定单提交成功，请等待管理员进行审核！"
response.write "<meta http-equiv=refresh content=""1;URL=user_qr.asp"">"
end if
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -