Dim FileName As String = "D:\DoctorEnrollDocs\" & Session("ID") & ".doc"
Dim FileStream As New FileStream(FileName, FileMode.Open)
Dim FileSize As Long = FileStream.Length
Dim inta As Int32 = CInt(FileSize)
Context.Response.ContentType = "application/octet-stream"
Context.Response.AddHeader("Content-Disposition", "attachment; filename=" & HttpUtility.UrlEncode("东北大学博士生入考试报名表" & ".doc", System.Text.Encoding.UTF8))
Context.Response.AddHeader("Content-Length", FileSize.ToString())
Dim fileBuffer(inta) As Byte
FileStream.Read(fileBuffer, 0, inta)
FileStream.Close()
Context.Response.BinaryWrite(fileBuffer)
Context.Response.End()
最新评论