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()