主题：关于出错

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

好的，我试一试，对了老师，那个视频教程中说会把项目文件和帮助文件一起给我们，但是帮助文件有，项目文件呢？

开启了，但是啥都木有。。。，一个完美的空白页