此主题相关图片如下：无标题.png

HttpServer.Prefixes.Add("http://127.0.0.1/")
HttpServer.Prefixes.Add("http://127.0.0.1:8010/")
HttpServer.WebPath = "d:\\weui"  \'文件放在这个文件夹里
HttpServer.Start()

Select Case e.Path
    Case "new.htm"

        wb.AddForm("","form1","test.htm")
        With wb.AddCheckGroup("form1","rdg1","选择你最喜欢的节目")
            .Add("bw1","品管+工程部")
            .Add("bw2","研发部")
            .Add("bw3","业务部+财务")
            .Add("bw4","SMT车间")
            .Add("bw5","五车间")
            .Add("bw6","四车间")
            .Add("bw7","三车间")
            .Add("bw8","资材+仓库")
        End With
        With  wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With
        e.WriteString(wb.Build) \'生成网页