主题：foxtable2017默认页问题

'通用事件头,用于发送已经存在的常见文件

Dim fl As String = "C:\Users\baihe\OneDrive\ApplicationData\WWW\"  & 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",".svg"
            e.WriteFile(fl)
            Return '这里必须返回
    End Select
End If

'以下是动态生成网页的代码
Select Case e.Path
    Case "KNPC.html",""
        '这是默认页面

        e.WriteFile("C:\Users\baihe\OneDrive\ApplicationData\WWW\KNPC.html")
End Select