接收表单数据按帮助文档，直接将HttpRequest事件代码设置为以下内容，但是http://127.0.0.1/网页什么都没有显示Select Case e.Path
Case "input.htm"
Dim sb As New StringBuilder
sb.AppendLine("<form action='accept.htm' enctype='multipart/form-data' method='post' id='form1'name='form1'>")
sb.AppendLine("产品: <input name='cp' id='cp'><br/><br/>")
sb.AppendLine("客户: <input name='kh' id='kh'><br/><br/>")
sb.AppendLine("单价: <input type='number' name='dj' id='dj'><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='password' name='mm' id='mm'><br/><br/>")
sb.AppendLine("支付方式: <br/>")
sb.AppendLine("<input type='radio' name='fs' id='fs1' value = '支付宝' checked>支付宝") '注意同一组的radio，name属性相同，id属性不同
sb.AppendLine("<input type='radio' name='fs' id='fs2' value = '微信'>微信")
sb.AppendLine("<input type='radio' name='fs' id='fs3' value = '微信'>网银<br/><br/>")
sb.AppendLine("会员: <input type='checkbox' name='hy' id='hy'><br/><br/>")
sb.AppendLine("<input type='submit' name='sumbit' id='sumbit' value='提交'>")
sb.AppendLine("<input type='reset' name='reset' id='reset' value='重置'>")
sb.AppendLine("<input type='button' name='foxtble' id='foxtable' value='Foxtable主页' >")
sb.AppendLine("</form>")
e.WriteString(sb.ToString)
Case "accept.htm"
Dim sb As New StringBuilder
sb.AppendLine("接收到的数据有:<br/><br/>")
For Each key As String In e.Values.Keys
sb.AppendLine(key & ":" & e.Values(key) & "<br/>")
Next
e.WriteString(sb.ToString)
End Select
加好友 
发短信
Post By：2019/3/7 10:11:00 [只看该作者]
