xt_order_add.asp

用ASP写的电子购物系统

 %><!--#INCLUDE FILE="include/error.asp" --><%

  Response.End 
 end if 
else
session("remain")=0

end if 
'交易开始
connbj.BeginTrans

if session("remain") = 0 then 

recoup=clng(rs("recoup")) + clng(tradesum)

relen=len(cstr(recoup))
for i=0 to 9-relen-1
recoup="0"+cstr(recoup)
next

else

recoup="000020000"
end if
'Response.Write remains
'Response.End 
remains=check.eproremains(cardnum,cstr(remains))  
REM by gzepro

sql1="update tbaccount set recoup='" + cstr(recoup) + "',remains='" + remains + "' where cardnum='" + cardnum + "'"
connbj.Execute (sql1)

'ADD By gzepro
cmdTemp.CommandText ="select trade_id.nextval as  tradeid  from dual"
Set rstTemp = Server.CreateObject("ADODB.Recordset")
rstTemp.Open cmdTemp, , adOpenStatic, adLockReadOnly

    
tradeid=rstTemp("tradeid")
rstTemp.Close 
session("payno")=tradeid  'ADD by gzepro

sql2="insert into tblog (tradenum,cardnum,tradesum,tradedate) values (trade_id.nextval,'" + cardnum + "','" + tradesum + "',sysdate)"
connbj.Execute (sql2)
    
    rstOrder.Open "order_item",conn, adOpenKeyset, adLockOptimistic
	set market_name_rs=server.CreateObject ("adodb.recordset")
    for i=1 to  recordset.RecordCount 
        rstOrder.AddNew 
			rstOrder("order_id")=orderid
			rstOrder("Product_id")=recordset("Product_id")
			rstOrder("name")=recordset("name")
			rstOrder("Quantity")=recordset("Quantity")
			rstOrder("market_id")=recordset("market_id")
			market_name_rs.Open "select name from market where id=" & recordset("market_id"),conn,1,1
			if not isnull(market_name_rs(0)) then
			   rstOrder("market_name")=market_name_rs(0)
			end if
			market_name_rs.Close
			if pay_currency="美金" then
				rstOrder("Adjusted_price")=recordset("List_price")
			else
			    rstOrder("Adjusted_price")=recordset("Rmb_price")
			end if
			if not Isnull(recordSet("Product_type")) then
			   if trim(cstr(recordSet("Product_type")))<>"" then
			   rstOrder("Product_type")=trim(cstr(recordSet("Product_type")))
			   end if
			end if
        rstOrder.Update 
        recordset.MoveNext 
    next 
    set market_name_rs=nothing
    rstOrder.Close 
    
  
              
    rstOrder.Open "shop_order",, adOpenKeyset, adLockOptimistic
    rstOrder.AddNew
        rstOrder("order_id")=orderid
        rstOrder("shoppername")=ShopperID
        rstOrder("currency")=pay_currency
        rstOrder("ship_fee")=ship_fee
        rstOrder("total")=total_price
        rstOrder("status")="未交易"
        rstOrder("date_entered")=now
        rstOrder("date_changed")=now
        rstOrder("sname")=ship_to_name
        rstOrder("sstreet")=ship_to_street
        rstOrder("scity")=ship_to_city
        rstOrder("sprovince")=ship_to_state
        rstOrder("scountry")="中国"
        rstOrder("sphone")=ship_to_phone
        rstOrder("semail")=ship_to_email
        rstOrder("szip")=ship_to_zip
        rstOrder("bname")=bill_to_name
        rstOrder("bstreet")=bill_to_street
        rstOrder("bcity")=bill_to_city
        rstOrder("bprovince")=bill_to_state
        rstOrder("paymode")=bill_to_method
        rstOrder("bcountry")="中国"
        rstOrder("bphone")=bill_to_phone
        rstOrder("bemail")=bill_to_email
        rstOrder("bzip")=bill_to_zip 
        rstOrder("description")=description 
        rstOrder("pay_name")=session("pagusername")  
        rstOrder("pay_no")=session("payno")
        rstOrder("remain")=cdbl(clng(session("remain")))/100
        rstOrder("PayMode_name")=PayMode_name
    rstOrder.Update
   
    rstOrder.Close
    recordset.Close 
   
    
    conn.Execute "Delete FROM basket WHERE session_id = '" & session.SessionID &  "'"
    
  '  Response.Write session.SessionID
  '  Response.End 
        
'事务处理试验    
'   sql33="delete from ggg"
'   connbj.Execute (sql33)
    
    
connbj.CommitTrans

end if
end if
end if
end if
end if

set check=nothing
rs.Close 
set rs=nothing
connbj.Close
set connbj=nothing

'Response.Write "交易结束"


