ordersent.asp

非常棒的网上购物系统www.yuhuanrd.gov.cn www.yuhuanrd.gov.cn www.yuhuanrd.gov.cn www.yuhuanrd.gov.cn

<!--#include file="../Comm/subconn.asp" -->
<!--#include file="../md5.asp" -->
<%
Set rs = conn.Execute("select * from pay") 
pay= rs("pay")
westid=rs("westid")
westback=rs("westback")
chinaid=rs("chinaid")
chinakey=rs("chinakey")
chinaback=rs("chinaback")
pay88id=rs("pay88id")
pay88name=rs("pay88name")
pay88back=rs("pay88back")
paypalid=rs("paypalid")
rs.close
set rs=nothing

Name=session("estore_userid")
RecName=request.form("RecName")
RecPhone=request.form("RecPhone")
CompPhone=request.form("CompPhone")
Gettime=request.form("Gettime")
RecAddress=request.form("RecAddress")
Notes=request.form("Notes")
Recmail=request.form("Recmail")
RecTime=request.form("RecTime")
Zipcode=request.form("ZipCode")
Discount=request.form("Discount")
paybackurl=request.form("paybackurl")		'该商品的返回页面
Pei=request.form("pei")
Fei=request.form("fei")
thiskou=FormatNumber(request.form("userkou"),2)
if Name="" then Name="游客" 
if reg<>"1" then              			  'reg的值不为1，表示不允许游客购物
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("sum")
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		'根据服务器时间生成订单号
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("UserId")=Name
rsadd("OrderNum")=inBillNo
rsadd("RecName")=RecName
rsadd("OrderSum")=Total
rsadd("RecPhone")=RecPhone
rsadd("RecAddress")=RecAddress
rsadd("pei")=pei     '配送方式
rsadd("fei")=fei     '配送费用
rsadd("thiskou")=thiskou
if compphone<>"" then rsadd("CompPhone")=CompPhone
if gettime<>"" then rsadd("gettime")=Gettime
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
if error>0 then
response.write " 操作订单列表生成错误！！"
return
end if
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("pei")=pei				'配送方式
rsdetail("fei")=fei				'配送费用
IF ERROR>0 THEN
response.write "操作订单详细信息表生成错误！！"
RETURN
END if
rsdetail.Update
rs.MoveNext
Wend
conn.CommitTrans
rsdetail.close
set rsdetail=nothing
rsadd.close
set rsadd=nothing
Session("ProductList") = ""


if pay="1" then			'西部支付
Dim MerchantID, MerchantOrderNumber, MerchantOrderAmount, MerchantPostBackURL
MerchantID =westid
MerchantPostBackURL=westback
MerchantOrderNumber = inBillNo
MerchantOrderAmount = Total
dim dddd
dddd=split(MerchantOrderAmount,".")
if ubound(dddd)=0 then
MerchantOrderAmount=cstr(MerchantOrderAmount) & ".00"
else
if len(dddd(1))=1 then MerchantOrderAmount=cstr(dddd(0)) & "." &cstr(dddd(1)) & "0"
if len(dddd(1))=2 then MerchantOrderAmount=cstr(MerchantOrderAmount)
if len(dddd(1))>2 then MerchantOrderAmount=cstr(dddd(0)) & "." & left(dddd(1),2)
end if
end if

if pay="2" then   '网银在线
	dim yy,mm,dd,v_ymd,v_mid,key,v_oid,v_moneytype,key_key,v_url,v_amount,v_rcvtel,f
	v_rcvtel=RecPhone 
	v_amount=Total
	v_rcvname =  RecName 
	v_ordername = RecName
	v_rcvaddr =  RecAddress
	v_rcvpost = ZipCode
	v_moneytype = "0"
	v_url=chinaback
	v_mid =chinaid
	key =chinakey
	v_oid=inBillNo
	dim ddd,ooo
ddd=split(v_amount,".")
if ubound(ddd)=0 then
v_amount=cstr(v_amount) & ".00"
else
if len(ddd(1))=1 then v_amount=cstr(ddd(0)) & "." &cstr(ddd(1)) & "0"
if len(ddd(1))=2 then v_amount=cstr(v_amount)
if len(ddd(1))>2 then v_amount=cstr(ddd(0)) & "." & left(ddd(1),2)
end if

yy=year(date)
mm=month(now)
if len(mm)=1 then mm="0"&mm
dd=day(Date)
if len(dd)=1 then dd="0"&dd
v_ymd=yy&mm&dd 
key_key = v_moneytype+v_ymd+v_amount+v_rcvtel+v_oid+v_mid+v_url+key
f=Ucase(trim(md5(key_key)))

end if

%>





<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>订单提交成功</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../shop.css" type="text/css">
</HEAD>
<body>
<%
if pay="1" then		'西部支付开始
%>
<table border="0" cellspacing="1" cellpadding="0" align="center" valign=absmiddle width=100%>
	<tr><td align="center" valign="middle" height=60><br><br><font color="#FF3333">恭喜，订单提交成功！您的订单号码是：
		<b><%=inBillNo%></b>&nbsp;&nbsp;&nbsp;&nbsp;本次交易金额为：<b><%=total%></b>元</font></td></tr>
	<tr><td align="center" valign="middle"  height=60>
		只有付款成功后，才能完成本次交易。您可选择在线实时支付，或传统的非在线付款方式。
	</td></tr>
