请教：读取数据库，显示附件问题
代码不执行，没有错误显示。请教高手！

Dim sql, strfilename As String
cn.Open()
sql = "SELECT * FROM " & Request.QueryString("tbl") & " WHERE ID=" & Request.QueryString("id")
Dim dr_read As SqlDataReader
Dim oCommand As New SqlCommand(sql, cn)

dr_read = oCommand.ExecuteReader()

If dr_read.Read() Then

Response.Clear()
strfilename = dr_read("FILENAME")

Response.AddHeader("Content-Disposition", "inline;filename=" + HttpUtility.UrlEncode(strfilename, Encoding.UTF8))
Response.AddHeader("Content-Length", dr_read("FILELENGTH"))
Response.AddHeader("Content-Type", dr_read("FILEFMT"))
Response.OutputStream.Write(CType(dr_read("FILEDATA"), Byte()), 0, dr_read("FILELENGTH"))

End If
dr_read.Close()
cn.Close()
Response.End() 数据库
[解决办法]
表示问题没有描述清楚

“显示附件问题”？
Response.AddHeader("Content-Disposition", "inline;filename=" + HttpUtility.UrlEncode(strfilename, Encoding.UTF8)) 这里报错？

先断点检查下问题的地方吧