alipay_payto.asp

二手商品交易平台二手商品交易平台二手商品交易平台二手商品交易平台二手商品交易平台二手商品交易平台二手商品交易平台二手商品交易平台二手商品交易平台二手商品交易平台

<!--#include file="Alipay_md5.asp"-->
<%

Class creatAlipayItemURL
	'获得最终的购买url
	
	Public Function 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)
		Dim itemURL,str2CreateAc,acCode
		dim INTERFACE_URL,sellerEmail,keyCode,imgsrc,imgtitle
		'初始化各必要变量
		INTERFACE_URL	= t1+t2		'支付接口
		sellerEmail		= t2		'商户支付宝账户（改成你自己的）
		keyCode			= t3		'安全校验码（改成你自己的）
		imgsrc			= t4		'支付宝按钮图片
		imgtitle		= t5		'按钮悬停说明
		
		str2CreateAc	=	"cmd" & cmd & "subject" & subject
		str2CreateAc	=	str2CreateAc & "body" & body
		str2CreateAc	=	str2CreateAc & "order_no" & order_no
		str2CreateAc	=	str2CreateAc & "price" & prices
		str2CreateAc	=	str2CreateAc & "url" & rurl
		str2CreateAc	=	str2CreateAc & "type" & types
		str2CreateAc	=	str2CreateAc & "number" & number
		str2CreateAc	=	str2CreateAc & "transport" & transport
		str2CreateAc	=	str2CreateAc & "ordinary_fee" & ordinary_fee
		str2CreateAc	=	str2CreateAc & "express_fee" & express_fee
		str2CreateAc	=	str2CreateAc & "readonly" & readonly
		str2CreateAc	=	str2CreateAc & "buyer_msg" & buyer_msg
		str2CreateAc	=	str2CreateAc & "seller" & sellerEmail
		str2CreateAc	=	str2CreateAc & "buyer" & buyer
		str2CreateAc	=	str2CreateAc & "buyer_name" & buyer_name
		str2CreateAc	=	str2CreateAc & "buyer_address" & buyer_address
		str2CreateAc	=	str2CreateAc & "buyer_zipcode" & buyer_zipcode
		str2CreateAc	=	str2CreateAc & "buyer_tel" & buyer_tel
		str2CreateAc	=	str2CreateAc & "buyer_mobile" & buyer_mobile
		str2CreateAc	=	str2CreateAc & "partner" & partner
		str2CreateAc	=	str2CreateAc & keyCode
		
		acCode			= 	MD5(str2CreateAc)

		itemURL			= 	INTERFACE_URL & "?cmd=" & cmd
		itemURL			= 	itemURL & "&subject=" & Server.HTMLEncode(subject)
		itemURL			= 	itemURL & "&body=" & Server.HTMLEncode(body)
		itemURL			= 	itemURL & "&order_no=" & order_no
		itemURL			= 	itemURL & "&price=" & prices
		itemURL			= 	itemURL & "&url=" & rurl
		itemURL			= 	itemURL & "&type=" & types
		itemURL			= 	itemURL & "&number=" & number
		itemURL			= 	itemURL & "&transport=" & transport
		itemURL			= 	itemURL & "&ordinary_fee=" & ordinary_fee
		itemURL			= 	itemURL & "&express_fee=" & express_fee
		itemURL			= 	itemURL & "&readonly=" & readonly
		itemURL			= 	itemURL & "&buyer_msg=" & Server.HTMLEncode(buyer_msg)
		itemURL			= 	itemURL & "&buyer=" & Server.HTMLEncode(buyer)
		itemURL			= 	itemURL & "&buyer_name=" & Server.HTMLEncode(buyer_name)
		itemURL			= 	itemURL & "&buyer_address=" & Server.HTMLEncode(buyer_address)
		itemURL			= 	itemURL & "&buyer_zipcode=" & buyer_zipcode
		itemURL			= 	itemURL & "&buyer_tel=" & buyer_tel
		itemURL			= 	itemURL & "&buyer_mobile=" & buyer_mobile
		itemURL			= 	itemURL & "&partner=" & partner
		itemURL			= 	itemURL & "&ac=" & acCode
		creatAlipayItemURL	=	get_AlipayButtonURL(itemURL,imgtitle,imgsrc)
	End Function
	
	Public Function get_AlipayButtonURL(itemURL,imgtitle,imgsrc)
		dim responseText1
		responseText1	=	responseText1 & "<a href='" & itemURL & "' target='_blank'>"		'购买网址
		responseText1	=	responseText1 & "<img alt='" & imgtitle & "' src='"				'图片说明
		responseText1	=	responseText1 & imgsrc											'图片地址
		responseText1	=	responseText1 & "' align='absmiddle' border='0'/></a>"
		get_AlipayButtonURL=responseText1
	End Function

End Class
%>