</table>

<table border="0" cellspacing="1" cellpadding="0" align="center" valign=absmiddle width=450>
<tr><td align=center width=50% height=120>
<form action="http://www.WestPay.com.cn/Pay/WestPayReceiveOrderFromMerchant.asp" method="POST" name="SendOrderToWestPay"  target=new>
<input type="hidden" name="MerchantID" value="<%=MerchantID%>">
<input type="hidden" name="PostBackURL" value="<%=MerchantPostBackURL%>">
<input type="hidden" name="OrderNumber" value="<%=MerchantOrderNumber%>">
<input type="hidden" name="OrderAmount" value="<%=MerchantOrderAmount%>">
<input type="submit" name="submit" value="West-Pay在线支付">
</form>
</td>
<td align=center  width=50%  height=150>
<form method="post" action="../fukuan.asp" target=new><input type=submit  value="查看其它付款方法"></form>
</td>
</tr>
<tr><td colspan=2 align=center>本站使用西部支付平台，支持国内60余类银行卡在线实时支付<br><br>
<a href='http://www.westpay.com.cn'  target="_blank"><img src='../images/adv/westpay.gif' border=0></a>
</td></tr>
</table>

<%
end if			'西部支付结束
if pay="2" then		'网银在线支付开始
%>
<table border="0" cellspacing="1" cellpadding="0" align="center" valign=absmiddle width=100%>
<tr><td align="center" valign="middle" height=60>
	<br><br><font color="#FF3333">恭喜，订单提交成功！您的订单号码是：<b><%=inBillNo%></b>&nbsp;&nbsp;&nbsp;&nbsp;
	本次交易金额为：<b><%=total%></b>元</font> 
</td></tr>
<tr><td align="center" valign="middle"  height=60>
	只有付款成功后，才能完成本次交易。您可选择在线实时支付，或传统的非在线付款方式。
</td></tr>
</table>
<table border="0" cellspacing="1" cellpadding="0" align="center" valign=absmiddle width=450>
<tr><td align=center width=50% height=120>
	<form method="post" action="http://pay.chinaebank.cn/md5_select_bank.jsp" name="E_FORM" target=new>
	<input type=submit name=v_action value="网银在线实时支付">
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--
Sub button1_onclick
	window.history.back 
End Sub
-->
</SCRIPT>
	<input type="hidden" name="v_md5info" size="100"  value="<%=f%>">
	<input type="hidden" name="v_mid" value="<%=v_mid%>">
	<input type="hidden" name="v_oid" value="<%=v_oid%>">
	<input type="hidden" name="v_rcvtel" value="<%=v_rcvtel%>">
	<input type="hidden" name="v_ymd" value="<%=v_ymd%>">
	<input type="hidden" name="v_amount" value="<%=v_amount%>">
	<input type="hidden" name="v_rcvname" value="<%=v_rcvname%>">
	<input type="hidden" name="v_rcvaddr" value="<%=v_rcvaddr%>">
	<input type="hidden" name="v_ordername" value="<%=v_ordername%>">
	<input type="hidden" name="v_rcvpost" value="<%=v_rcvpost%>">
	<input type="hidden" name="v_moneytype"  value="<%=v_moneytype%>">
	<input type="hidden" name="v_url" value="<%=v_url%>">
	</form>
</td>
<td align=center  width=50%  height=120>
	<form method="post" action="../fukuan.asp" target=new><input type=submit  value="查看其它付款方法"></form>
</td></tr>
<tr><td colspan=2 align=center>
	本站使用“网银在线安全支付平台”，支持国内绝大多数银行卡在线实时支付<br><br>
	<a href='http://www.chinabank.com.cn/creditcard.shtml'  target="_blank">
	<img src='../images/adv/chinabank.gif' border=0></a>
</td></tr>
</table>
<%
end if			'网银在线支付结束
if pay="3" then		'pay88.com支付开始
%>
<table border="0" cellspacing="1" cellpadding="0" align="center" valign=absmiddle width=100%>
<tr><td align="center" valign="middle" height=60>
	<br><br><font color="#FF3333">恭喜，订单提交成功！您的订单号码是：<b><%=inBillNo%></b>&nbsp;&nbsp;&nbsp;&nbsp;
	本次交易金额为：<b><%=total%></b>元</font> 
</td></tr>
<tr><td align="center" valign="middle"  height=60>
	只有付款成功后，才能完成本次交易。您可选择在线实时支付，或传统的非在线付款方式。
</td></tr>
</table>
<table border="0" cellspacing="1" cellpadding="0" align="center" valign=absmiddle width=450>
<tr><td align=center width=50% height=120>

