网络服务问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

网络服务设置：

HttpServer.Prefixes.Add("http://127.0.0.1:8080/")

HttpServer.WebPath = "d:\web" '指定静态文件存储位置

HttpServer.Start()

test.htm 如下：

<HTML>

<HEAD>

</HEAD>

<BODY >

<form/>

</BODY>

</HTML>

HttpRequest 代码如下：

Dim fl As String = "d:\web\" & e.path

If filesys.FileExists(fl)

Dim idx As Integer = fl.LastIndexOf(".")

Dim ext As String = fl.SubString(idx)

Select Case ext

Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".doc",".docx",".xls",".xlsx",".pdf"

e.WriteFile(fl)

End Select

End If

Select Case e.Path

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

Dim dr As DataRow = DataTables("表A").AddNew()

dr("身份证号码")=e.postvalues("sfzhm")

e.WriteString("读入成功 " & sb.ToString)

End Select

直接在本机点击打开网页test.htm 运行正常

设置窗口和打开网页按钮

窗口按钮代码如下：

Dim brw As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")

brw.Address ="d:\web\test.htm"

但，点击按钮后，test.htm网页打开正常，但点击提交后，得到的结果是网页无法打开（估计是accept.htm无法打开）是和原因？如何解决？谢谢！

主题：网络服务问题