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",".zip",".rar"

                      e.WriteFile(fl)

                      Return \'这里必须返回

       End Select

End If

Select Case e.Path

    Case "test.htm"

        Dim wb As New WeUI

        wb.AddPageTitle("","ph1","FoxUI","为Foxtable用户量身设计")

        wb.AddForm("","form1","test.htm")

        With wb.AddInputGroup("form1","ipg1")

            .AddInput("xm","户名","text")

            .AddInput("pw","密码","password")

        End With

        With wb.AddButtonGroup("form1","btg1",True)

            .Add("btn1", "确定", "submit")

        End With

        e.WriteString(wb.Build)

End Select

 老是提示错误 Dim fl As String = "d:\\web\\" & e.path

写到httprequest事件。

【在菜单的“管理项目”功能区，单击“网络监视器”，将“HttpRequest”事件的代码设置为】

示例文件和图片 https://pan.baidu.com/s/1bpkXfND#list/path=%2Fsharelink372459251-337288419518952%2F04.%E7%A7%BB%E5%8A%A8%E5%BC%80%E5%8F%91%E6%8C%87%E5%8D%97&parentPath=%2Fsharelink372459251-337288419518952