myalipay.asp

快速建立自己的WEB短信平台

<!--#include file="./MD5.asp"-->

<%

Class myAlipay

	Public ALIPAY_REQUEST_URL		'新接口链接地址
	Private md5Obj					'MD5加密算法对象(私有)

	'构造函数,初始化各必要变量
	Public Sub myAlipay_Initialize()
		ALIPAY_REQUEST_URL			= "https://www.alipay.com/cooperate/gateway.do?"

		
		'创建md5Obj实例,方便在generateTradeMD5接口中使用
		Set md5Obj					= New MD5
		md5Obj.MD5_Initialize()
	End Sub
	



	'接口==开始=========================================================================
'*******************************************************************************************************************


	'生成实物支付链接
	Public Function generateURLForSW(body,logistics_fee,logistics_payment,logistics_type,logistics_fee_1,logistics_fee_2,logistics_payment_1,logistics_payment_2,logistics_type_1,logistics_type_2,notify_url,out_trade_no,price,return_url,seller_email,subject,partner,key,show_url,input_charset)
		Dim strTemp,strURL
		strTemp				= ALIPAY_REQUEST_URL & "_input_charset=" & input_charset
		strTemp				= strTemp & "&agent=2088002002707165"
		strTemp				= strTemp & "&body=" & body
		strTemp				= strTemp & "&discount=0.00"
		strTemp				= strTemp & "&logistics_fee=" & logistics_fee
		strTemp				= strTemp & "&logistics_fee_1=" & logistics_fee_1
		strTemp				= strTemp & "&logistics_fee_2=" & logistics_fee_2
		strTemp				= strTemp & "&logistics_payment=" & logistics_payment
		strTemp				= strTemp & "&logistics_payment_1=" & logistics_payment_1
		strTemp				= strTemp & "&logistics_payment_2=" & logistics_payment_2
		strTemp				= strTemp & "&logistics_type=" & logistics_type
		strTemp				= strTemp & "&logistics_type_1=" & logistics_type_1
		strTemp				= strTemp & "&logistics_type_2=" & logistics_type_2
		strTemp				= strTemp & "&notify_url=" & notify_url
		strTemp				= strTemp & "&out_trade_no=" & out_trade_no
		strTemp				= strTemp & "&partner=2088002002707165"
		strTemp				= strTemp & "&payment_type=1"
		strTemp				= strTemp & "&price=" & price
		strTemp				= strTemp & "&quantity=1"
		strTemp				= strTemp & "&return_url=" & return_url
		strTemp				= strTemp & "&seller_email=" & seller_email
		strTemp				= strTemp & "&service=trade_create_by_buyer"
		strTemp				= strTemp & "&show_url=" & show_url
		strTemp				= strTemp & "&subject=" & subject
		strTemp				= strTemp & "&sign=" & generateSignForSW(body,logistics_fee,logistics_payment,logistics_type,logistics_fee_1,logistics_fee_2,logistics_payment_1,logistics_payment_2,logistics_type_1,logistics_type_2,notify_url,out_trade_no,price,return_url,seller_email,subject,partner,key,show_url,input_charset)
		strTemp				= strTemp & "&sign_type=MD5"
		generateURLForSW	= strTemp
	End Function

	'生成实物支付签名
	Public Function generateSignForSW(body,logistics_fee,logistics_payment,logistics_type,logistics_fee_1,logistics_fee_2,logistics_payment_1,logistics_payment_2,logistics_type_1,logistics_type_2,notify_url,out_trade_no,price,return_url,seller_email,subject,partner,key,show_url,input_charset)
		Dim strTemp
		strTemp		= "_input_charset=" & input_charset & "&agent=2088002002707165" & "&body=" & body & "&discount=0.00" & "&logistics_fee=" & logistics_fee & "&logistics_fee_1=" & logistics_fee_1 & "&logistics_fee_2=" & logistics_fee_2 & "&logistics_payment=" & logistics_payment & "&logistics_payment_1=" & logistics_payment_1& "&logistics_payment_2=" & logistics_payment_2&  "&logistics_type=" & logistics_type & "&logistics_type_1=" & logistics_type_1 & "&logistics_type_2=" & logistics_type_2  & "&notify_url=" & notify_url & "&out_trade_no=" & out_trade_no & "&partner=2088002002707165&payment_type=1" & "&price=" & price & "&quantity=1" & "&return_url=" & return_url & "&seller_email=" & seller_email & "&service=trade_create_by_buyer" &"&show_url=" & show_url &"&subject=" & subject & "zzmksuodbfugu0r6pwriulrx7vzf3a72"
		generateSignForSW	= md5Obj.md5(strTemp)
	End Function
