📄 ordersent.asp
字号:
<!--#include file="../Comm/subconn.asp" -->
<%
Name=session("estore_userid") '登陆用户id
RecName=request.form("RecName") '必填字段
RecPhone=request.form("RecPhone") '必填字段
RecAddress=request.form("RecAddress") '必填字段
PayTypeID=request.form("PaytypeID") '必填字段
Notes=request.form("Notes") '
Recmail=request.form("Recmail") '
RecTime=request.form("RecTime") '
Zipcode=request.form("ZipCode") '
Discount=request.form("Discount") '使用点券
if reg<>"1" then
'判断是否正常购买，如果不是，需要登陆
if session("estore_userid")="" then
response.redirect "../error.asp?error=006"
response.end
end if
end if
'判断购物车是否为空
ProductList = Session("ProductList")
if productlist="" then
response.redirect "../error.asp?error=007"
response.end
else
sql="select * from ProdMain where ProdId in ("&productlist&") order by ProdId"
Set rs = conn.Execute( sql )
end if
'如果没有购买任何物品的出错处理
if session("sum")="" then response.redirect "../error.asp?error=007"
Total=session("Total")
'产生订单号（内部和外部）及定单产生日期及其他信息
BranchID="0022"
CoNo="000040"
'交易日期，格式：YYYYMMDD
yy=right(year(date),2)
mm=right("00"&month(date),2)
dd=right("00"&day(date),2)
riqi=yy & mm & dd
'生成订单号所有所需元素,格式为：小时，分钟，秒
xiaoshi=right("00"&hour(time),2)
fenzhong=right("00"&minute(time),2)
miao=right("00"&second(time),2)
'产生外部和内部定单号
BillNo=xiaoshi & fenzhong & miao
inBillNo=yy & mm & dd & "-" & xiaoshi & fenzhong & miao
'初始化用户选择的支付方式,产生对用户的反馈信息
PaytypeID=request("PaytypeID")
sqlp="select * from paydefault where ID="&PaytypeID
set rsp=server.createobject("adodb.recordset")
rsp.open sqlp,conn,1,1
if rsp("paymark")="1" then
PayKey = rsp("PayKey") '获取数据库密钥
StoreID = rsp("StoreID") '商户号
message="<br><a href="&rsp("payurl")
message= message&"?inBillNo="&inBillNo '商城订单号
message= message&"&Total="&Total '订单金额
message= message&"&PayKey="&PayKey '在线支付网关密钥
message= message&"&StoreID="&StoreID '在线支付网关用户ID
message= message&"&RecName="&RecName '收货人姓名
message= message&"&Recmail="&Recmail '收货人邮件
message= message&"&ZipCode="&ZipCode '收货人邮政编码
message= message&"&Notes="&Notes '订单备注
message= message&"&RecPhone="&RecPhone
message= message&"&RecAddress="&RecAddress
message= message&"><h3>立即进入 "&rsp("PayType")&"</h3></a><br><br>"
else
message="请通过银行及时给我们汇款/转帐!"
end if
PayType =rsp("PayType")
rsp.close
set rsp=nothing
Set rsadd=server.createobject("adodb.recordset")
rsadd.Open "OrderList" ,conn,3,3
Set rsdetail=server.createobject("adodb.recordset")
rsdetail.Open "OrderDetail" ,conn,3,3
'事务定义开始
conn.Begintrans
'操作之一开始写入订单列表信息
rsadd.AddNew
if Name="" then Name="未注册"
rsadd("UserId")=Name
rsadd("OrderNum")=inBillNo
rsadd("RecName")=RecName
rsadd("OrderSum")=Total
rsadd("RecPhone")=RecPhone
rsadd("RecAddress")=RecAddress
if ZipCode<>"" then rsadd("ZipCode")=ZipCode
if RecTime<>"" then rsadd("RecTime")=RecTime
if Recmail<>"" then rsadd("Recmail")=Recmail
if Discount="" then Discount=0
rsadd("Discount")=Discount
rsadd("PayType")=PayType
if Notes<>"" then rsadd("Notes")=Notes
rsadd.Update
'擦作二订单详细信息写入另外的表中
Sum = 0
While Not rs.EOF '把购买的产品资料读出来，写入定单详细资料表中
Quatity = CInt( Request( "Q_" & rs("ProdId")) )
If Quatity <= 0 Then
Quatity = CInt( Session(rs("ProdId")) )
If Quatity <= 0 Then Quatity = 1
End If
Session(rs("ProdName")) = Quatity
Sum = Sum + csng(rs("PriceList")) * Quatity
Sum = FormatNumber(Sum,2)
rsdetail.AddNew
if Name<>"" then rsdetail("UserId")=Name '下单用户号
rsdetail("OrderNum")=inBillNo '订单号码
rsdetail("ProdId")=rs("ProdId") '产品编码
rsdetail("ProdUnit")=Quatity '购买数量
rsdetail("BuyPrice")=rs("PriceList")'购买单价
rsdetail.Update
rs.MoveNext
Wend
'事务操作结束
conn.CommitTrans
rsdetail.close
set rsdetail=nothing
rsadd.close
set rsadd=nothing
Conn.Close
Session("ProductList") = ""
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>订单提交成功</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="Robots" content="index,follow">
<meta name="Abstract" content="">
<meta name="DC.Publisher" content="o">
<meta name="Description" Content="">
<meta name="Keywords" Content="">
<link rel="stylesheet" href="../cycoo15.css" type="text/css">
</HEAD>
<BODY>
<table border="0" cellspacing="1" cellpadding="0" align="center" valign=absmiddle width="100%" height="100%" bgcolor="B0266D">
<tr bgcolor="eeeeee">
<td bgcolor="eeeeee" align="center"><font color="B0266D">谢谢您，订单提交成功，请您记住您的订单号码，以便查询。</font></td>
</tr> <tr bgcolor="#FFFFFF">
<td width="100%" height="100%" align="center" valign="middle"> <font color="B0266D"><b>谢谢您的参与！</font><br>
<br><font color="B0266D">您的订单号码是：<b><%=inBillNo%></b><br>
<br>
</font>
<%
response.write message
%>
<br><br>
<a href="javascript:self.close()">点击关闭窗口</a></td>
</tr>
<tr bgcolor="eeeeee">
<td bgcolor="eeeeee" align="center"><font color="B0266D"></font></td>
</tr>
</table>
</BODY>
</HTML>
<%
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -