45759 (Работа с двоичными данными (SQL Server + ASP))

<%

option explicit

Response.Buffer = True

Response.Expires = 0

Server.ScriptTimeout = 600

Dim cn, rs, objStream, sSQL

Set cn = Server.CreateObject("ADODB.Connection")

Set rs = Server.CreateObject("ADODB.Recordset")

Set objStream = Server.CreateObject("ADODB.Stream")

cn.Open "Provider=SQLOLEDB.1;Initial Catalog=test;Data Source=localhost;UID=yura;PWD=yura;"

sSQL = "SELECT * FROM blob WHERE blob_id=0"

rs.Open sSQL, cn, 1, 3

rs.AddNew

objStream.Type = 1

objStream.Open

' путь к файлу для загрузки

objStream.LoadFromFile(Server.MapPath("./") & "\test.jpg" )

rs.Fields("name").Value = "Тестовая картинка"

rs.Fields("blob_file").Value = objStream.Read

rs.Update

rs.Close

objStream.Close

cn.Close

Set rs = Nothing

Set objStream = Nothing

Set cn = Nothing

%>

Файл успешно загружен !

<%

option explicit

Response.Buffer = True

Response.Expires = 0

Server.ScriptTimeout = 600

Dim cn, rs, objStream, sSQL

Set cn = Server.CreateObject("ADODB.Connection")

Set rs = Server.CreateObject("ADODB.Recordset")

Set objStream = Server.CreateObject("ADODB.Stream")

cn.Open "Provider=SQLOLEDB.1;Initial Catalog=test;Data Source=localhost;UID=yura;PWD=yura;"

' запрос однозначно получающий запись из таблицы

' в данном случае для примера blob_id = 1

' в Вашем случае это может быть другое число

sSQL = "SELECT * FROM blob WHERE blob_id=1"

rs.Open sSQL, cn, 1, 3

objStream.Type = 1

objStream.Open

objStream.Write rs.Fields("blob_file").Value

' папка, где сохраняется файл, должна иметь NTFS права на чтение/запись для

' интернет-пользователя (обычно IUSR_)

' в данном случае - это текущая папка

objStream.SaveToFile Server.MapPath("./") & "\test_from_db.jpg", 2

rs.Close

objStream.Close

cn.Close

Set rs = Nothing

Set objStream = Nothing

Set cn = Nothing

%>

Файл успешно сохранен из базы данных !

<%

option explicit

Response.Buffer = True

Response.Expires = 0

Server.ScriptTimeout = 600

Response.ContentType = "image/jpeg"

Dim cn, rs, sSQL, binStream

Set cn = Server.CreateObject("ADODB.Connection")

Set rs = Server.CreateObject("ADODB.Recordset")

cn.Open "Provider=SQLOLEDB.1;Initial Catalog=test;Data Source=localhost;UID=yura;PWD=yura;"

' запрос однозначно получающий запись из таблицы

' в данном случае для примера blob_id = 1

' в Вашем случае это может быть другое число

sSQL = "SELECT * FROM blob WHERE blob_id=1"

rs.Open sSQL, cn, 1, 3

binStream = rs.Fields("blob_file").Value

rs.Close

cn.Close

Set rs = Nothing

Set cn = Nothing

Response.BinaryWrite binStream

%>