'后台
　　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