而不是弹出对话框提示保存还是打开,怎么修正。。
Response.Clear()
Response.Buffer = True
Response.Charset = "utf-8"
Dim fileStream As FileStream = New FileStream("C:\\11.xls", FileMode.Open)
Dim fileSize As Long = fileStream.Length
Response.AppendHeader("Content-Disposition", "attachment;filename=" & filename)
Response.AppendHeader("Content-Length", fileSize.ToString())
Response.ContentEncoding = System.Text.Encoding.GetEncoding("utf-8")
Response.ContentType = "application/ms-excel" Dim fileBuffer() As Byte
ReDim fileBuffer(fileSize)
fileStream.Read(fileBuffer, 0, fileSize)
Context.Response.BinaryWrite(fileBuffer)
Context.Response.End()
Response.Clear()
Response.Buffer = True
Response.Charset = "utf-8"
Dim fileStream As FileStream = New FileStream("C:\\11.xls", FileMode.Open)
Dim fileSize As Long = fileStream.Length
Response.AppendHeader("Content-Disposition", "attachment;filename=" & filename)
Response.AppendHeader("Content-Length", fileSize.ToString())
Response.ContentEncoding = System.Text.Encoding.GetEncoding("utf-8")
Response.ContentType = "application/ms-excel" Dim fileBuffer() As Byte
ReDim fileBuffer(fileSize)
fileStream.Read(fileBuffer, 0, fileSize)
Context.Response.BinaryWrite(fileBuffer)
Context.Response.End()
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货