主题：关于httprequest的问题

Functions.Execute("RunWeb",e)

然后在自定义函数里面创建一个RunWeb，写：

Dim e As RequestEventArgs = Args(0)

Select Case e.Path

    Case "login.html",""

        Functions.Execute("ShowWebLogin",e)

    Case "main.html"

        Functions.Execute("ShowWebMenu",e)

End Select