<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> 
<!--#include file="../../inc/payconn.asp"-->
<!--#include file="classes/PayResponseHandler.asp"-->
<!--#include file="../payss.asp"-->
<%
'---------------------------------------------------------
'财付通即时到帐支付应答（处理回调）示例，商户按照此文档进行开发即可
'---------------------------------------------------------

SQL = "Select * From [L_pay] Where ptype='tenpay'"
Call ConnectionDatabase()
Set crs = Server.CreateObject("ADODB.Recordset")
crs.Open SQL,Conn,1,1
if crs.eof Then
 Response.Write "支付未设置！"
 Response.End()
End If

'密钥
Dim key
key = crs("sKey")

'创建支付应答对象
Dim resHandler
Set resHandler = new PayResponseHandler
resHandler.setKey(key)

'判断签名
If resHandler.isTenpaySign() = True Then
	
	Dim transaction_id
	Dim total_fee

	'交易单号
	transaction_id = resHandler.getParameter("sp_billno")

	'商品金额,以分为单位
	total_fee = resHandler.getParameter("total_fee")
	total_fee = total_fee/100
	
	'支付结果
	pay_result = resHandler.getParameter("pay_result")


	
	If "0" = pay_result Then
	
		'------------------------------
		Dim myPay
		Set myPay = New PayResult
		myPay.TruePrice = total_fee
		myPay.PayOK(transaction_id)	

		'处理业务开始
		'------------------------------
		
		'注意交易单不要重复处理
		'注意判断返回金额
		
		'------------------------------
		'处理业务完毕
		'------------------------------	

	SQL = "select * from mobile1 Where num='"&transaction_id&"'"
	Set Res = Server.CreateObject("ADODB.Recordset")
	Res.Open SQL,Conn,1,3
	if not res.bof or not res.eof then
	if pay_result=0 then res("stat")=1  '1表示成功
	if pay_result=0 then res("des")="支付成功"  '1表示成功
	if pay_result=0 then res("Okprice")=total_fee  '成功金额
	if pay_result<>0 then res("stat")=2  '2表示失败
	if pay_result<>0 then res("des")=des  '2表示失败
	res.update
	end if

		
		'调用doShow
		response.redirect "Result.asp?num="&transaction_id&""
		'resHandler.doShow("show.asp")
	
	Else

		'当做不成功处理
		Response.Write("支付失败")
	End If	

	SQL = "select * from mobile1 Where num='"&transaction_id&"'"
	Set Res = Server.CreateObject("ADODB.Recordset")
	Res.Open SQL,Conn,1,3
	if not res.bof or not res.eof then
	if pay_result=0 then res("stat")=1  '1表示成功
	if pay_result=0 then res("des")="支付成功"  '1表示成功
	if pay_result=0 then res("Okprice")=total_fee  '成功金额
	if pay_result<>0 then res("stat")=2  '2表示失败
	if pay_result<>0 then res("des")=des  '2表示失败
	res.update
	end if

Else

	'签名失败
	Response.Write("签名签证失败")

	Dim debugInfo
	'debugInfo = resHandler.getDebugInfo()
	'Response.Write("<br/>debugInfo:" & debugInfo & "<br/>")

End If


%>