это быстро и бесплатно
Оформите заказ сейчас и получите скидку 100 руб.!
Ознакомительный фрагмент работы:
Работа с двоичными данными (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" 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 %> <html> <head> <body> <center> <b>Файл успешно сохранен из базы данных !</b> </center> </body> </head> </html> |
Теперь напишем скрипт для получения изображения из базы данных и непосредственного отображения на web-странице.
Файл img.asp
<%@ Language=VBScript %> <% 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 %> |
ASP-скрипт img.asp можно указать в атрибуте src тега img:
Файл img_test.asp
<%@ Language=VBScript %> <html> <head> </head> <body> <center> <img border=0 src="img.asp"> </center> </body> </html> |
Сделайте индивидуальный заказ на нашем сервисе. Там эксперты помогают с учебой без посредников Разместите задание – сайт бесплатно отправит его исполнителя, и они предложат цены.
Цены ниже, чем в агентствах и у конкурентов
Вы работаете с экспертами напрямую. Поэтому стоимость работ приятно вас удивит
Бесплатные доработки и консультации
Исполнитель внесет нужные правки в работу по вашему требованию без доплат. Корректировки в максимально короткие сроки
Гарантируем возврат
Если работа вас не устроит – мы вернем 100% суммы заказа
Техподдержка 7 дней в неделю
Наши менеджеры всегда на связи и оперативно решат любую проблему
Строгий отбор экспертов
К работе допускаются только проверенные специалисты с высшим образованием. Проверяем диплом на оценки «хорошо» и «отлично»
Работы выполняют эксперты в своём деле. Они ценят свою репутацию, поэтому результат выполненной работы гарантирован
Ежедневно эксперты готовы работать над 1000 заданиями. Контролируйте процесс написания работы в режиме онлайн
вклад чиркиной гв в развитие коммуникативных способностей детей с ограниченными возможностями здоровья
Статья, Дефектология
Срок сдачи к 14 февр.
Создание компьютерной программы для решения задачи симплекс-метода...
Курсовая, Программирование
Срок сдачи к 16 февр.
Тема: резервы повышения эффективности деятельности организации в...
Диплом, Экономика
Срок сдачи к 15 апр.
Архитиктура зданий и сооружений_4 сем
Курсовая, Архитиктура зданий и сооружений_4 сем, строительство
Срок сдачи к 19 февр.
Архитектура зданий и сооружений_3 сем
Курсовая, Архитектура зданий и сооружений_3 сем, строительство
Срок сдачи к 19 февр.
Контрольная работа в программе kodesys
Контрольная, Технология программирование мехатронных систем
Срок сдачи к 14 февр.
Реши практическую работу
Решение задач, Введение в проф деятельность, строительство, электротехника
Срок сдачи к 14 февр.
3 неделя февраля.
Другое, Календарно-тематичнское планирование, менеджмент, педагогика
Срок сдачи к 13 февр.
Ассортимент, приготовление и способы реализации банкетных горячих блюд...
Курсовая, МДК.02, кулинария
Срок сдачи к 20 апр.
Начертить чертежи по задачам в компасе. с возможностью распечатывания на А3
Чертеж, Начертательная геометрия
Срок сдачи к 28 февр.
Развитие математических способностей младших школьников на занятиях математического кружка
Диплом, Математика
Срок сдачи к 12 мар.
Производственная практика. Выполнение работ по профессии «кассир»
Отчет по практике, Экономика и бухгалтерский учет(по отраслям )
Срок сдачи к 13 февр.
Заполните форму и узнайте цену на индивидуальную работу!