清华大佬耗费三个月吐血整理的几百G的资源，免费分享！....>>>

                If PName = "" Then PName = ConfigTlb.Rows(0)("AlipayName")
                If PKey = "" Then PKey = ConfigTlb.Rows(0)("AlipayCheck")
                If PID = "" Then PID = ConfigTlb.Rows(0)("AlipayID")

                If PName = "" Then MessgBox("请设置支付宝接口的支付宝帐号", "", 2)
                If PKey = "" Then MessgBox("请设置支付宝接口的合作者身份(PID)", "", 2)
                If PID = "" Then MessgBox("请设置支付宝接口的安全校验码(Key)", "", 2)

                Dim prestr As String = "_input_charset=utf-8"
                prestr &= "&anti_phishing_key=" & NewGUID()
                prestr &= "&body=" & Trim(Title)
                prestr &= "&exter_invoke_ip=" & GetIp()
                prestr &= "&extra_common_param=1"
                prestr &= "&notify_url=" & ConfigTlb.Rows(0)("WebHttp") & ConfigTlb.Rows(0)("Alipaynotify_url")
                prestr &= "&out_trade_no=" & OrderID
                prestr &= "&partner=" & PID
                prestr &= "&payment_type=1"
                prestr &= "&paymethod=directPay"
                prestr &= "&return_url=" & ConfigTlb.Rows(0)("WebHttp") & ConfigTlb.Rows(0)("Alipayreturn_url")
                prestr &= "&seller_email=" & PName
                prestr &= "&service=create_direct_pay_by_user"
                prestr &= "&show_url=http://" & HttpContext.Current.Request.ServerVariables("SERVER_NAME")
                prestr &= "&subject=" & Trim(Title)
                prestr &= "&total_fee=" & PayMoeny
                Dim mysign As String = ""
                Dim md5 As System.Security.Cryptography.MD5 = New System.Security.Cryptography.MD5CryptoServiceProvider()
                Dim t As Byte() = md5.ComputeHash(Encoding.UTF8.GetBytes(prestr & PKey))
                For i As Integer = 0 To t.Length - 1
                    mysign &= t(i).ToString("x")
                Next
                Return "https://mapi.alipay.com/gateway.do?&sign=" & mysign & "&sign_type=MD5&" & prestr