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

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

Христофоров Юрий

В статье будет рассказано как можно работать с двоичными данными в SQL Server с помощью связки ASP + ADO. Поставим перед собой три задачи:

загрузить jpg-файл в столбец типа image таблицы SQL Server

выгрузить этот файл с сохранением на диске

отобразить на web-странице изображение, взятое из базы данных

Для начала создадим базу данных в SQL Server - пусть она будет называться test. Далее необходимо создать таблицу в нашей базе данных - назовем ее blob. Для выполнения указанных действий можно воспользоваться инструментом SQL Server Enterprise Manager.

Ниже на скриншоте показана структура этой таблицы:

blob_id - первичный ключ таблицы (поле типа IDENTITY)

Теперь можно приступать к разработке ASP-скрипта для загрузки тестового файла test.jpg в созданную таблицу.

Начиная с версии ADO 2.5 и выше в ADO появился объект ADODB.Stream. Он отлично подходит для работы с двоичными данными. Его мы и будем использовать.

Файл import.asp

Теперь напишем скрипт для экспорта двоичных данных из базы данных в jpg файл.

Файл export.asp

<%@ Language=VBScript %><%option explicitResponse.Buffer = TrueResponse.Expires = 0Server.ScriptTimeout = 600Dim cn, rs, objStream, sSQLSet 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, 3objStream.Type = 1objStream.OpenobjStream.Write rs.Fields("blob_file").Value' папка, где сохраняется файл, должна иметь NTFS права на чтение/запись для ' интернет-пользователя (обычно IUSR_<имя_компьютера>)' в данном случае - это текущая папка objStream.SaveToFile Server.MapPath("./") & "\test_from_db.jpg", 2rs.CloseobjStream.Closecn.CloseSet rs = NothingSet objStream = NothingSet cn = Nothing%><html><head><body><center><b>Файл успешно сохранен из базы данных !</b></center></body></head></html>

Теперь напишем скрипт для получения изображения из базы данных и непосредственного отображения на web-странице.

Файл img.asp

<%@ Language=VBScript %><%option explicitResponse.Buffer = TrueResponse.Expires = 0Server.ScriptTimeout = 600Response.ContentType = "image/jpeg"Dim cn, rs, sSQL, binStreamSet 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, 3binStream = rs.Fields("blob_file").Valuers.Closecn.CloseSet rs = NothingSet cn = NothingResponse.BinaryWrite binStream%>

ASP-скрипт img.asp можно указать в атрибуте src тега img:

Файл img_test.asp

<%@ Language=VBScript %><html><head></head><body><center><img border=0 src="img.asp"></center></body></html>