已经按照这个做了，用内网在服务器启动的，为什么在我的电脑上访问时却提示格式错误呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

已经按照这个做了，用内网在服务器启动的，为什么在我的电脑上访问时却提示格式错误呢？

此主题相关图片如下：qq截图20180201141314.png

此主题相关图片如下：qq截图20180201141331.png

此主题相关图片如下：qq截图20180201141347.png

是发布之后复制到服务器上了呢，那我启动哪里不是写内网和外网？直接写HttpServer.Prefixes.Add("http://*/") 了？如果启动可以的话，我在浏览器中去验证是输入外网还是内网呢？

出现这样的错误是不是因为端口又被占用的原因呢？

此主题相关图片如下：qq截图20180201154752.png

我可不可已在后面加个端口呢，之前出错那里提示“与现有注册冲突”

HttpServer.close()

HttpServer.Prefixes.Add("http://*:96/")

HttpServer.Start()

msgbox("可以执行")

服务器运行这个启动代码没有问题，为什么在电脑上访问时却没有东西呢？我在防火墙入账规则那里添加了个10089的端口，然后在安全组那里也添加了10089这个安全组

HttpServer.close()

HttpServer.Prefixes.Add("http://*:10089/")

HttpServer.Start()

msgbox("可以执行")

此主题相关图片如下：qq截图20180202095622.png

这是httprequest的代码，直接复制过来的

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/>")

e.WriteString(sb.ToString)

End Select

原来发布文件httprequest那里也要写代码的。。

服务器可以弹出路径，但是浏览器一直在转

主题：已经按照这个做了，用内网在服务器启动的，为什么在我的电脑上访问时却提示格式错误呢？