主题：表中的文件列，怎么通过httpserver提供给网页下载

头文件那里，把doc后缀加上，把文件放到d:\web\目录里

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",".doc"
            e.WriteFile(fl)
            Return '这里必须返回
    End Select
End If