主题：当某个值为空，判断后显示dialog，可以？

 调用提示，不能再httpRequest里面写代码。

Select Case e.Path
    Case "test.htm"
        Dim wb As New WeUI
       
        With wb.AddDialog("","dlg1", "提示","您的订单正在派送,请注意查收!")
            .AddButton("btnOK","确定")
        End With
        wb.AppendHTML("<script>show('dlg1')</script>")
        e.WriteString(wb.Build) '生成网页
End Select