<%
' 功能：即时到账交易接口接入页
' 版本：3.3
' 日期：2012-07-17
' 说明：
' 以下代码只是为了方便商户测试而提供的样例代码，商户可以根据自己网站的需要，按照技术文档编写,并非一定要使用该代码。
' 该代码仅供学习和研究支付宝接口使用，只是提供一个参考。
' /////////////////注意/////////////////
' 如果您在接口集成过程中遇到问题，可以按照下面的途径来解决
' 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）
' /////////////////////////////////////
%>
支付宝即时到账交易接口
<%
'/////////////////////请求参数/////////////////////
dim payment_type,out_trade_no,total_fee
'支付类型
payment_type = "1"
'必填，不能修改
'服务器异步通知页面路径
'notify_url = "http://demo.aspcms.com"&sitepath&"/order/alipay/notify_url.asp"
'需http://格式的完整路径，不能加?id=123这类自定义参数
'页面跳转同步通知页面路径
'return_url = "http://demo.aspcms.com"&sitepath&"/order/alipay/return_url.asp"
'需http://格式的完整路径，不能加?id=123这类自定义参数，不能写成http://localhost/
'卖家支付宝帐户
'seller_email ="" 'Request.Form("WIDseller_email")
'必填
'商户订单号
out_trade_no =Session("Print.Orderno") 'Request.Form("WIDout_trade_no")
'商户网站订单系统中唯一订单号，必填
'订单名称
'subject ="【网站订单】aspcms网站订单" 'Request.Form("WIDsubject")
'必填
'付款金额
total_fee =Session("Print.Ordertotal")' Request.Form("WIDtotal_fee")
'必填
'订单描述
dim body,show_url,anti_phishing_key,exter_invoke_ip
body ="" 'Request.Form("WIDbody")
'商品展示地址
show_url ="" 'Request.Form("WIDshow_url")
'需以http://开头的完整路径，例如：http://www.商户网址.com/myorder.html
'防钓鱼时间戳
anti_phishing_key = ""
'若要使用请调用类文件submit中的query_timestamp函数
'客户端的IP地址
exter_invoke_ip = ""
'非局域网的外网IP地址，如：221.0.0.1
'/////////////////////请求参数/////////////////////
dim sParaTemp
'构造请求参数数组
sParaTemp = Array("service=create_direct_pay_by_user","partner="&partner,"_input_charset="&input_charset ,"payment_type="&payment_type ,"notify_url="¬ify_url ,"return_url="&return_url ,"seller_email="&seller_email ,"out_trade_no="&out_trade_no ,"subject="&subject ,"total_fee="&total_fee ,"body="&body ,"show_url="&show_url ,"anti_phishing_key="&anti_phishing_key ,"exter_invoke_ip="&exter_invoke_ip )
dim objSubmit,sHtml
'建立请求
Set objSubmit = New AlipaySubmit
sHtml = objSubmit.BuildRequestForm(sParaTemp, "get", "确认")
response.Write sHtml
%>