以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  企业微信访问域名默认网页空白  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=144022)

--  作者:benwong2015
--  发布时间: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