支付发起后，处理支付页面http://www.123.com/per_xianx_yj_jinx.htm的代码：
'首先获取用户的openid
Dim OpenID As String
Dim sb As New StringBuilder
sb.AppendLine("<meta name='viewport' c>")
If e.GetValues.ContainsKey("code") Then '如果通过授权链接跳转而来,就根据传递过来的code参数调用接口,获取用户的OpenID
Dim ul As String = "https://api.weixin.qq.com/sns/oauth2/access_token?appid={0}&secret={1}&code={2}&grant_type=authorization_code"
ul = CExp(ul,"wx8acdb7df5beb68fd","a5a3b06a790d4200a151e6b13c3dc263",e.GetValues("code")) '这是示例文档内容
Dim hc As new HttpClient(ul)
Dim jo As JObject = JObject.Parse(hc.GetData)
If jo("openid") IsNot Nothing Then
OpenID = jo("openid")
e.AppendCookie("openid",OpenID) '将openid存储在Cookie中
End If
Else
OpenId = e.Cookies("openid") '否则从cookie中提取openid
End If
If e.GetValues.ContainsKey("code") = False Then '如果授权失败,且不是通过授权链接跳转而来,那么就跳转到授权链接
Dim ul1 As String = "https://open.weixin.qq.com/connect/oauth2/authorize?appid={0}&redirect_uri={1}&response_type=code&scope=snsapi_base&state={2}#wechat_redirect"
Dim ul2 As String = UrlEncode("http://www.123.com/per_xianx_yj_jinx.htm")
ul1 = CExp(ul1,"自己的appid",ul2,"123")
sb.Append("<meta http-equiv='Refresh' c>") '因为这儿，跳转到授权链接，下面的支付流程就中断了，怎么办？（发起页面和js文件完全按文档做的）
e.WriteString(sb.ToString)
Return "" ’上述代码，httprequest里成功获得openid，现在改在函数里使用，所以这儿加上了双引号
End If
msgbox("OpenId=" & OpenId) ’之前测试，可以正常获得openid的
'If Verified0 = False Then '这是示例文件
'sb.AppendLine("你无权访问本系统")
'Else
'sb.AppendLine("从相遇开始自助交友欢迎您, <a href='http://www.123.com'>刷新页面</a>")
'End If
e.WriteString(sb.ToString)
[此贴子已经被作者于2018/11/1 11:15:06编辑过]
加好友 
发短信
Post By：2018/10/27 10:21:00 [只看该作者]
此主题相关图片如下：微信图片_2018102808052633333.jpg
此主题相关图片如下：微信图片_20181001427444444444.png