主题：移动开发网页生成问题

Dim e As RequestEventArgs = args(0)
Select Case e.Path
    Case "xx.htm"
        Dim userid ,name As String
        userid = "xyz"
        If userid > "" Then  
            Dim wb As New WeUI
            MessageBox.Show("为什么执行了两次")
            wb.AddPageTitle("","pageheader","我的工作台",name & "欢迎您!")
            Dim drs As List(of DataRow) = DataTables("公用基础表").SQLSelect(" 用户='默认用户' or userid='" & userid & "'")
            Dim i As Integer = 1
            With wb.AddGrid("","g1")
                For Each dr As DataRow In drs
                    Dim ym As String
                    ym = "http://" & Tables("基础资料表").Current("可信域名")  & "/" & dr("内容")
                    .Add("c" & i,dr("类型"),dr("图片"),ym)
                    i = i + 1
                Next
            End With
            e.WriteString(wb.Build)
          End If
End Select

 

贴出你httprequest事件代码。