<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Alipay.asp"-->	
<%	'/***************************************************************************************************************
	'* FileName:	Doalipay.asp
	'* Author:		sunzhizhi
	'* Version:		Ver 2.0.0 Beta2
	'* Contact_Me:	wangwang:sunzhizhi
	'* 说明:支付宝支付跳转页面,实现只提交几个参数
'****************************************************************************************************************/	
	hyj=session("hyj") '提交的商品价格
	pname=session("pname") '提交的商品名字
	goodsTitle=session("goodsTitle") '提交过来的订单号
	rurl=session("rurl") '提交过来的网站路径
	email=session("email") '提交过来的支付宝帐号

dim s1,s2,s3,s4,s5,s6,s7,s8,s9,s10,s11,s12,s13,s14,s15,s16,s17,s18,s19,s20
dim t1,t2,t3,t4,t5
dim AlipayObj
	t1		=	"https://www.alipay.com/payto:"	'支付接口
	t2		=	"liasn@126.com"			'商户支付宝账户（改成你自己的）
	t3		=	"mfarxii68zwpu41po747pboxc8oh9dm4"								'安全校验码（改成你自己的）		
	t4		=	"http://img.alipay.com/pimg/button_alipaybutton_o.gif"		'支付宝按钮图片
	t5		=	"用支付宝支付,放心"						'按钮悬停说明
	s1		=	"0001"						'cmd			命令码
	s2		=	pname					'subject		商品名称
	s3		=	pname					'body			商品描述
	s4		=	goodsTitle				'order_no		商户订单号
	s5		=	hyj						'price			商品单价			0.01～50000.00
	s6		=	rurl	'url			商品展示网址
	s7		=	"1"							'type			支付类型			1：商品购买2：服务购买3：网络拍卖4：捐赠
	s8		=	""							'number			购买数量
	s9		=	""							'transport		发货方式			1：平邮2：快递3：虚拟物品
	s10		=	"13.00"						'ordinary_fee	平邮运费
	s11		=	"25.00"						'express_fee	快递运费
	s12		=	"true"						'readonly		交易信息是否只读
	s13		=	""						'buyer_msg		买家给卖家的留言
	s14		=	""							'buyer			买家Email
	s15		=	""						'buyer_name		买家姓名
	s16		=	""						'buyer_address	买家地址
	s17		=	""					'buyer_zipcode	买家邮编
	s18		=	""					'buyer_tel		买家电话号码
	s19		=	""				'buyer_mobile	买家手机号码
	s20		=	""							'partner		合作伙伴ID			保留字段

	Set AlipayObj	= New creatAlipayItemURL
	itemUrl=AlipayObj.creatAlipayItemURL(t1,t2,t3,t4,t5,s1,s2,s3,s4,s5,s6,s7,s8,s9,s10,s11,s12,s13,s14,s15,s16,s17,s18,s19,s20)

	if hyj="" and pname="" and goodsTitle="" then
	response.write "非法提交数据!"
	else
	response.redirect itemUrl
	end if
%>
