makealiurl.asp

支付方面的asp例子

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Alipay.asp"-->
<%
dim sNumber
	sNumber	= Request.Form("number")	'参数接收大家都应该会吧！！  这个参数只是1个示例

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		=	""							'商户支付宝账户（改成你自己的）
	t3		=	""							'安全校验码（改成你自己的）		
	t4		=	""							'支付宝按钮图片
	t5		=	""							'按钮悬停说明
	s1		=	"0001"						'cmd			命令码
	s2		=	""							'subject		商品名称
	s3		=	""							'body			商品描述
	s4		=	""							'order_no		商户订单号
	s5		=	""							'price			商品单价			0.01～50000.00
	s6		=	""							'url			商品展示网址
	s7		=	"1"							'type			支付类型			1：商品购买2：服务购买3：网络拍卖4：捐赠
	s8		=	sNumber						'number			购买数量
	s9		=	"3"							'transport		发货方式			1：平邮2：快递3：虚拟物品
	s10		=	"0.00"						'ordinary_fee	平邮运费
	s11		=	"0.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)
	
	'将生成的URL生成一个新窗口，弹出来给用户购买
	Response.Write("<Script>window.open('" & itemUrl & "','_blank');</Script>")
%>