?? ordersent.asp
字號:
<!--#include file="inc/conn.asp" -->
<%
UserName=session("UserName") '登陸用戶id
Receiver=request.form("Receiver") '必填字段
Phone=request.form("Phone") '必填字段
Add=request.form("Add") '必填字段
PayType=request.form("PayType") '必填字段
Notes=request.form("Notes") '
Email=request.form("Email") '
RecTime=request.form("RecTime") '
Postcode=request.form("Postcode") '
CompanyName=request.form("CompanyName")
Fax=request.form("Fax")
if UserName="" then UserName="游客"
'判斷購物車是否為空
ProductList = Session("ProductList")
if productlist="" then
response.redirect "error.asp?error=007"
response.end
else
sql="select * from Productwygk where Product_Id in ("&productlist&") order by Product_Id"
Set rs = conn.Execute(sql)
end if
if session("sum")="" then response.redirect "error.asp?error=007"
Total=session("sum")
'產(chǎn)生訂單號（內(nèi)部和外部）及定單產(chǎn)生日期及其他信息
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)
'產(chǎn)生外部和內(nèi)部定單號
BillNo=xiaoshi & fenzhong & miao
inBillNo=yy & mm & dd & "-" & xiaoshi & fenzhong & miao
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
rsadd("UserName")=UserName
rsadd("OrderNum")=inBillNo
rsadd("Receiver")=Receiver
rsadd("OrderSum")=Total
rsadd("Phone")=Phone
rsadd("Add")=Add
rsadd("RecTime")=now()
if Postcode<>"" then rsadd("Postcode")=Postcode
if Email<>"" then rsadd("Email")=Email
if CompanyName<>"" then rsadd("CompanyName")=CompanyName
if Fax<>"" then rsadd("Fax")=Fax
rsadd("PayType")=PayType
if Notes<>"" then rsadd("Notes")=Notes
if error>0 then
response.write "Mistake！！"
return
end if
rsadd.Update
'擦作二訂單詳細信息寫入另外的表中
Sum = 0
While Not rs.EOF '把購買的產(chǎn)品資料讀出來，寫入定單詳細資料表中
Quatity = CInt( Request( "Q_" & rs("Product_Id")) )
If Quatity <= 0 Then
Quatity = CInt(Session(rs("Product_Id")) )
If Quatity <= 0 Then Quatity = 1
End If
Session(rs("Title")) = Quatity
Sum = Sum + csng(rs("Price")) * Quatity
Sum = FormatNumber(Sum,2)
rsdetail.AddNew
if UserName<>"" then rsdetail("UserName")=UserName '下單用戶號
rsdetail("OrderNum")=inBillNo '訂單號碼
rsdetail("Product_Id")=rs("Product_Id") '產(chǎn)品編碼
rsdetail("ProductUnit")=Quatity '購買數(shù)量
rsdetail("BuyPrice")=rs("Price")'購買單價
rsdetail("OrderTime")=date()
IF ERROR>0 THEN
response.write "Mistake！！"
RETURN
END if
rsdetail.Update
rs.MoveNext
Wend
'事務操作結束
conn.CommitTrans
rsdetail.close
set rsdetail=nothing
rsadd.close
set rsadd=nothing
Conn.Close
set conn=nothing
Session("ProductList") =""
%>
<HTML>
<HEAD>
<TITLE>It is successful to refer</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="Contact" content="www.wygk.cn 網(wǎng)域高科 QQ：38306293">
<link href="mt_style.css" rel="stylesheet" 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">It is successful to buy 。</font></td>
</tr> <tr bgcolor="#FFFFFF">
<td width="100%" height="100%" align="center" valign="middle"> <font color="B0266D"><b>The order is referred successfully!</font><br>
<br><font color="B0266D">your order number is：<b><%=inBillNo%></b><br>
<br>
</font>
<%
response.write message
%>
<br><br>
<a href="javascript:self.close()">CloseWindow</a></td>
</tr>
</table>
</BODY>
</HTML>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -