Скачай Работа с двоичными данными (SQL Server + ASP) статья по информатике и еще Руководство, Проектов, Исследование в формате PDF Информатика только на Docsity! Работа с двоичными данными (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 <%@ Language=VBScript %> <% 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 %> <html> <head> <body> <center> <b>Файл успешно загружен !</b> </center> </body> </head> </html> Теперь напишем скрипт для экспорта двоичных данных из базы данных в jpg файл. Файл export.asp <%@ Language=VBScript %> <% 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"
