支付宝接口代码 支付宝接口程序 支付宝接口 支付宝代码 支付宝接口 php 支付宝 接口 文档 网站支付宝接口 最新支付宝接口 支付宝接口源码 支付宝接口说明
好了,接着我们来看Alipay/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
%>