1 '后台
Partial Public Class Download2
2 Inherits System.Web.UI.Page
3
4 Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
5 Dim fileName As String = Request.QueryString("FileName")
6 Dim flag As String = Request.QueryString("flag")
7 Dim fileInfo As New ServerFileInfo
8
9 '步骤1：设置相对路径，公告附件存储与/File/Bord目录下。
10
11
12 If flag = "1" Then
13 fileInfo.DirectoryInfo.SetRelativePath("/File/LiteratureOfTeacherFile/")
14 ElseIf flag = "2" Then
15 fileInfo.DirectoryInfo.SetRelativePath("/File/PaperOfTeacherFile/")
16 End If
17
18
19 '步骤2：设置命名规则，使用ServerNamingType.None不改名。
20
21 fileInfo.NamingType = ServerNamingType.None
22 '步骤3：传入文件的名称，通过之前步骤1与步骤2设置的参数组合生成物理路径。
23
24 fileInfo.SetRelativePath(fileName)
25
26 '检测文件是否存在，如果不存在，则没有必要进行任何操作。
27
28 If (fileInfo.Exists) Then
29
30 '创建输出项目，通过RegisteredFileInfo输出二进制流。
31
32 Dim info As RegisteredFileInfo = RegisteredFileInfo.Create(fileInfo.FullName)
33 '注意，第一个参数是文件的物理路径，第二个参数是在下载对话框中显示的名称。
34
35 info.WriteStream(fileInfo.FullName, fileName, Me)
36 End If
37 Response.End()
38 End Sub
