如何修改VB.NET支付宝接口

发布时间:2021-11-19 17:00:19 作者:小新
来源:亿速云 阅读:250

小编给大家分享一下如何修改VB.NET支付宝接口,相信大部分人都还不怎么了解,因此分享这篇文章给大家参考一下,希望大家阅读完这篇文章后大有收获,下面让我们一起去了解一下吧!

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

  1. Private Sub ImageButton1_Click(ByVal sender As System.Object, 
    ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton1.Click  

  2. '按时构造订单号  

  3. Dim currentTime As System.DateTime = New System.DateTime  

  4. currentTime = System.DateTime.Now  

  5. Dim out_trade_no As String  

  6. out_trade_no = currentTime.ToString("g")  

  7. out_trade_noout_trade_no = out_trade_no.Replace("-", "")  

  8. out_trade_noout_trade_no = out_trade_no.Replace(":", "")  

  9. out_trade_noout_trade_no = out_trade_no.Replace(" ", "")  

  10.  

  11. '业务参数赋值  

  12. Dim gateway As String = "https://www.alipay.com/cooperate/gateway.do?" '支付接口  

  13. Dim service As String = "trade_create_by_buyer"'服务参数  

  14.  

  15. Dim sign_type As String = "MD5" 

  16.  

  17. Dim subject, body As String  

  18. body = "" 

  19. sql = "select cp_name from chanpin where cp_id="& cint(label2.text)   

  20. getdata.myconn.Open()  

  21. reader = getdata.getdatareader(sql)  

  22. While reader.Read  

  23. subject = reader.Item(0)'商品名称  

  24. bodybody = body & " " & reader.Item(0)'商品描述 ,不能有太多字符  

  25. End While  

  26. reader.Close()  

  27.  

  28. Dim quantity As String  

  29. quantity = "1" '商品数量  

  30.  

  31. Dim payment_type As String  

  32. payment_type = "1"   

  33. '支付类型'1=商品购买,2=服务购买,3=网络拍卖,4=捐赠,5=邮费补偿,6=奖金  

  34.  

  35.  

  36. Dim price As String  

  37. sql = "select cp_money from chanpin where cp_id="& cint(label1.text)   

  38. reader = getdata.getdatareader(sql)  

  39. If reader.Read Then  

  40. price = reader.Item(0)'商品价格  

  41. End If  

  42. reader.Close()  

  43.  

  44. Dim show_url, seller_email, key, partner As String  

  45. show_url = "http://****"'商品描述地址  

  46. seller_email = *** '您的支付宝认证Email,必须通过支付宝认证才可以  

  47. key = ***'安全校验码,在支付宝网站“商家工具”那里可以获得  

  48. partner = ***'partner合作伙伴ID  

  49.  

  50. Dim return_url As String ="Alipay_Return.aspx" '服务器通知返回接口  

  51. Dim notify_url As String ="Alipay_Notify.aspx" '服务器通知接口  

  52. Dim _input_charset As String = "utf-8" '服务器编码  

  53. Dim logistics_type As String = "POST" 

  54. Dim logistics_fee As String = "0" '平邮费包含在价格中  

  55. Dim logistics_fee_1 As String = "0"'快递费 包含在价格中  

  56. Dim logistics_payment As String = "BUYER_PAY" 

  57. Dim logistics_type_1 As String = "EXPRESS" 

  58. Dim logistics_payment_1 As String = "BUYER_PAY" 

  59. Dim ap As AliPay = New AliPay  

  60. 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)  

  61. Response.Redirect(aliay_url)  

  62.  

  63. End Sub 

以上是“如何修改VB.NET支付宝接口”这篇文章的所有内容,感谢各位的阅读!相信大家都有了一定的了解,希望分享的内容对大家有所帮助,如果还想学习更多知识,欢迎关注亿速云行业资讯频道!

推荐阅读:
  1. C# /VB.NET 操作Word (一)——插入、修改、删除Word批注
  2. Java调用支付宝接口的方法

免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。

vb.net

上一篇:如何把Streamlit部署到服务器

下一篇:java枚举是怎么保证线程安全的

相关阅读

您好,登录后才能下订单哦!

密码登录
登录注册
其他方式登录
点击 登录注册 即表示同意《亿速云用户服务条款》