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

小编给大家分享一下如何修改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. Dim gateway As String = "https://www.alipay.com/cooperate/gateway.do?" '支付接口

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

13. Dim sign_type As String = "MD5"

14. Dim subject, body As String

15. body = ""

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

17. getdata.myconn.Open()

18. reader = getdata.getdatareader(sql)

19. While reader.Read

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

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

22. End While

23. reader.Close()

24. Dim quantity As String

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

26. Dim payment_type As String

27. payment_type = "1"

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

29. Dim price As String

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

31. reader = getdata.getdatareader(sql)

32. If reader.Read Then

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

34. End If

35. reader.Close()

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

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

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

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

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

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

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

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

44. Dim logistics_type As String = "POST"

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

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

47. Dim logistics_payment As String = "BUYER_PAY"

48. Dim logistics_type_1 As String = "EXPRESS"

49. Dim logistics_payment_1 As String = "BUYER_PAY"

50. Dim ap As AliPay = New AliPay

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

52. Response.Redirect(aliay_url)

53. End Sub

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