SqlDa.SelectCommand.CommandText = "select * from itemcontent where icid=" + id
SqlDa.SelectCommand.Connection = Conn
SqlDa.Fill(DsContent1, "ic")
Dim dr As SqlClient.SqlDataReader = SqlDa.SelectCommand.ExecuteReader
dr.Read()
'数据为空退出
If dr.IsDBNull(9) Then
Response.Write("<script language='JavaScript'>alert('没有文件信息');</script>")
Response.Write("<script language='JavaScript'>window.close();</script>")
Exit Sub
End If
'读取数据
Dim TrueSize = dr.GetBytes(fileDataCol, 0, Nothing, 0, Integer.MaxValue)
Dim fileContent(TrueSize) As Byte
dr.GetBytes(fileDataCol, 0, fileContent, 0, TrueSize)