<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="./md5.asp"-->
<!-- 支付寶接口文檔，本文件由湖南E族網(wǎng)絡(luò)服務(wù)中心提供。程序原版 。如有不明之處可聯(lián)系我們www.22cnshop.com，騰詡QQ：349897132-->
<%
	t1		=	"https://www.alipay.com/payto:"	'支付接口
	t2		=	""			'商戶支付寶賬戶（改成你自己的）
	t3		=	""								'安全校驗碼（改成你自己的）		
'	t4		=	"http://img.alipay.com/pimg/button_alipaybutton_o.gif"		'支付寶按鈕圖片
'	t5		=	"用支付寶支付,放心"						'按鈕懸停說明
	s1		=	"0001"						'cmd			命令碼
	s2		=	""					'subject		商品名稱
	s3		=	""					'body			商品描述
	s4		=	""				'order_no		商戶訂單號
	s5		=	""						'price			商品單價			0.01～50000.00
	s6		=	""	'url			商品展示網(wǎng)址
	s7		=	"1"							'type			支付類型			1：商品購買2：服務(wù)購買3：網(wǎng)絡(luò)拍賣4：捐贈
	s8		=	""							'number			購買數(shù)量
	s9		=	""							'transport		發(fā)貨方式			1：平郵2：快遞3：虛擬物品
	s10		=	"10.00"						'ordinary_fee	平郵運費
	s11		=	"15.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		=	"2088002065360282"		'partner		友情ID請不要修改,用來統(tǒng)計交易金額的

		'初始化各必要變量
		INTERFACE_URL	= t1+t2		'支付接口
		sellerEmail		= t2		'商戶支付寶賬戶（改成你自己的）
		keyCode			= t3		'安全校驗碼（改成你自己的）
'		imgsrc			= t4		'支付寶按鈕圖片
'		imgtitle		= t5		'按鈕懸停說明
		
		str2CreateAc	=	"cmd" & s1 & "subject" & s2
		str2CreateAc	=	str2CreateAc & "body" & s3
		str2CreateAc	=	str2CreateAc & "order_no" & s4
		str2CreateAc	=	str2CreateAc & "price" & s5
		str2CreateAc	=	str2CreateAc & "url" & s6
		str2CreateAc	=	str2CreateAc & "type" & s7
		str2CreateAc	=	str2CreateAc & "number" & s8
		str2CreateAc	=	str2CreateAc & "transport" & s9
		str2CreateAc	=	str2CreateAc & "ordinary_fee" & s10
		str2CreateAc	=	str2CreateAc & "express_fee" & s11
		str2CreateAc	=	str2CreateAc & "readonly" & s12
		str2CreateAc	=	str2CreateAc & "buyer_msg" & s13
		str2CreateAc	=	str2CreateAc & "seller" & sellerEmail
		str2CreateAc	=	str2CreateAc & "buyer" & s14
		str2CreateAc	=	str2CreateAc & "buyer_name" & s15
		str2CreateAc	=	str2CreateAc & "buyer_address" & s16
		str2CreateAc	=	str2CreateAc & "buyer_zipcode" & s17
		str2CreateAc	=	str2CreateAc & "buyer_tel" & s18
		str2CreateAc	=	str2CreateAc & "buyer_mobile" & s19
		str2CreateAc	=	str2CreateAc & "partner" & s20
		str2CreateAc	=	str2CreateAc & keyCode
   
acCode			= 	MD5(str2CreateAc)

		itemURL			= 	INTERFACE_URL & "?cmd=" & s1
		itemURL			= 	itemURL & "&subject=" & Server.HTMLEncode(s2)
		itemURL			= 	itemURL & "&body=" & Server.HTMLEncode(s3)
		itemURL			= 	itemURL & "&order_no=" & s4
		itemURL			= 	itemURL & "&price=" & s5
		itemURL			= 	itemURL & "&url=" & s6
		itemURL			= 	itemURL & "&type=" & s7
		itemURL			= 	itemURL & "&number=" & s8
		itemURL			= 	itemURL & "&transport=" & s9
		itemURL			= 	itemURL & "&ordinary_fee=" & s10
		itemURL			= 	itemURL & "&express_fee=" & s11
		itemURL			= 	itemURL & "&readonly=" & s12
		itemURL			= 	itemURL & "&buyer_msg=" & Server.HTMLEncode(s13)
		itemURL			= 	itemURL & "&buyer=" & Server.HTMLEncode(s14)
		itemURL			= 	itemURL & "&buyer_name=" & Server.HTMLEncode(s15)
		itemURL			= 	itemURL & "&buyer_address=" & Server.HTMLEncode(s16)
		itemURL			= 	itemURL & "&buyer_zipcode=" & s17
		itemURL			= 	itemURL & "&buyer_tel=" & s18
		itemURL			= 	itemURL & "&buyer_mobile=" & s19
		itemURL			= 	itemURL & "&partner=" & s20
		itemURL			= 	itemURL & "&ac=" & acCode


	'調(diào)用方法 DelStr(值)，防止SQL注入攻擊
	Function DelStr(Str)
		If IsNull(Str) Or IsEmpty(Str) Then
			Str	= ""
		End If
		DelStr	= Replace(Str,";","")
		DelStr	= Replace(DelStr,"'","")
		DelStr	= Replace(DelStr,"&","")
'		DelStr	= Replace(DelStr," ","")
		DelStr	= Replace(DelStr,"　","")
		DelStr	= Replace(DelStr,"%20","")
		DelStr	= Replace(DelStr,"--","")
		DelStr	= Replace(DelStr,"==","")
		DelStr	= Replace(DelStr,"<","")
		DelStr	= Replace(DelStr,">","")
		DelStr	= Replace(DelStr,"%","")
		DelStr	= Replace(DelStr,"+","")
		DelStr	= Replace(DelStr,"頂級","DingJi")
	End Function
%>