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/>")
Next
Dim dr As DataRow = DataTables("表A").AddNew()
dr("身份证号码")=e.postvalues("sfzhm")
e.WriteString("读入成功 " & sb.ToString)
End Select
直接在本机点击打开网页test.htm 运行正常
设置窗口和打开网页按钮