<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> 
<!--#include file="./classes/PayRequestHandler.asp"-->
<!--#include file="config.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gbk">
<title>财付通即时到帐支付</title>
</head>
<body>
<%
IF Trim(Request.QueryString("action"))="add" THEN


' 支付银行
bank_type=Trim(Request.Form("pay_bank_type"))
session("bankID")=bank_type
pay_qq=Trim(Request.Form("pay_qq"))
pay_phone=Trim(Request.Form("pay_phone"))
pay_work_type=Trim(Request.Form("pay_work_type"))
email=Trim(Request.Form("email"))
attach=pay_qq&"|"&pay_phone&"|"&pay_work_type&"|"&email' 附加数据, 请求回调页面时原样返回
 



Dim strDate
Dim strTime
Dim randNumber
Dim strReq

'8位日期格式YYYYmmdd
strDate = getServerDate()

'6位时间,格式hhmiss
strTime = getTime()

'4位随机数
randNumber = getStrRandNumber(1000,9999)

'10位序列号,可以自行调整。
strReq = strTime & randNumber

Dim key
Dim bargainor_id
Dim sp_billno
Dim transaction_id
Dim total_fee
Dim desc
Dim return_url



'商家订单号,长度若超过32位，取前32位。财付通只记录商家订单号，不保证唯一。
sp_billno = strReq

'财付通交易单号，规则为：10位商户号+8位时间（YYYYmmdd)+10位流水号,保证唯一性
transaction_id = bargainor_id & strDate & strReq

'商品价格（包含运费），以分为单位
total_fee = Trim(Request.Form("pay_total"))*100

'商品名称
desc = "订单号：" & transaction_id



'创建支付请求对象
Dim reqHandler
Set reqHandler = new PayRequestHandler

'初始化
reqHandler.init()

'设置密钥
reqHandler.setKey(key)

'-----------------------------
'设置支付参数
'-----------------------------
reqHandler.setParameter "bargainor_id", bargainor_id		'设置商户号
reqHandler.setParameter "sp_billno", sp_billno				'商户订单号
reqHandler.setParameter "transaction_id", transaction_id	'财付通交易单号
reqHandler.setParameter "total_fee", total_fee				'商品总金额,以分为单位
reqHandler.setParameter "return_url", return_url			'返回地址
reqHandler.setParameter "desc", desc						'商品名称
reqHandler.setParameter "attach", attach '附加信息
'用户ip,测试环境时不要加这个ip参数，正式环境再加此参数
reqHandler.setParameter "spbill_create_ip", Request.ServerVariables("REMOTE_ADDR")


'请求的URL
Dim reqUrl
reqUrl = reqHandler.getRequestURL()

'debug信息
'Dim debugInfo
'debugInfo = reqHandler.getDebugInfo()
'
'Response.Write("<br/>debugInfo:" & debugInfo & "<br/>")
'
'Response.Write("<br/>reqUrl" & reqUrl & "<br/>")
'response.End()

'重定向到财付通支付
reqHandler.doSend()

END IF


%>

</body>
</html>