<%
'/***************************************************************************************************************
	'* FileName:	Alipay.asp
	'* Description:	Asp網(wǎng)店與支付寶集成類,提供網(wǎng)店與支付寶結(jié)算系統(tǒng)集成的業(yè)務(wù)接口;接口使用前提：必須成功獲得支付寶個(gè)人或企業(yè)認(rèn)證，擁有通過認(rèn)證的Email
	'* Copyright:	Copyright (c) 2005/10/27 (說明：本接口根據(jù)支付寶開發(fā)團(tuán)隊(duì)提供的Java接口改編,所以保持了java接口名稱,以方便某些用戶的系統(tǒng)轉(zhuǎn)換)
	'* Company:	支付寶開發(fā)者論壇(http://dev.alipay.com)
	'* Author:		微軟專家
	'* Version:		Ver 2005
	'* Contacts:		QQ:51739572
'****************************************************************************************************************/
sellerEmail			= "mackson_hkc@126.com"	'您的支付寶認(rèn)證Email,必須通過支付寶認(rèn)證才可以
securityCode		= "czmlcxsggteu4kjrwq5is1ipzpqbj40f"  '安全校驗(yàn)碼,在支付寶網(wǎng)站“商家工具”那里可以獲得

Class myAlipay

	Public REQUEST_PAYTO_URL		'payto連接地址
	Public DEFAULT_PARTNER			'保留字段

	Private alipayVer				'版本編號(hào)
	Private md5Obj					'MD5加密算法對(duì)象(私有)


	'構(gòu)造函數(shù),初始化各必要變量
	Public Sub myAlipay_Initialize()
		REQUEST_PAYTO_URL			= "https://www.alipay.com/payto:"
		DEFAULT_PARTNER				= "2088002157560440"
		
		'創(chuàng)建md5Obj實(shí)例,方便在generateTradeMD5接口中使用
		Set md5Obj					= New MD5
		md5Obj.MD5_Initialize()
	End Sub
	
	'通過MD5算法等自動(dòng)組合生成“支付寶payto交易URL”(最新payto接口，強(qiáng)烈建議使用本接口開發(fā)，同時(shí)它支持返回通知)
	Public Function generatePaytoURL(s1,s2,s3,s4,s5,s6,s7,s8,s9)
		Dim strTemp,strURL
		strTemp					= REQUEST_PAYTO_URL & s4 & "?"
		strTemp					= strTemp & "&cmd=" & s7
		strTemp					= strTemp & "&subject=" & s8
		strTemp					= strTemp & "&body=" & s9
		strTemp					= strTemp & "&order_no=" & s5
		strTemp					= strTemp & "&price=" & s1
		strTemp					= strTemp & "&ordinary_fee=" & s2
		strTemp					= strTemp & "&express_fee=" & s3
		strTemp					= strTemp & "&ac=" & generatePaytoMD5(s1,s2,s3,s4,s5,s6,s7,s8,s9)
		strTemp					= strTemp & "&partner=" & DEFAULT_PARTNER
		generatePaytoURL		= strTemp
	End Function

	'取得payto交易的MD5加密串,已經(jīng)解決中文加密問題
	Public Function generatePaytoMD5(s1,s2,s3,s4,s5,s6,s7,s8,s9)
		Dim strTemp
		strTemp		= "cmd" & s7 & "subject" & s8 & "body" & s9 & "order_no" & s5 & "price" & s1 & "ordinary_fee" & s2 & "express_fee" & s3 & "seller" & s4 & "partner2088002157560440" & s6
		generatePaytoMD5	= md5Obj.md5(strTemp)
	End Function
'注意這里的partner2088002157560440也要修改成你的信息
	'私有接口,取得請(qǐng)求后返回的html
	Public Function getHTTPURL(strPath)
        Dim strTemp
		strTemp			= GetBody(strPath)
        getHTTPURL		= BytesToBstr(strTemp,"GB2312")
	End function

	'私有接口,取得請(qǐng)求后返回的html Stream
	Private Function GetBody(strURL)
		On Error Resume Next
        Set Retrieval		= CreateObject("Microsoft.XMLHTTP") 
        With Retrieval 
			.Open "GET", strURL, False, "", "" 
			.Send 
			GetBody	= .ResponseBody
        End With 
        Set Retrieval		= Nothing
	End Function

	'私有接口,轉(zhuǎn)換Stream-->String
	Private Function BytesToBstr(strBody,strCharset)
        Dim streamObj
        set streamObj		= Server.CreateObject("ADODB.Stream")
        streamObj.Type		= 1
        streamObj.Mode		= 3
        streamObj.Open
        streamObj.Write strBody
        streamObj.Position	= 0
        streamObj.Type		= 2
        streamObj.Charset	= strCharset
        BytesToBstr			= streamObj.ReadText 
        streamObj.Close
        Set streamObj		= Nothing
	End Function

End Class
%>