vb.net下载代码
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