- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 微信接口 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=119613)
-- 发布时间：2018/5/28 17:17:00
-- 微信接口
微信接口运行几天来一直正常，能正常查询服务器中的表，今天服务器突然出现操作超时对话框？截图如下
此主题相关图片如下：微信图片_20180528133845.png
此主题相关图片如下：1527498551(1).png
-- 发布时间：2018/5/28 17:21:00
--
一直错误，还是偶尔一两次错误？
如果想屏蔽出错，处理一下
http://wechat.foxtable.com:9009/WebHelp/scr/we0008.htm
-- 发布时间：2018/5/28 17:36:00
--
一直错误，刚开始是偶尔现象，现在频繁发生。几乎不能用了。访问一次两次就不行了。是网络问题吗？还是与微信有关。我们的报账系统用的可是没问题。
-- 发布时间：2018/5/28 18:43:00
--
以下是引用1498351234在2018/5/28 17:36:00的发言：
一直错误，刚开始是偶尔现象，现在频繁发生。几乎不能用了。访问一次两次就不行了。是网络问题吗？还是与微信有关。我们的报账系统用的可是没问题。
一直错误，刚开始是偶尔现象，现在频繁发生。几乎不能用了。访问一次两次就不行了。是网络问题吗？还是与微信有关。我们的报账系统用的可是没问题。
你执行什么代码导致的错误？贴出执行的代码。
-- 发布时间：2018/5/28 21:36:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:新建文本文档.txt |
这几天用的挺好，现在几乎一次也打不开，项目运行过程中，经常死了似的，动也动不了。苦恼。
-- 发布时间：2018/5/28 22:01:00
--
1、优化一下数据库，给区县加上索引
2、按这里的方法添加日志进行分析http://wechat.foxtable.com:9009/WebHelp/scr/we0008.htm
比如这样跟踪
……
If e.GetValues.ContainsKey("code") Then \'如果通过授权链接跳转而来,就根据传递过来的code参数调用接口,获取用户的UserId
Dim ul As String = "https://qyapi.weixin.qq.com/cgi-bin/user/getuserinfo?access_token={0}&code={1}"
ul = CExp(ul,Functions.Execute("GetQYAccessToken"),e.GetValues("code"))
Dim hc As new HttpClient(ul)
Dim ret = hc.GetData
Functions.Execute("LogText","code=" & e.GetValues("code") & ", access_token结果=" & ret)
Dim jo As JObject = JObject.Parse(ret)
If jo("UserId") IsNot Nothing Then
UserId = jo("UserId")
UserName = jo("name")
End If
Else
UserId = e.Cookies("userid") \'否则从cookie中提取userid和username
UserName = e.Cookies("name")
End If
Dim Verified As Boolean
If UserId > "" Then
Verified = True
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=ww51c9a9c0c93a7d18&redirect_uri=http%3a%2f%2fsxwytx.iego.cn&response_type=code&scope=snsapi_base&state=123#wechat_redirect"
sb.Append("<meta http-equiv=\'Refresh\' c>") \'跳转到授权链接
e.WriteString(sb.ToString)
Return
End If
If Verified = False Then
sb.AppendLine("你无权访问本系统")
e.WriteString(sb.ToString)
Else
\'从腾讯服务器获取指定人员的相关详细信息
Dim aa,bb As String
Dim ul As String = "https://qyapi.weixin.qq.com/cgi-bin/user/get?access_token={0}&userid={1}"
ul= CExp(ul,Functions.Execute("GetQYAccessToken"),UserId)
Dim hc As new HttpClient(ul)
Dim ret1 = hc.GetData
Functions.Execute("LogText","UserId=" & UserId & ", 结果1=" & ret1)
Dim jo As JObject = JObject.Parse(ret1)
If jo("errcode") = "0" Then
bb = CompressJSon(jo("department")).Trim("[","]")
End If
\'根据获取的人员信息中部门ID,从腾讯服务器获取指定人员的部门信息
Dim ur As String = "https://qyapi.weixin.qq.com/cgi-bin/department/list?access_token={0}&id={1}"
Dim hc1 As New HttpClient(CExp(ur,Functions.Execute("GetQYAccessToken"),bb))
Dim ret2 = hc1.GetData
Functions.Execute("LogText","bb=" & bb & ", 结果2=" & ret2)
Dim jo1 As JObject = JObject.Parse(ret2)
If jo1("errcode") = "0" Then
aa = CompressJSon(jo1("department")).Trim("[","]")
aa = aa.SubString(aa.IndexOf("name")+ 7)
aa = aa.SubString(0,aa.IndexOf(",") - 1)
End If
……其它地方自己添加，然后看日志结果进行分析