English
- Visual C++源码
- Visual Basic源码
- C++ Builder源码
- Java源码
- Delphi源码
- C/C++源码
- PHP源码
- Perl源码
- Python源码
- Asm源码
- Pascal源码
- Borland C++源码
- Others源码
- SQL源码
- VBScript源码
- JavaScript源码
- ASP/ASPX源码
- C#源码
- Flash/ActionScript源码
- matlab源码
- PowerBuilder源码
- LabView源码
- Flex源码
- MathCAD源码
- VBA源码
- IDL源码
- Lisp/Scheme源码
- VHDL源码
- Objective-C源码
- Fortran源码
- tcl/tk源码
- QT源码
myAlipay.asp
资源名称：shop2.rar [点击查看]
上传用户：btntkt
上传日期：2021-04-16
资源大小：5296k
文件大小：8k
源码类别：
WEB源码(ASP,PHP,...)
开发平台：
DOS
- <!--#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 & "¬ify_url=" & notify_url
- strTemp = strTemp & "&out_trade_no=" & out_trade_no
- strTemp = strTemp & "&partner=" & partner
- 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 & "¬ify_url=" & notify_url & "&out_trade_no=" & out_trade_no & "&partner=" & partner & "&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 & key
- 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 & "¬ify_url=" & notify_url
- strTemp = strTemp & "&out_trade_no=" & out_trade_no
- strTemp = strTemp & "&partner=" & partner
- 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 & "¬ify_url=" & notify_url & "&out_trade_no=" & out_trade_no & "&partner=" & partner & "&price=" & price & "&quantity=1" & "&return_url=" & return_url & "&seller_email=" & seller_email & "&service=create_digital_goods_trade_p" & "&show_url=" & show_url &"&subject=" & subject & key
- 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 & "¬ify_url=" & notify_url
- strTemp = strTemp & "&out_trade_no=" & out_trade_no
- strTemp = strTemp & "&partner=" & partner
- 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 & "¬ify_url=" & notify_url & "&out_trade_no=" & out_trade_no & "&partner=" & partner & "&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 & key
- generateSignForDirect = md5Obj.md5(strTemp)
- End Function
- '*******************************************************************************************************************
- '接口==结束=========================================================================
- '
- End Class
- %>
