<!-- #Include File="../Include/Channel_Shop.asp" -->
<!-- #Include File="Common.asp" -->
<%
'=======================================================
' 欢迎使用《阿赛大型门户网站系统V3.0》，简称“AsaiMHV3”
' 技术支持、商业版咨询、官方唯一指定联系QQ“4941172”
' 官方网站：http://77ya.com      程序负责人：阿赛
'=======================================================
tit="网银在线支付反馈"

Call DoWebHead(0,0)
Call Channel_Load(0)
tit_fir=Cls.ChannelName
Call pay_true()
Call Channel_End(0)
Call DoWebEnd()

Sub pay_true()
	dim obj_pay,o_id,o_nname,o_prices,o_ispay,sTmp
	Set obj_pay=new AsaiMHPay
	Call obj_pay.pay_return()
	if obj_pay.pay_ordernum="" then
		Call pay_true_err("请勿非法提交")
		Set obj_pay=nothing
		Exit Sub
	End if
	Select case cint(obj_pay.val_num)	'0为验证通过
	case 1
		Set obj_pay=nothing
		Call pay_true_err("错误的支付反馈表单 （反馈信息不完整）！")
		Exit Sub
	case 2
		Set obj_pay=nothing
		Call pay_true_err("错误的验证签名 （非法提交或参数错误）！")
		Exit Sub
	End Select
	sql="Select top 1 id,nname,prices,ispay from AsaiMHShopOrders where ordernum='"&obj_pay.pay_ordernum&"' and ispayment=1"
	Set rs=Cls.exec(sql,1)
	if rs.eof then
		rs.close
		Call pay_true_err("错误的支付反馈表单 （"&obj_pay.pay_sort&":"&obj_pay.pay_ordernum&"）！ 请与网站管理员联系处理。")
		Set obj_pay=nothing
		Exit Sub
	End if
	o_id=rs("id")
	o_nname=rs("nname")
	o_prices=rs("prices")
	o_ispay=rs("ispay")
	rs.close
	if o_ispay=true then
		Call pay_true_err("在线支付订单 （"&obj_pay.pay_sort&":"&obj_pay.pay_ordernum&"） 已支付！请与网站管理员联系处理。")
		Set obj_pay=nothing
		Exit Sub
	End if
	if cstr(fm_price(obj_pay.pay_amount,1))<>cstr(fm_price(o_prices,1)) then
		Call pay_true_err("在线支付订单 （"&obj_pay.pay_sort&":<font class=blue>"&obj_pay.pay_ordernum&"</font>） 的应支付金额 （<font class=blue>"&o_prices&val_unit&"</font>） 与实支付金额 （"&obj_pay.pay_amount&val_unit&"） 不等！<br />如有问题请与网站管理员联系处理。")
		Set obj_pay=nothing
		Exit Sub
	End if
	Call Cls.exec("update AsaiMHShopOrders Set ispay=1,pay_tim='"&Cls.now_time&"' where id="&o_id,0)
	sTmp = "<table cellspacing=1 cellpadding=4 class=table>" & _
		vbcrlf&"<tr><td colspan=2 class=td align=center><b>"&tit&"　　在线支付成功</b></td></tr>" & _
		vbcrlf&"<tr class=tr>" & _
		vbcrlf&"<td width='20%'>订 单 号：</td>" & _
		vbcrlf&"<td width='80%'>"&obj_pay.pay_ordernum&"</td>" & _
		vbcrlf&"</tr>" & _
		vbcrlf&"<tr class=tr>" & _
		vbcrlf&"<td>支付金额：</td>" & _
		vbcrlf&"<td>"&obj_pay.pay_amount&"</td>" & _
		vbcrlf&"</tr>" & _
		vbcrlf&"<tr class=tr>" & _
		vbcrlf&"<td>支付时间：</td>" & _
		vbcrlf&"<td>"&Cls.now_time&"</td>" & _
		vbcrlf&"</tr>" & _
		vbcrlf&"<tr class=tr>" & _
		vbcrlf&"<td>支付状态：</td>" & _
		vbcrlf&"<td><font class=red>成功支付！</font></td>" & _
		vbcrlf&"</tr>" & _
		vbcrlf&"<tr class=tr><td colspan=2 align=center height=50><input type=button value='点击继续购物' onClick=""javascript:window.location.href='Index.asp';""></td></tr>" & _
		vbcrlf&"</table>"
	Call ShowMsg(tit&" 成功信息",""&sTmp&"") 
	Set obj_pay=nothing
End Sub

Sub pay_true_err(emsg)
	Call ShowMsg(tit&" 错误信息","<p align=center>"&emsg&"</p>") 
End Sub
%>
