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

Call DoWebHead(0,0)
Call Pay_True()
'----------------------------中间 结束----------------------------
Call DoWebEnd()

Sub Pay_True_Err(emsg)
   dim smsg
   smsg = ""
   smsg = smsg & "<table cellspacing=1 cellpadding=4 class=table>"
   smsg = smsg & "<tr><td class=td align=center><b>"&tit&"　　错误信息</b></td></tr>"
   smsg = smsg & "<tr class=tr><td align=center height=200 class=htd>"
   smsg = smsg & "<font class=red>"&emsg&"</font><br /><br /><br />"
   smsg = smsg & "<input type=button value='点击返回 用户中心' onClick=""javascript:window.location.href='Index.asp';"">&nbsp;&nbsp;<input type=button value='点击返回 理财中心' onClick=""javascript:window.location.href='Emoney.asp';"">"
   smsg = smsg & "</td></tr></table>"
   Cls.HtmlRcod "body",smsg
   Cls.OutPage
End Sub

Sub Pay_True()
	dim obj_pay,e_id,e_username,e_amount,e_emoney,e_ispay
	set obj_pay=new AsaiMHPay
	Call obj_pay.pay_return()
	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 e_id,e_username,e_amount,e_emoney,e_ispay from AsaiMHNotesEmoney where e_ordernum='"&obj_pay.pay_ordernum&"'"
	set rs=Cls.exec(sql,1)
	if rs.eof then
		rs.close
		Call Pay_True_Err("错误的支付反馈表单 （"&obj_pay.pay_sort&":<font class=blue>"&obj_pay.pay_ordernum&"</font>）！<br />如有问题请与网站管理员联系处理。")
		set obj_pay=nothing
		Exit Sub
	End If
	e_id=rs("e_id")
	e_username=rs("e_username")
	e_amount=rs("e_amount")
	e_emoney=rs("e_emoney")
	e_ispay=rs("e_ispay")
	rs.close
	if e_ispay=true then
		Call Pay_True_Err("在线购买"&Cls.web_unit&"订单（"&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(e_amount,1)) then
		Call Pay_True_Err("在线支付订单（"&obj_pay.pay_sort&":"&obj_pay.pay_ordernum&"）的应支付金额（"&e_amount&val_unit&"）与实支付金额（"&obj_pay.pay_amount&val_unit&"）不等！请与网站管理员联系处理。")
		set obj_pay=nothing
		Exit Sub
	End If
	set obj_pay=nothing
	dim smsg
	smsg = ""
	smsg = smsg & "<table cellspacing=1 cellpadding=4 class=table>"
	smsg = smsg & "<tr><td class=td align=center><b>"&tit&"　　在线购买成功</b></td></tr>"
	smsg = smsg & "<tr class=tr><td align=center height=200 class=htd>"
	smsg = smsg & "您（"& e_username&"）已成功支付人民币&nbsp;<font class=red><b>"& fm_price(e_amount,1)&"</b></font>&nbsp;元购买了&nbsp;<font class=red><b>"& e_emoney&"</b></font>&nbsp;"&Cls.web_unit&"!<br /><br /><br />"
	smsg = smsg & "<input type=button value='点击返回 用户中心' onClick=""javascript:window.location.href='Index.asp';"">&nbsp;&nbsp;<input type=button value='点击返回 理财中心' onClick=""javascript:window.location.href='Emoney.asp';"">"
	smsg = smsg & "</td></tr></table>"
	Cls.HtmlRcod "body",smsg
	Cls.OutPage
	If int(e_emoney)>0 Then
		SQL="update AsaiMHUserData set emoney=emoney+"&int(e_emoney)&" where username='"&e_username&"'"
		Call Cls.exec(SQL,0)
	End If
	Call Cls.exec("update AsaiMHNotesEmoney set e_ispay=1,e_ptim='"&Cls.now_time&"' where e_id="&e_id,0)
End Sub
%>
