自定义函数List：其中想异步执行函数"blowbarle"，然后生成网页。两种方法都报错或无反应求解，谢谢！
方法一：
1、List函数：
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
e.AsyncExecute = True '通知系统异步执行,不要关闭信道
Dim obj = Functions.AsyncExecute("blowbarle", e)
。。。。
e.WriteString(wb.Build)
2、HttpRequest事件代码为：
Case "list.htm"
Functions.Execute("list", e)
二：方法二：
1、List函数：
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Dim obj = Functions.Execute("blowbarle", e)
。。。。
e.WriteString(wb.Build)
e.Handled = True '通知系统异步函数执行完毕,可以关闭信道
2、HttpRequest事件代码改为：
Case "list.htm"
e.AsyncExecute = True
Functions.AsyncExecute("list", e)
加好友 
发短信
Post By：2022/10/8 14:57:00 [显示全部帖子]
