专家坐堂-html input 如何居中?Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim e As RequestEventArgs = args(0)

Dim s As String = "这是一个变量S"

Dim sb As New StringBuilder

sb.appendLine("<head>")

sb.appendLine("<meta name=\'viewport\' c / > ")\'自适应屏幕

sb.appendLine("<head>")

sb.appendLine("<body style = \'background-color: #95B9C7;\'>")\'设置背景颜色 style = \'background-color: 背景颜色代码号;

sb.AppendLine("<form action=\'AddNew.htm\' enctype=\'multipart/form-data\' method=\'post\' id=\'form1\' name=\'form1\'>")

sb.AppendLine("<h1 style = \'text-align: center;\'>这是一个标题。</h1>")

sb.AppendLine("<h1>这是一个标题2。</h1>")

sb.AppendLine("产品: <input name=\'cp\' id=\'cp\' type = \'text\' style = \'border: 1px solid red;\' value = \'" & s & "\'\'><br/><br/>") \'边框颜色style = \'border: 1px solid red;\'

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("<div style=\'text-align:center;width:100%\'>< input Type=\'submit\' name=\'Sumbit\' id=\'Sumbit\' value=\'确定\'/></div>")

sb.AppendLine("</form>")

sb.appendLine("</body>")

e.WriteString(sb.ToString)