<!-- 支付宝 包含头文件 放在顶部 开始-->
<!--#include file="Alipay_Payto.asp"-->
<!-- 支付宝 包含头文件 放在顶部 结束-->

<!-- 支付宝 接口代码 开始 -->
<%
dim cmd,subject,body,order_no,prices,rurl,types,number,transport,ordinary_fee,express_fee,readonly,buyer_msg,buyer,buyer_name,buyer_address,buyer_zipcode,buyer_tel,buyer_mobile,partner
dim t1,t2,t3,t4,t5
dim AlipayObj,itemUrl
	t1				=	"https://www.alipay.com/payto:"	'支付接口
	t2		=	fyt2
	t3		=	fyt3	
	t4				=	"images/button_alipaybutton_o.gif"		'支付宝按钮图片
	t5				=	"推荐使用支付宝付款"						'按钮悬停说明
	cmd				=	"0001"						'cmd			命令码
	subject			=""&Session("boobuser")&"高级会员申请"		'subject		商品名称
	body			=	"会员 "&Session("boobuser")&" 申请高级会员"			'body			商品描述
	order_no		=""&Session("boobuser")&""	'order_no		商户订单号
	prices			=fys5 					'price			商品单价			0.01～50000.00
	rurl			=strSiteUrl	'url			商品展示网址
	types			=	"2"						'type支付类型			1：商品购买2：服务购买3：网络拍卖4：捐赠
	number			=	"1"						'number			购买数量
	transport		=	"3"					'transport		发货方式			1：平邮2：快递3：虚拟物品
	ordinary_fee	=	"10.00"			'ordinary_fee	平邮运费
	express_fee		=	"20.00"				'express_fee	快递运费
	readonly		=	"true"				'readonly		交易信息是否只读
	buyer_msg		=trim(request("fyly"))				'buyer_msg		买家给卖家的留言
	buyer			=trim(request("fyemail"))						'buyer			买家Email
	buyer_name		=trim(request("fyname"))			'buyer_name		买家姓名
	buyer_address	=trim(request("fyadd"))	'buyer_address	买家地址
	buyer_zipcode	=trim(request("fycode"))		'buyer_zipcode	买家邮编
	buyer_tel		=trim(request("fytel"))			'buyer_tel		买家电话号码
	buyer_mobile	=trim(request("fysj"))	'buyer_mobile	买家手机号码
	partner			=	""						'partner		合作伙伴ID			保留字段

	Set AlipayObj	= New creatAlipayItemURL
	itemUrl=AlipayObj.creatAlipayItemURL(t1,t2,t3,t4,t5,cmd,subject,body,order_no,prices,rurl,types,number,transport,ordinary_fee,express_fee,readonly,buyer_msg,buyer,buyer_name,buyer_address,buyer_zipcode,buyer_tel,buyer_mobile,partner)

%>