'*******************************************************************************************************************



'*******************************************************************************************************************
	'生成虚拟物品支付链接
	Public Function generateURLForVirtual(body,notify_url,out_trade_no,price,return_url,seller_email,subject,partner,key,show_url,input_charset)
		Dim strTemp,strURL
		strTemp				= ALIPAY_REQUEST_URL & "_input_charset=" & input_charset
		strTemp				= strTemp & "&agent=2088002002707165"
		strTemp				= strTemp & "&body=" & body
		strTemp				= strTemp & "&notify_url=" & notify_url
		strTemp				= strTemp & "&out_trade_no=" & out_trade_no
		strTemp				= strTemp & "&partner=2088002002707165"
		strTemp				= strTemp & "&price=" & price
		strTemp				= strTemp & "&quantity=1"
		strTemp				= strTemp & "&return_url=" & return_url
		strTemp				= strTemp & "&seller_email=" & seller_email
		strTemp				= strTemp & "&service=create_digital_goods_trade_p"
		strTemp				= strTemp & "&show_url=" & show_url
		strTemp				= strTemp & "&subject=" & subject
		strTemp				= strTemp & "&sign=" & generateSignForVirtual(body,notify_url,out_trade_no,price,return_url,seller_email,subject,partner,key,show_url,input_charset)
		strTemp				= strTemp & "&sign_type=MD5"
		generateURLForVirtual	= strTemp
	End Function

	'生成虚拟物品支付签名
	Public Function generateSignForVirtual(body,notify_url,out_trade_no,price,return_url,seller_email,subject,partner,key,show_url,input_charset)
		Dim strTemp
		strTemp		= "_input_charset=" & input_charset & "&agent=2088002002707165" & "&body=" & body & "&notify_url=" & notify_url & "&out_trade_no=" & out_trade_no & "&partner=2088002002707165&price=" & price & "&quantity=1" & "&return_url=" & return_url & "&seller_email=" & seller_email & "&service=create_digital_goods_trade_p" & "&show_url=" & show_url &"&subject=" & subject & "zzmksuodbfugu0r6pwriulrx7vzf3a72"
		generateSignForVirtual	= md5Obj.md5(strTemp)
	End Function
'*******************************************************************************************************************




'*******************************************************************************************************************
	'生成及时到帐支付链接
	Public Function generateURLForDirect(body,notify_url,out_trade_no,return_url,seller_email,subject,total_fee,partner,key,show_url,input_charset)
		Dim strTemp,strURL
		strTemp				= ALIPAY_REQUEST_URL & "_input_charset=" & input_charset
		strTemp				= strTemp & "&agent=2088002002707165"
		strTemp				= strTemp & "&body=" & body
		strTemp				= strTemp & "&notify_url=" & notify_url
		strTemp				= strTemp & "&out_trade_no=" & out_trade_no
		strTemp				= strTemp & "&partner=2088002002707165"
		strTemp				= strTemp & "&payment_type=1"
		strTemp				= strTemp & "&return_url=" & return_url
		strTemp				= strTemp & "&seller_email=" & seller_email
		strTemp				= strTemp & "&service=create_direct_pay_by_user"
		strTemp				= strTemp & "&show_url=" & show_url
		strTemp				= strTemp & "&subject=" & subject
		strTemp				= strTemp & "&total_fee=" & total_fee
		strTemp				= strTemp & "&sign=" & generateSignForDirect(body,notify_url,out_trade_no,return_url,seller_email,subject,total_fee,partner,key,show_url,input_charset)
		strTemp				= strTemp & "&sign_type=MD5"
		generateURLForDirect	= strTemp
	End Function

	'生成及时到帐支付签名
	Public Function generateSignForDirect(body,notify_url,out_trade_no,return_url,seller_email,subject,total_fee,partner,key,show_url,input_charset)
		Dim strTemp
		strTemp		= "_input_charset=" & input_charset & "&agent=2088002002707165" & "&body=" & body & "&notify_url=" & notify_url & "&out_trade_no=" & out_trade_no & "&partner=2088002002707165&payment_type=1" & "&return_url=" & return_url & "&seller_email=" & seller_email & "&service=create_direct_pay_by_user" & "&show_url=" & show_url & "&subject=" & subject & "&total_fee=" & total_fee & "zzmksuodbfugu0r6pwriulrx7vzf3a72"
		generateSignForDirect	= md5Obj.md5(strTemp)
	End Function


'*******************************************************************************************************************







	'接口==结束=========================================================================


'
End Class
%>