主题：按文档做了，提示类型未定义

1、在ie浏览器那里输入地址，看能否正常查看或下载文件；

2、如果不能，就是你httprequest事件代码有问题。

这个代码写到顶部

Dim fl As String = "c:\web\" & e.path '合成含路径的文件名
If filesys.FileExists(fl)
    Dim idx As Integer = fl.LastIndexOf(".")
    Dim ext As String  = fl.SubString(idx)
    Select Case ext
        Case ".doc",".jpg",".gif",".png",".bmp",".wmf",".js",".htm",".html",".css",".zip",".rar",".txt" '这里加上了js扩展名
            e.WriteFile(fl)
            Return '这里必须返回
    End Select
End If

说的是你服务器上有多个程序的情况。