有关文件下载

Question

'在此处放置初始化页的用户代码
        Dim path As String
        path = Server.HtmlDecode(Request.Params("file"))
        Dim f As New FileInfo(path)
        If Not File.Exists(path) Then
            'alert("file does not exist!")
            Exit Sub
        End If
        Response.Clear()
        Response.AddHeader("Content-disposition", "attachment;filename=" + f.Name)
        Response.AddHeader("content-length", f.Length.ToString)
        Response.ContentType = "application/octet-stream"
        Response.ContentEncoding = System.Text.Encoding.UTF8
        Response.WriteFile(f.FullName)
        Response.End()