连接不到数据库无法测试。
httprequest事件有几个疑似问题，可以参考一下，其它暂时看不出和这个错误有关的地方
1、
If Functions.Execute("VerifySignature",e) = False Then '如果验证失败,直接返回
Return
End If
If e.Request.HttpMethod = "GET"
e.AsyncExecute = True '通知系统,将采用异步方式生成网页
If Functions.asyncExecute("VerifySignature",e) Then
e.WriteString(e.GetValues("echostr"))
End If
End If
改为
If Functions.Execute("VerifySignature",e) = False Then '如果验证失败,直接返回
Return
Else
If e.Request.HttpMethod = "GET"
e.WriteString(e.GetValues("echostr"))
End If
End If
2、
Functions.asyncExecute("wxeventguanzhu",e)
Functions.Execute("wxeventjihuohyk",e)
Functions.asyncExecute("wxeventkaquan",e)
Functions.asyncExecute("wxeventscankeyword",e)
Functions.asyncExecute("wxmessage",e)
改为
Functions.asyncExecute("wxeventguanzhu",e)
Functions.Execute("wxeventjihuohyk",e)
Functions.asyncExecute("wxeventkaquan",e)
Functions.asyncExecute("wxeventscankeyword",e)
Functions.AsyncExecute("wxmessage",e)
if e.Request.HttpMethod = "Post" then
Dim xo As Foxtable.XObject = Foxtable.XObject.Parse(e.PlainText)
If xo("MsgType") = "text" Then
e.WriteString("success")
End If
end if
然后这几个函数里面的e.Handled = True全部去掉，wxmessage里面的e.WriteString代码全部去掉
加好友 
发短信
Post By：2019/10/22 16:40:00 [只看该作者]
此主题相关图片如下：2019101716172254694.png
