主页跳转问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

zdzs函数内容：

Dim e As RequestEventArgs = args(0)

Dim wb As New weui

If e.Request.Headers("User-Agent").ToLower.Contains("micromessenger") Then

Dim openid As String

Dim dropenid As DataRow

openid = Functions.Execute("getopenid", e) '提取用户openid

If openid <> "" Then '假如提取到openid

' messagebox.Show("1")

dropenid = DataTables("登录用户").sqlfind("openid='" & openid & "'") '在登录用户表中查找此openid

End If

' messagebox.Show("2")

If dropenid IsNot Nothing Then '如果找到了用户的openid

' messagebox.Show("3")

wb.AppendCookie("用户姓名", dropenid("用户姓名")) '将用户名信息写入cookie

wb.AppendCookie("用户密码", dropenid("用户密码"))

End If

ElseIf e.Cookies.ContainsKey("用户姓名") And e.Cookies.ContainsKey("用户密码") Then

Dim dr As DataRow = DataTables("登录用户").sqlfind("用户姓名='" & e.Cookies("用户姓名") & "'")

If dr Is Nothing OrElse dr("用户密码") <> e.Cookies("用户密码") Then '''如果无此用户,或密码不正确.

wb.InsertHTML("<meta http-equiv='Refresh' c>")

e.WriteString(wb.Build)

Return""

End If

Else

wb.InsertHTML("<meta http-equiv='Refresh' c>")

e.WriteString(wb.Build)

Return""

End If

If e.GetValues.ContainsKey("name") Then

zdzs页面内容......

end if

现在通过http://cbjg.740700.xyz/zdzs.htm?name=1557 这个网址调用这个页面，在pc浏览器可以直接打开对应的zdzs页面内容，但是在微信浏览器中则自动跳转到了http://cbjg.740700.xyz/default.htm页面了

请问哪里出错了？

If dr2("openid") <> "" Then '推送公众号

Dim url As String = "https://api.weixin.qq.com/cgi-bin/message/template/send?access_token={0}"

Dim hc As New HttpClient(CExp(url, Functions.Execute("GetAccessToken")))

Dim jo As New JObject

Dim ja As New JArray

jo("touser") = CStr(dr2("openid"))

jo("template_id") = "k16d8RCZCzoR4" '模板ID

jo("url") = "cbjg.740700.xyz/zdzs.htm?name=" & CStr(dr("_Identify")) '打开折叠信息页面，传递主键

jo("data") = New JObject()

网址链接是通过这个微信公众号的地址推送的

以下内容是专门发给有点蓝浏览

图片添加不上来了，我手敲吧，第一个是浏览器信息，第二个是openid=，第三个是dropenid=false，后边就没有了。这么看openid没有获取到啊

附加

下载信息 [文件大小：下载次数： ]
点击浏览该文件:pic.rar

其它地方可以直接 openid = Functions.Execute("getopenid", e) '提取用户openid，这个为什么不行呢？

以下内容是专门发给有点蓝浏览

第一个提示：code is false

第二个提示：openid=

此主题相关图片如下：2024-01-26_135202.jpg

Dim e As RequestEventArgs = args(0)

Dim url As String = e.Request.URL.Tostring

messagebox.Show("初始url：" & url)

url = url.Replace(":8003/default.htm", "/") '此处将8003去掉，只服务器设置了nginx时需要这样做

'messagebox.Show("改变后url：" & url)

Dim url As String = "http://cbjg.740700.xyz/"

Dim OpenID As String

这两句留哪个？

主题：主页跳转问题