连接不到数据库无法测试。
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代码全部去掉