自己动手修改VB.NET支付宝接口

VB.NET经过长时间的发展，很多用户都很了解VB.NET支付宝接口了，这里我发表一下个人理解，和大家讨论讨论。

　　曾经为没有VB.NET支付宝接口程序郁闷过很长一段时间，终于忍不住修改了一下，其主要的3个文件修改为VB.NET很容易，不再给出，只给出接口代码：

Private Sub ImageButton1_Click(ByVal sender As System.Object,
ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton1.Click
'按时构造订单号
Dim currentTime As System.DateTime = New System.DateTime
currentTime = System.DateTime.Now
Dim out_trade_no As String
out_trade_no = currentTime.ToString("g")
out_trade_noout_trade_no = out_trade_no.Replace("-", "")
out_trade_noout_trade_no = out_trade_no.Replace(":", "")
out_trade_noout_trade_no = out_trade_no.Replace(" ", "")

'业务参数赋值
Dim gateway As String = "https://www.alipay.com/cooperate/gateway.do?" '支付接口
Dim service As String = "trade_create_by_buyer"'服务参数

Dim sign_type As String = "MD5"

Dim subject, body As String
body = ""
sql = "select cp_name from chanpin where cp_id="& cint(label2.text)
getdata.myconn.Open()
reader = getdata.getdatareader(sql)
While reader.Read
subject = reader.Item(0)'商品名称
bodybody = body & " " & reader.Item(0)'商品描述 ,不能有太多字符
End While
reader.Close()

Dim quantity As String
quantity = "1" '商品数量

Dim payment_type As String
payment_type = "1"
'支付类型'1=商品购买，2=服务购买，3=网络拍卖，4=捐赠，5=邮费补偿，6=奖金

Dim price As String
sql = "select cp_money from chanpin where cp_id="& cint(label1.text)
reader = getdata.getdatareader(sql)
If reader.Read Then
price = reader.Item(0)'商品价格
End If
reader.Close()

Dim show_url, seller_email, key, partner As String
show_url = "http://****"'商品描述地址
seller_email = *** '您的支付宝认证Email,必须通过支付宝认证才可以
key = ***'安全校验码,在支付宝网站“商家工具”那里可以获得
partner = ***'partner合作伙伴ID

Dim return_url As String ="Alipay_Return.aspx" '服务器通知返回接口
Dim notify_url As String ="Alipay_Notify.aspx" '服务器通知接口
Dim _input_charset As String = "utf-8" '服务器编码
Dim logistics_type As String = "POST"
Dim logistics_fee As String = "0" '平邮费包含在价格中
Dim logistics_fee_1 As String = "0"'快递费包含在价格中
Dim logistics_payment As String = "BUYER_PAY"
Dim logistics_type_1 As String = "EXPRESS"
Dim logistics_payment_1 As String = "BUYER_PAY"
Dim ap As AliPay = New AliPay
Dim aliay_url As String = ap.CreatUrl(gateway, service, partner, sign_type,
out_trade_no, subject, body, payment_type, price, show_url, seller_email, key,
return_url, _input_charset, notify_url, logistics_type, logistics_fee,
logistics_payment, logistics_type_1, logistics_fee_1, logistics_payment_1, quantity)
Response.Redirect(aliay_url)

End Sub

转载于:https://www.cnblogs.com/NetPig/archive/2011/07/26/2117310.html

自己动手修改VB.NET支付宝接口相关推荐

支付宝 php rsa算法,：PHP支付宝接口RSA验证
这两天一直困扰的PHP RSA签名验证问题终于解决了,由于之前RSA接触的不多,再加上官方至今还未有PHP的SDK可供参考,因此走了一些弯路,写在这里和大家分享. 虽然支付宝官方还未提供相关SDK,P ...
支付宝接口使用文档说明支付宝异步通知
支付宝接口使用文档说明支付宝异步通知(notify_url)与return_url. 现支付宝的通知有两类. A服务器通知,对应的参数为notify_url,支付宝通知使用POST方式 B页面跳 ...
TP 框架实现支付宝接口功能
最近做系统,需要实现在线支付功能,毫不犹豫,选择的是支付宝的接口支付功能.这里我用的是即时到帐的接口,具体实现的步骤如下: 一.下载支付宝接口包下载地址: https://doc.open.alip ...
第四百零三节，python网站在线支付，支付宝接口集成与远程调试，
第四百零三节,python网站在线支付,支付宝接口集成与远程调试, windows系统安装Python虚拟环境首先保证你的系统已经安装好了Python 安装virtualenv C:\WINDOWS ...
调用支付宝接口android最新,Android 外接sdk之支付宝
支付宝开放平台最新sdk可以访问开放平台进行下载. 以下为流程和注意事项. 1.名词简介请求手机客户端以字符串形式把需要传输的数据发送给接收方的过程. 返回支付宝以字符串形式直接 ...
PHP支付宝接口RSA验证
这两天一直困扰的PHP RSA签名验证问题终于解决了,由于之前RSA接触的不多,再加上官方至今还未有PHP的SDK可供参考,因此走了一些弯路,写在这里和大家分享. 虽然支付宝官方还未提供相关SDK,P ...
最详细支付宝接口申请、使用！！！带详细流程--实践--支付宝当面付申请
前言: 今天是看到同学,申请了一波支付宝当面付,而且成功了,现在已经可以应用到项目中,就是手续费有点高(0.6%)100块要上交6毛.但是对比起其他的第三方服务,还是便宜了不少.而且这个是唯一一个能够 ...
Android之应用程序如何调用支付宝接口
http://blog.csdn.net/lilidejing/article/details/19483717 最近在做一个关于购物商城的项目,项目里面付款这块我选的是调用支付宝的接口,因为用的人比 ...
php issign为false,支付宝接口集成及错误排除
我集成了支付宝接口,可以支付成功,可是notify_url.php中始终好像没有回调,所以按照官方文档,我作了以下修改php $verify_result = $alipayNotify->ve ...
wemall app商城源码Android之支付宝接口公用函数
wemall-mobile是基于WeMall的Android app商城,只需要在原商城目录下上传接口文件即可完成服务端的配置,客户端可定制修改.本文分享wemall app商城源码Android之 ...

自己动手修改VB.NET支付宝接口

自己动手修改VB.NET支付宝接口相关推荐

最新文章

热门文章