else


    cmdTemp.CommandText = " select seq_orderid.nextval as orderid from dual"
    Set rstTemp = Server.CreateObject("ADODB.Recordset")
    rstTemp.Open cmdTemp, , adOpenStatic, adLockReadOnly
    
    orderid=rstTemp("orderid")
    rstTemp.Close 
    
    Set rstOrder = Server.CreateObject("ADODB.Recordset")
    
    cmdTemp.CommandText = "SELECT * FROM basket WHERE session_id = '" & session.SessionID  & "' order by product_id"

    rstOrder.Open cmdTemp, , adOpenKeyset, adLockReadOnly
    total_price=0
    For i = 1 to rstOrder.RecordCount
        If rstOrder.EOF then exit for
	        quantity=rstOrder("quantity").value
	        if pay_currency="美金" then 
				adjusted_price=rstOrder("list_price").value
			else 
				adjusted_price=rstOrder("rmb_price").value
			end if 
	        subtotal_price=formatnumber(quantity)*formatnumber(adjusted_price,2)
			total_price=total_price+subtotal_price
		rstOrder.MoveNext
	next 
		
	rstOrder.Close 
    total_price=total_price+formatnumber(ship_fee)
    
    

    rstOrder.Open "order_item",conn, adOpenKeyset, adLockOptimistic
	set market_name_rs=server.CreateObject ("adodb.recordset")
    for i=1 to  recordset.RecordCount 
        rstOrder.AddNew 
			rstOrder("order_id")=orderid
			rstOrder("Product_id")=recordset("Product_id")
			rstOrder("name")=recordset("name")
			rstOrder("Quantity")=recordset("Quantity")
			rstOrder("market_id")=recordset("market_id")
			market_name_rs.Open "select name from market where id=" & recordset("market_id"),conn,1,1
			if not isnull(market_name_rs(0)) then
			   rstOrder("market_name")=market_name_rs(0)
			end if
			market_name_rs.Close
			if pay_currency="美金" then
				rstOrder("Adjusted_price")=recordset("List_price")
			else
			    rstOrder("Adjusted_price")=recordset("Rmb_price")
			if not Isnull(recordSet("Product_type")) then
			   if trim(cstr(recordSet("Product_type")))<>"" then
			   rstOrder("Product_type")=trim(cstr(recordSet("Product_type")))
			   end if
			end if
			end if
        rstOrder.Update 
        recordset.MoveNext 
    next 
    set market_name_rs=nothing 
    rstOrder.Close 
    
  
              
    rstOrder.Open "shop_order",, adOpenKeyset, adLockOptimistic
    rstOrder.AddNew
        rstOrder("order_id")=orderid
        rstOrder("shoppername")=ShopperID
        rstOrder("currency")=pay_currency
        rstOrder("ship_fee")=ship_fee
        rstOrder("total")=total_price
        rstOrder("status")="未交易"
        rstOrder("date_entered")=now
        rstOrder("date_changed")=now
        rstOrder("sname")=ship_to_name
        rstOrder("sstreet")=ship_to_street
        rstOrder("scity")=ship_to_city
        rstOrder("sprovince")=ship_to_state
        rstOrder("scountry")="中国"
        rstOrder("sphone")=ship_to_phone
        rstOrder("semail")=ship_to_email
        rstOrder("szip")=ship_to_zip
        rstOrder("bname")=bill_to_name
        rstOrder("bstreet")=bill_to_street
        rstOrder("bcity")=bill_to_city
        rstOrder("bprovince")=bill_to_state
        rstOrder("paymode")=bill_to_method
        rstOrder("bcountry")="中国"
        rstOrder("bphone")=bill_to_phone
        rstOrder("bemail")=bill_to_email
        rstOrder("bzip")=bill_to_zip 
        rstOrder("description")=description   
        rstOrder("pay_name")="非卡消费"
        rstOrder("pay_no")="非卡消费"
        rstOrder("remain")=0
        rstOrder("PayMode_name")=PayMode_name
    rstOrder.Update
   
    rstOrder.Close
    recordset.Close 
   
    
    conn.Execute "Delete FROM basket WHERE session_id = '" & session.SessionID &  "'"
    

end if


   

 %>   
<html>

<head>
    <title>确认</title>
    <meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
    <LINK REL=stylesheet HREF="ecom.css" TYPE="text/css">
</head>

<body topmargin="0">

<!--#INCLUDE FILE = "include/toolbar.asp" -->
<br>
<table border="0" width="425" align="center">
  <tr>
  <td align="center" height=25 bgColor=<%=tdcolor4%>>
  多谢光临，您的订单号是<%=orderid%>。

  </td>
  </tr>

</table>

<!--#INCLUDE FILE = "include/footer.asp" -->
</body>
</html>

<%else%>
    <!--#INCLUDE FILE="include/error.asp" -->
<%end if%>
<%if bill_to_method=5 then%>
<script language="Javascript">
bank=window.open ('','bank')
bank.focus();
</script>
<%end if%>