主题：httprequest 请教

篮板 , 用了 SQLCommand  还是有点问题 ,我做了 你上边的 异常处理 也没有用.

没有保存任何的异常信息及  也没有出现报错. 但是,foxtable  会出现不定时的 卡死现象, 

 

我 有3个访问的  每秒一次  ,其他的 不定时,

不知道是不是  sql 语句 访问出现 拥挤导致的, 不明白什么原因

 但卡死 等30分钟也不会恢复!

 蓝版 ，还是搞不定，帮忙看看 ， 系统 我做了错误行为记录，

没有报任何错误，但是系统 还是会卡死！（发生频率大概1天2次）

帮忙看看

代码 都在 httprequest  及内部函数里面.

1、看了一些函数，循环、后台查询、还有的出报表打印，都比较费时，可能几秒都处理不完。看12楼说有3个访问都是每秒一次，估计可能是访问比较频繁，都在排队等待处理，而不是卡死了。这种情况如果不用异步肯定是不行的。

2、自己根据日志分析原因

此主题相关图片如下：1.png

可以在每个函数结尾记录一下日志就知道程序是不是还在执行中。

谢谢 蓝版  我做日志 观察下先，

再请教下

   我之前做了 很多  异步函数 。   

但是系统 还会是出现闪退的现象。

这样子对吗

我是按帮助 这样写的

httprequest

    Case "yichangchuli.htm\1014"
        
        
        Dim dr As DataRow = DataTables("表C").AddNew
        DR("第一列") = "yichangchuli.htm\1014"
        dr.Save
        If   e.Request.HttpMethod = "GET"
            
            e.AsyncExecute = True  '通知系统,将采用异步方式生成网页
            Functions.AsyncExecute("yichangchuli1014",e)
        End If

内部函数

Dim e As RequestEventArgs = args(0)

Dim jax As New Jarray '定义数组
Dim drs As List(of DataRow) = DataTables("YW_点检异常记录").SQLSelect("创建日期 > '" & Date.today.AddDays(-1) & "' and 机台号 In ('HC-10','HC-11','HC-12','HC-13','HC-14')","创建日期 desc")
For i As Integer = 0 To 4
Dim jo As new JObject
If drs.Count >= i + 1 Then
            jo("jitaihao") = drs(i)("机台号").tostring()
            jo("shijian") = drs(i)("作业时间").Tostring()
            jo("yichangneirong") = drs(i)("项目").Tostring() & "结果:" &  drs(i)("判定标准").Tostring()
            jo("chuzhineirong") = drs(i)("处理内容").tostring()
            jo("chuzhizhe") = drs(i)("点检者").tostring()
            jo("pinzhiquerenzhe") = drs(i)("处理者").Tostring()
Else
            jo("jitaihao") = " "
            jo("shijian") = " "
            jo("yichangneirong") = " "
            jo("chuzhineirong") = " "
            jo("chuzhizhe") = " "
            jo("pinzhiquerenzhe") = " "
End If
jax.add(jo)
Next
'
e.WriteString(jax.Tostring)   '做web服务器 , 向pda 返回结果
e.Handled = True '通知系统异步函数执行完毕,可以关闭信道

异步函数的调用没有什么问题。但是异步函数里不能使用tables，不能使用datatables