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.you******.com/wangyeshouquan.htm")
ul1 = CExp(ul1,"wxaa****",ul2,"123")
sb.Append("<meta http-equiv='Refresh' c />") '跳转到授权链接
e.WriteString(sb.ToString) ’这儿没有跳转链接,而只是把链接,展示出来
Return
End If
[此贴子已经被作者于2024/7/12 10:10:03编辑过]