<!-- #include file="yeepayCommon.asp" -->
<%
'**************************************************
'* @Description 易宝支付非银行卡支付专业版接口范例 
'* @V3.0
'* @Author rui.xin
'**************************************************

	Dim p2_Order
	Dim p3_Amt
	Dim p8_Url
	Dim pa7_cardNo
	Dim pa8_cardPwd
	Dim pd_FrpId
	Dim returnMsg

	Dim MyNum
	Dim MyPrice
	MyNum = ClearSQL(request("num"))
	MyPrice = ClearSQL(request("price"))


	Dim prs
	PayID = Request("PayID")
	If PayID = "" Then
		Response.Write("缺少参数！")
		Response.End()
	End If
	Set prs = Conn.Execute("Select psort,wangguan From [H_Plist] Where ID="&Cint(PayID))
	if prs.Eof Then
		Response.Write("找不到支付方式！")
		Response.End()
	Else
		psort = prs("psort")
		mypaytype = prs("wangguan")
	End If


	'	商家设置用户购买商品的支付信息.
	''易宝支付平台统一使用GBK/GB2312编码方式,参数如用到中文，请注意转码
	
	'	商户订单号,选填.
	''若不为""，提交的订单号必须在自身账户交易中唯一;为""时，易宝支付会自动生成随机的商户订单号.
	p2_Order				=	MyNum
	
	'	支付金额,必填.
	''单位:元，精确到分.
	p3_Amt					=	MyPrice
	
	'	商户接收支付成功数据的地址,支付成功后易宝支付会向该地址发送两次成功通知.
	p8_Url					= "http://"&Request.ServerVariables("HTTP_HOST")&"/pay/ebao/callBack.asp"
	
	'	商户扩展信息.
	''商户可以任意填写1K 的字符串,支付成功时将原样返回，此参数如用到中文，请注意转码.
	pa_MP						= "GamePay"
	
	' 非银行卡序列号
	pa7_cardNo			= request("cardNo")
	
	' 非银行卡密码
	pa8_cardPwd			= request("cardPwd")
	
	'	银行编码
	pd_FrpId			  = mypaytype
	
	' 非银行卡支付正式请求,接口测试通过后请调用该正式请求
	returnMsg = annulCard(p2_Order,p3_Amt,p8_Url,pa_MP,pa7_cardNo,pa8_cardPwd,pd_FrpId)
	' 非银行卡支付测试请求,测试时请调用该请求
	'returnMsg = annulCardTest(p2_Order,p3_Amt,p8_Url,pa_MP,pa7_cardNo,pa8_cardPwd,pd_FrpId)
	
  response.Write returnMsg
  response.End()
%>   
