- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 企业微信访问域名默认网页空白 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=144022)
-- 发布时间：2019/12/8 22:36:00
-- 企业微信访问域名默认网页空白
请问如一下的代码，企业微信与服务端可以连接，互发信息没有问题，验证授权网页也是可以，或在电脑输入127.0.0.1也可以访问到默认网页，但通过企业微信app的应用，访问域名就会是空白的，请问是哪里的问题；
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:代码.txt |
直接黏贴代码会出错发布了，只能作为附件
[此贴子已经被作者于2019/12/8 22:36:14编辑过]
-- 发布时间：2019/12/8 23:11:00
--
……
End If
Dim Verified As Boolean
Dim dr As DataRow = DataTables("WXUsers").Find("userid =\'" & UserId & "\'") \'根据openid找出对应的行
If UserId > "" AndAlso dr IsNot Nothing AndAlso dr("permit") = True \'授权成功
Verified = True
UserName = dr("name")
e.AppendCookie("userid",UserId) \'将userid和username存储在Cookie中
ElseIf e.GetValues.ContainsKey("code") = False Then \'如果授权失败,且不是通过授权链接跳转而来,那么就跳转到授权链接
Dim ul As String = "https://open.weixin.qq.com/connect/oauth2/authorize?appid=&&&&&&&&&&&redirect_uri=http%3a%2f%2f&&&&&&&&&&&response_type=code&scope=snsapi_base&state=123#wechat_redirect"
sb.Append("<meta http-equiv=\'Refresh\' content=\'0; url=" & ul & "\'>") \'跳转到授权链接
e.WriteString(sb.ToString)
return
End If
If Verified = False Then
e.WriteString("您无权访问") \'生成网页
Return
Else If e.GetValues.ContainsKey("code") =True AndAlso Verified = True Then \'如果通过授权链接跳转而来
sb.Append("<meta http-equiv=\'Refresh\' c>")
e.WriteString(sb.ToString) \'生成网页
Return
Else If e.GetValues.ContainsKey("code") =False AndAlso Verified = True Then \'如果非通过授权链接跳转而来
\'非第一次访问,且有UserID,直接通过
End If
\'e.WriteString(sb.ToString) 这一句去掉
End If