If Not IsPostBack Then
Dim strcontent As String
Dim strarray() As String
Dim strtitle As String
Dim str As String
Dim con As SqlConnection
Dim cmd As SqlCommand
Dim strcmd As String
Dim da As SqlDataReader
con = New SqlConnection(ConfigurationSettings.AppSettings("stars"))
strcmd = "select title,ct,ft from infomation where id=" & CInt(Request("id"))
cmd = New SqlCommand(strcmd, con)
con.Open()
da = cmd.ExecuteReader
If da.Read() Then
context.Response.Buffer = True
context.Response.Clear()
context.Response.ContentType = da("ft").ToString()
context.Response.AddHeader("Content-Disposition", "attachment;filename=" + HttpUtility.UrlEncode(da("Title").ToString()))
context.Response.BinaryWrite(CByte(da("ct")))
context.Response.Flush()
context.Response.End()
End If
con.Close()
Dim strcontent As String
Dim strarray() As String
Dim strtitle As String
Dim str As String
Dim con As SqlConnection
Dim cmd As SqlCommand
Dim strcmd As String
Dim da As SqlDataReader
con = New SqlConnection(ConfigurationSettings.AppSettings("stars"))
strcmd = "select title,ct,ft from infomation where id=" & CInt(Request("id"))
cmd = New SqlCommand(strcmd, con)
con.Open()
da = cmd.ExecuteReader
If da.Read() Then
context.Response.Buffer = True
context.Response.Clear()
context.Response.ContentType = da("ft").ToString()
context.Response.AddHeader("Content-Disposition", "attachment;filename=" + HttpUtility.UrlEncode(da("Title").ToString()))
context.Response.BinaryWrite(CByte(da("ct")))
context.Response.Flush()
context.Response.End()
End If
con.Close()
context.Response.BinaryWrite(CByte(da("ct")))
改为
context.Response.BinaryWrite((byte[])da("ct"))
Response.BinaryWrite(DataReader);