Dim wb As New weui

Dim e As RequestEventArgs = args(0)

If e.PostValues.Count = 0 Then

    wb.AddForm("","form1","zhuti.htm")

    With wb.AddInputGroup("form1","ipg1","工程信息")

.AddInput("工程代号","工程代号","Text") \'前一个"工程代号"是ID,后一个"工程代号"是标题

       With .AddInput("工程代号","工程代号","")
                .Attribute = "oninput=\'setCodes()\'" \'调用js函数
            End With

        .AddInput("工程名称","工程名称","Text")

        .AddInput("委托单位","委托单位","Text")

        .AddInput("建设单位","建设单位","Text")

        .AddInput("施工单位","施工单位","Text")

        .AddInput("设计单位","设计单位","Text")

HttpRequest代码如下：

Select Case e.Path

    Case "index.htm"

         Functions.Execute("首页",e)

    Case "zhuti.htm"

         Functions.Execute("结构实体抽测",e)

    Case "getCodes.htm" \'

        Dim dr As DataRow = DataTables("工程信息").Find("工程代号=\'" & e.Values("工程代号") & "\'")

        If dr IsNot Nothing Then

            e.WriteString(dr("工程名称") & "|" & dr("委托单位") & "|" & dr("建设单位") & "|" & dr("监理单位") & "|" & dr("施工单位") & "|" & dr("见证单位") & "|" & dr("见证人") & "|" & dr("设计单位"))

        End If

    Case Else

        e.WriteString("糟糕,文件未找到!")

End Select