VB.NET經(jīng)過(guò)長(zhǎng)時(shí)間的發(fā)展，很多用戶(hù)都很了解VB.NET支付寶接口了，這里我發(fā)表一下個(gè)人理解，和大家討論討論。

曾經(jīng)為沒(méi)有VB.NET支付寶接口程序郁悶過(guò)很長(zhǎng)一段時(shí)間，終于忍不住修改了一下，其主要的3個(gè)文件修改為VB.NET很容易，不再給出，只給出接口代碼：

Private Sub ImageButton1_Click(ByVal sender As System.Object, 
ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton1.Click  
'按時(shí)構(gòu)造訂單號(hào)  
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(" ", "")  
 
'業(yè)務(wù)參數(shù)賦值  
Dim gateway As String = "https://www.alipay.com/cooperate/gateway.do?" '支付接口  
Dim service As String = "trade_create_by_buyer"'服務(wù)參數(shù)  
 
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)'商品名稱(chēng)  
bodybody = body & " " & reader.Item(0)'商品描述 ,不能有太多字符  
End While  
reader.Close()  
 
Dim quantity As String  
quantity = "1" '商品數(shù)量  
 
Dim payment_type As String  
payment_type = "1"   
'支付類(lèi)型'1=商品購(gòu)買(mǎi)，2=服務(wù)購(gòu)買(mǎi)，3=網(wǎng)絡(luò)拍賣(mài)，4=捐贈(zèng)，5=郵費(fèi)補(bǔ)償，6=獎(jiǎng)金  
 
 
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)'商品價(jià)格  
End If  
reader.Close()  
 
Dim show_url, seller_email, key, partner As String  
show_url = "http://****"'商品描述地址  
seller_email = *** '您的支付寶認(rèn)證Email,必須通過(guò)支付寶認(rèn)證才可以  
key = ***'安全校驗(yàn)碼,在支付寶網(wǎng)站“商家工具”那里可以獲得  
partner = ***'partner合作伙伴ID  
 
Dim return_url As String ="Alipay_Return.aspx" '服務(wù)器通知返回接口  
Dim notify_url As String ="Alipay_Notify.aspx" '服務(wù)器通知接口  
Dim _input_charset As String = "utf-8" '服務(wù)器編碼  
Dim logistics_type As String = "POST" 
Dim logistics_fee As String = "0" '平郵費(fèi)包含在價(jià)格中  
Dim logistics_fee_1 As String = "0"'快遞費(fèi) 包含在價(jià)格中  
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 

【編輯推薦】

1. 事例概括VB.NET Display方法
2. VB.NET水印類(lèi)整合水印技術(shù)
3. 淺析利用VB.NET啟動(dòng)Smartphone常規(guī)方法
4. 自己動(dòng)手改寫(xiě)VB.NET內(nèi)存指針
5. 概述VB.NET正則表達(dá)式簡(jiǎn)化程序代碼