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

2024-04-28 09:19•java•阅读 4097

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_

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