VB.net 点击下载文件

 下载动态产生的文件可以用以下代码：

        Response.ClearHeaders()
        Response.Clear()
        Response.Expires = 0
        Response.Buffer = True
        Response.AddHeader("Accept-Language", "utf-8")
        ' Filename
        Response.AddHeader("content-disposition", "attachment; filename=aaa.vcs")
        Response.ContentType = "Application/octet-stream"
        ' File Content 
        Response.Write("this is test file")
        Response.End()

下载已存在的文件，可以用下面代码

        Response.ClearHeaders()
        Response.Clear()
        Response.Expires = 0
        Response.Buffer = True
        Response.AddHeader("Accept-Language", "utf-8")
        ' Filename
        Response.AddHeader("content-disposition", "attachment; filename=aaa.vcs")
        Response.ContentType = "Application/octet-stream"
        ' File Content 
　　Response.Write(System.IO.File.ReadAllBytes("c:/aaaa.txt")) 
        Response.End()