mark 下载文件
Dim fs As System.IO.FileStream = Nothing
fs = System.IO.File.Open("d:\test.txt", System.IO.FileMode.Open)
Dim btFile As Byte() = New Byte(fs.Length - 1) {}
fs.Read(btFile, 0, Convert.ToInt32(fs.Length))
fs.Close()
e.Response.Headers("Content-Disposition") = "attachment;filename=test.txt"
'输出文件格式
e.Response.ContentType = "application/octet-stream"
Dim output = e.response.OutputStream
output.Write(btFile,0,btFile.Length)
output.Close()
[此贴子已经被作者于2017/8/23 14:20:03编辑过]