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页面了
请问哪里出错了？
加好友 
发短信
Post By：2024/1/26 9:40:00 [只看该作者]
