通用事件头目录 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

'通用事件头,用于发送已经存在的常见文件
Select Case e.Path
    Case "saletj.htm","showtj.htm" '排除两个页面,由后面的代码负责处理
    Case Else '其他页面或文件如果已经存在,直接发送
        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
End Select

'通用事件头,中如果是购买的服务器，d:\web\这个目录要怎么填？根目录是httpdocs 这个

主题：通用事件头目录