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 = "1" Then
            fileInfo.DirectoryInfo.SetRelativePath("/File/LiteratureOfTeacherFile/")
        ElseIf flag = "2" 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