以下是引用有点甜在2017/11/12 22:02:00的发言：

如

 

        Dim sb As New StringBuilder
        sb.AppendLine("<form enctype=\'multipart/form-data\' method=\'post\' id=\'form1\' name=\'form1\'>")
        sb.AppendLine("产品: <input name=\'cp\' id=\'cp\' style=\'width:300px\'><br/><br/>")
        sb.AppendLine("客户: <input name=\'kh\' id=\'kh\'><br/><br/>")
        sb.AppendLine("雇员: <input name=\'gy\' id=\'gy\'><br/><br/>")
        sb.AppendLine("单价: <input type=\'number\' name=\'dj\' id=\'dj\'><br/><br/>")
        sb.AppendLine("折扣: <input type=\'number\' name=\'zk\' id=\'zk\' min=\'0\' max=\'0.15\' step=\'0.01\'><br/><br/>")
        sb.AppendLine("数量: <input type=\'number\' name=\'sl\' id=\'sl\'><br/><br/>")
        sb.AppendLine("日期: <input type=\'date\' name=\'rq\' id=\'rq\'><br/><br/>")
        sb.AppendLine("<input Type=\'submit\' name=\'Sumbit\' id=\'Sumbit\' value=\'确定\'>")
        sb.AppendLine("</form>")
        e.WriteString(sb.ToString)

我是用下列代码生成的截图。

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

        

        With wb.AddInputGroup("form1","ipg1","登录信息")

            If khr("登录数据").split(",").length=2

                With .AddSelect("bzdw","" & khr("登录数据").split(",")(0) & "",lsdt.GetComboListString(khr("登录数据").split(",")(0)) & "|")

                    .Attribute = """

                End With

                

                With .AddSelect("yhfz","" & khr("登录数据").split(",")(1) & "","")

                    .Attribute = """

                End With

            End If

            .AddSelect("username","用户姓名","")

            .AddInput("password","密码","password")

        End With

        With wb.AddButtonGroup("form1","btg1",True)

            .Add("btn1", "登录", "submit")

        End With

        e.WriteString(wb.Build) \'生成网页

以下是引用lihe60在2017/11/12 22:20:00的发言：
发布前可以用，发布后不能用，如何解决？