With wb.AddInputGroup("form1","ipg1","登录")
.AddInput("xm","户名","text")
.AddInput("pw","密码","password")
End With

 With wb.AddGrid("","g1")
.Add("c1","Button","./images/button.png").Attribute = ""

这两类不同的控件能否显示在一个窗口内呢？谢谢

  Case "default.htm" \'首页
        wb.AddPageTitle("","pageheader","工资查询系统","金者软件开发")
        
              With wb.AddInputGroup("form1","ipg1","客户资料")
            .AddInput("姓名","姓名","Text") \'前一个"姓名"是ID,后一个"姓名"是标题
            .AddInput("年龄","年龄","number")
            .AddInput("日期","日期","date")
            .AddSelect("级别","级别","普通会员|高级会员|VIP会员")
            .AddSwitch("停权","停权")
        End With
        
               With wb.AddGrid("","g1")
         
            .Add("c1","增加订单", "./images/105.png").Attribute = ""
            .Add("c2","客户管理", "./images/120.png", "http://www.foxtable.com")
            .Add("c3","销售统计", "./images/121.png").Attribute = ""
            .Add("c4","修改密码", "./images/130.png","Update.htm")   \'.Attribute = ""   \' javascript:alert(""./images/121.png"")\'"
            .Add("c5","Progress", "./images/123.png", "http://www.foxtable.com")
            .Add("c12","退出", "./images/147.png", "exit.htm") \'退出登录
           
        End With
        e.WriteString(wb.Build)

经过测试上面这段程序，只显示下面Gird的内容。

把 e.WriteString(wb.Build)移到中间部份时就什么也不显示了！

加上红色

        wb.AddPageTitle("","pageheader","工资查询系统","金者软件开发")
        wb.AddForm("","form1","test.htm")
        With wb.AddInputGroup("form1","ipg1","客户资料")