<form name=pay88 action="http://www.pay88.com:1888/postorderinfor_check.asp" method="post"  target=new>
<input type="hidden" name="shopname" value="<%=pay88name%>">
<input type="hidden" name="cash" value="<%=total%>">
<input type="hidden" name="custid" value="<%=inBillNo%>">
<input type="hidden" name="email" value="<%=Recmail%>">
<input type="hidden" name="phono" value="<%=RecPhone%>">
<input type="hidden" name="username" value="<%=pay88id%>">
<input type="hidden" name="note" value="<%=notes%>">
<input type=submit name=action value="PAY88在线支付">
</form>
</td>
<td align=center  width=50%  height=120>
	<form method="post" action="../fukuan.asp" target=new><input type=submit  value="查看其它付款方法"></form>
</td></tr>
<tr><td colspan=2 align=center>
	本站使用“Pay88.com在线支付平台”，支持国内绝大多数银行卡在线实时支付<br><br>
	<a href='http://www.pay88.com'  target="_blank">
	<img src='../images/adv/pay88.gif' border=0></a>
</td></tr>
</table>
<%
end if		'pay88.com在线支付结束
if pay="4" then		'paypal支付开始
%>
<table border="0" cellspacing="1" cellpadding="0" align="center" valign=absmiddle width=100%>
<tr><td align="center" valign="middle" height=60>
	<br><br><font color="#FF3333">恭喜，订单提交成功！您的订单号码是：<b><%=inBillNo%></b>&nbsp;&nbsp;&nbsp;&nbsp;
	本次交易金额为：<b><%=total%></b>元</font> 
</td></tr>
<tr><td align="center" valign="middle"  height=60>
	只有付款成功后，才能完成本次交易。您可选择在线实时支付，或传统的非在线付款方式。
</td></tr>
</table>
<table border="0" cellspacing="1" cellpadding="0" align="center" valign=absmiddle width=450>
<tr><td align=center width=50% height=120>

<form action="https://www.paypal.com/cgi-bin/webscr" method="post" target=new>
<input type="hidden" name="cmd" value="_xclick">
<input type="hidden" name="business" value="<%=paypalid%>">
<input type="hidden" name="item_name" value="<%=sitename%>(订单号:<%=inBillNo%>)">
<input type="hidden" name="amount" value="<%=total%>">
<input type=submit name=action value="PayPal在线支付">

</form>

</td>
<td align=center  width=50%  height=120>
	<form method="post" action="../fukuan.asp" target=new><input type=submit  value="查看其它付款方法"></form>
</td></tr>
<tr><td colspan=2 align=center>
	本站使用PayPal国际支付平台，安全、方便、实时支付<br><br>
	<a href='http://www.pay88.com'  target="_blank">
	<img src='../images/adv/paypal.gif' border=0></a>
</td></tr>
</table>
<%
end if		'paypal.com在线支付结束
if pay="0" then	'关闭在线支付时的显示页面
%>
<table border="0" cellspacing="1" cellpadding="0" align="center" valign=absmiddle width=100%>
	<tr><td align="center" valign="middle" height=60>
		<br><br>恭喜，订单提交成功！您的订单号码是：<b><%=inBillNo%></b>&nbsp;&nbsp;&nbsp;&nbsp;
		本次交易金额为：<b><%=total%></b>元
	</td></tr>
	<tr><td align="center" valign="middle"  height=60>
		只有付款成功后，才能完成本次交易。您可通过邮局、银行柜台或网上银行办理付款。
	</td></tr>
</table>
<table border="0" cellspacing="1" cellpadding="0" align="center" valign=absmiddle width=450>
<tr><td align=center  width=50%  height=150>
	<form method="post" action="../fukuan.asp" target=new><input type=submit  value="查看付款方法"></form></td>
<td align=center  width=50%  height=150>
	<form method="post" action="../index.asp" target=new><input type=submit  value="返回网站首页"></form>
</td></tr>
<tr><td align=center colspan=2>
付款后请尽快与我们联系，以便我们及时核实和处理您的订单。<br>
</td></tr>
</table>

<%
end if

Set rs = conn.Execute("select * from shopsetup") 
adm_mail=rs("adm_mail")			'接收订单通知的管理员邮箱
mailyesorno=rs("mailyesorno")		'是否发信
mailserver=rs("mailserver")		'smtp服务器地址
mailname=rs("mailname")			'发信邮箱
mailpassword=rs("mailpassword")		'发信邮箱密码
rs.close
set rs=nothing
if mailyesorno=1 then			'发信功能打开时继续执行
dim msg
CLStr=Chr(13) & Chr(10)
Set msg = Server.CreateObject("JMail.Message")
msg.silent = true
msg.Logging = true
msg.Charset = "gb2312"
msg.MailServerUserName = mailname
msg.MailServerPassword = mailpassword   
msg.From = mailname
msg.FromName = sitename
msg.AddRecipient (adm_mail)
msg.Subject = "飞来一张新订单("&inBillNo&")"
msg.Body = Name&"("&RecName&")在"&sitename&"("&siteurl&")提交新订单，订单号："&inBillNo&CLStr&CLStr
msg.Body = msg.Body&"请及时核实和处理该订单！"&CLStr
msg.Send (mailserver)
msg.close
set msg = nothing
end if
%>
</body>
</HTML>
<%
set conn=nothing
%>