主题：如何实现 Server-Sent 事件允许网页从服务器获得更新

将HttpRequest事件代码改为：

Select Case e.Path
    Case "list.htm"
        e.AsyncExecute = True  '通知系统,将采用异步方式生成网页
        Functions.AsyncExecute("xx函数", e) '异步调用函数生成网页
End Select

函数

Dim e As RequestEventArgs = args(0)

e.Response.AddHeader("Content-Type", "text/event-stream")

e.Response.AddHeader("Cache-Control", ........

……

Do While(True)

    If 符合某个条件 Then 

    Dim postData As Byte() = Encoding.Default.GetBytes("data:需要发送的内容\n\n")

    Dim reqStream As System.IO.Stream = e.Response.OutputStream

    reqStream.Write(postData, 0, postData.Length)

    reqStream.Flush()

    Else

        Exit Do

    End If

Loop 

e.WriteString("data:发送完毕\n\n")

e.Handled = True '通    知系统异步函数执行完毕,可以关闭信道

e.Response.AddHeader("Content-Type", "text/event-stream")

e.Response.AddHeader("Cache-Control", ........

……这里还有其它头部内容，参考网上搜索的用法补充完整