<%
' 功能：即时到帐接口接入页
' 版本：3.2
' 日期：2011-03-31
' 说明：
' 以下代码只是为了方便商户测试而提供的样例代码，商户可以根据自己网站的需要，按照技术文档编写,并非一定要使用该代码。
' 该代码仅供学习和研究支付宝接口使用，只是提供一个参考。
	
' /////////////////注意/////////////////
' 如果您在接口集成过程中遇到问题，可以按照下面的途径来解决
' 1、商户服务中心（https://b.alipay.com/support/helperApply.htm?action=consultationApply），提交申请集成协助，我们会有专业的技术工程师主动联系您协助解决
' 2、商户帮助中心（http://help.alipay.com/support/232511-16307/0-16307.htm?sh=Y&info_type=9）
' 3、支付宝论坛（http://club.alipay.com/read-htm-tid-8681712.html）
' /////////////////////////////////////

%>

<!--#include file="class/alipay_service.asp"-->

<%
'/////////////////////请求参数/////////////////////
'//必填参数//

'请与贵网站订单系统中的唯一订单号匹配
out_trade_no = GetDateTime()
'订单名称，显示在支付宝收银台里的“商品名称”里，显示在支付宝的交易管理的“商品名称”的列表里。
subject      = out_trade_no  'request.Form("subject")
'订单描述、订单详细、订单备注，显示在支付宝收银台里的“商品描述”里
body         = "推广宝信息发布平台"  'request.Form("alibody")
'订单总金额，显示在支付宝收银台里的“应付总额”里
total_fee    = "80"           'request.Form("total_fee")

'//扩展功能参数——默认支付方式//

'默认支付方式，代码见“即时到帐接口”技术文档
paymethod = ""
'默认网银代号，代号列表见“即时到帐接口”技术文档“附录”→“银行列表”
defaultbank = ""

'//扩展功能参数——防钓鱼//

'获取客户端的IP地址，建议：编写获取客户端IP地址的程序
exter_invoke_ip   = ""
'防钓鱼时间戳
anti_phishing_key = ""
'注意：
'请慎重选择是否开启防钓鱼功能
'exter_invoke_ip、anti_phishing_key一旦被设置过，那么它们就会成为必填参数
'若要使用防钓鱼功能，建议使用POST方式请求数据
'示例：
'exter_invoke_ip = "202.1.1.1"
'Set objQuery_timestamp = New AlipayService
'anti_phishing_key = objQuery_timestamp.Query_timestamp()		'获取防钓鱼时间戳函数

'//扩展功能参数——其他//

'商品展示地址，要用http:// 格式的完整路径，不允许加?id=123这类自定义参数
show_url = "http://www.xxx.com/myorder.asp"
'自定义参数，可存放任何内容（除=、&等特殊字符外），不会显示在页面上
extra_common_param = ""

'//扩展功能参数——分润(若要使用，请按照注释要求的格式赋值)//

'提成类型，该值为固定值：10，不需要修改
royalty_type		= ""
'提成信息集
royalty_parameters	= ""
'注意：
'与需要结合商户网站自身情况动态获取每笔交易的各分润收款账号、各分润金额、各分润说明。最多只能设置10条
'各分润金额的总和须小于等于total_fee
'提成信息集格式为：收款方Email_1^金额1^备注1|收款方Email_2^金额2^备注2
'示例：
'royalty_type = "10"
'royalty_parameters	= "111@126.com^0.01^分润备注一|222@126.com^0.01^分润备注二"

'/////////////////////请求参数/////////////////////

'构造请求参数数组
sParaTemp = Array("service=create_direct_pay_by_user","payment_type=1","partner="&partner,"seller_email="&seller_email,"return_url="&return_url,"notify_url="&notify_url,"_input_charset="&input_charset,"show_url="&show_url,"out_trade_no="&out_trade_no,"subject="&subject,"body="&body,"total_fee="&total_fee,"paymethod="&paymethod,"defaultbank="&defaultbank,"anti_phishing_key="&anti_phishing_key,"exter_invoke_ip="&exter_invoke_ip,"extra_common_param="&extra_common_param,"royalty_type="&royalty_type,"royalty_parameters="&royalty_parameters)

'构造即时到帐接口表单提交HTML数据，无需修改
Set objService = New AlipayService
sHtml = objService.Create_direct_pay_by_user(sParaTemp)
response.Write sHtml
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>支付宝即时到帐</title>
</head>
<body>
</body>
</html>
