中文版
Code/Resource
- Windows Develop
- Linux-Unix program
- Internet-Socket-Network
- Web Server
- Browser Client
- Ftp Server
- Ftp Client
- Browser Plugins
- Proxy Server
- Email Server
- Email Client
- WEB Mail
- Firewall-Security
- Telnet Server
- Telnet Client
- ICQ-IM-Chat
- Search Engine
- Sniffer Package capture
- Remote Control
- xml-soap-webservice
- P2P
- WEB(ASP,PHP,...)
- TCP/IP Stack
- SNMP
- Grid Computing
- SilverLight
- DNS
- Cluster Service
- Network Security
- Communication-Mobile
- Game Program
- Editor
- Multimedia program
- Graph program
- Compiler program
- Compress-Decompress algrithms
- Crypt_Decrypt algrithms
- Mathimatics-Numerical algorithms
- MultiLanguage
- Disk/Storage
- Java Develop
- assembly language
- Applications
- Other systems
- Database system
- Embeded-SCM Develop
- FlashMX/Flex
- source in ebook
- Delphi VCL
- OS Develop
- MiddleWare
- MPI
- MacOS develop
- LabView
- ELanguage
- Software/Tools
- E-Books
- Artical/Document
myAlipay.asp
Package: shop2.rar [view]
Upload User: btntkt
Upload Date: 2021-04-16
Package Size: 5296k
Code Size: 8k
Category:
WEB(ASP,PHP,...)
Development Platform:
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
- %>
