vb.net下载代码

 '后台
　　Partial Public Class Download2
     Inherits System.Web.UI.Page

     Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
         Dim fileName As String = Request.QueryString("FileName")
         Dim flag As String = Request.QueryString("flag")
         Dim fileInfo As New ServerFileInfo

         '步骤1：设置相对路径，公告附件存储与/File/Bord目录下。

         If flag = "" Then
             fileInfo.DirectoryInfo.SetRelativePath("/File/LiteratureOfTeacherFile/")
         ElseIf flag = "" Then
             fileInfo.DirectoryInfo.SetRelativePath("/File/PaperOfTeacherFile/")
         End If

         '步骤2：设置命名规则，使用ServerNamingType.None不改名。

         fileInfo.NamingType = ServerNamingType.None
         '步骤3：传入文件的名称，通过之前步骤1与步骤2设置的参数组合生成物理路径。

         fileInfo.SetRelativePath(fileName)

         '检测文件是否存在，如果不存在，则没有必要进行任何操作。

         If (fileInfo.Exists) Then

             '创建输出项目，通过RegisteredFileInfo输出二进制流。

             Dim info As RegisteredFileInfo = RegisteredFileInfo.Create(fileInfo.FullName)
             '注意，第一个参数是文件的物理路径，第二个参数是在下载对话框中显示的名称。

             info.WriteStream(fileInfo.FullName, fileName, Me)
         End If
         Response.End()
     End Sub