还是不行麻烦老师帮忙看一下是哪里错了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)
加好友 
发短信
Post By：2023/9/22 23:55:00 [只看该作者]
