[求助]关于发布后HTTP服务不正常的情况 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

'通用事件头,用于发送已经存在的常见文件
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

上面红色的代码要修改，改为实际的目录，以5楼的图片为例，就是：

Dim fl As String = ProjectPath & e.Path

Projectpath是一个全局变量，返回的是项目文件夹

主题：[求助]关于发布后HTTP服务不正常的情况