Как вставить картинку из ASP в EXCEL ?

Проблема
Делаю выборку из базы MSSQL.
в одном из полей находится фото.
Фото вывожу файлом image.asp все как положено.
Файл в котором делаю выборку например aaa.asp.
В этом файле aaa.asp пишу строку Response.ContentType='application/vnd.ms-excel';

все нормально при нажатии на ссылку которая ведет на файл aaa.asp предлагается скачать aaa.xls файл.
Когда загружаю этот сохраненный excel файл все нормально, данные по ячейка все путем..
Но вот блин как картинку то положить в этот exel файл???

YANA!
Будь другом, покажи, как выводишь фото.

это скрипт img.asp

oRs = Server.CreateObject('ADODB.Recordset');
oRs.ActiveConnection = oConn;
var obj=Request.QueryString('obj'); //получаем номер объекта
sqlstr='SELECT [tm_file].[size], [tm_file].[type], [tm_file].[file] FROM tm_file INNER JOIN obj ON obj.nz=tm_file.n WHERE (obj.n='+obj+' AND obj.type=24)'
oRs.Source=sqlstr
oRs.Open();
if(!oRs.eof){
if(oRs('type')=='Pic'){
Response.Buffer = true
Response.Clear
Response.ContentType = 'image/'+oRs('type');
Response.BinaryWrite(oRs.Fields('file'). Value);
//Response.Write(oRs.Fields('file').Value)
Response.End
oRs.Close();
oConn.Close();
}
}

соответственно
вывожу картинку я как <img src='img.asp?obj=N'>
ГДЕ N это и есть номер картинки, тое тсь число

А как ты формируешь экселевский файл? Если в виде обычного HTML, то врядли получиться туда картинку впихнуть.

0

там именно так, при этом присывают строчку Response.ContentType='application/vnd.ms-excel';
чтоб выводилось в excel...
Если знаешь способ как можно..
пробовала создавать объект excel.. но че то дальше не пошла.. не помню почему(сообщение то очень старое), наверно потому что способ Response.ContentType='application/vnd.ms-excel';
показался мне приемлемым.

Если есть какие идеи, буду благодарна.

В таком варианте видимо никак, поскольку на выходе получается не экселевский файл, а простой HTML и эксель его импортирует налету (если закрыть такой файл, то эксель попросит сохранить его в родном формате).

0

ну а как бы вы сделали???
просто у меня мало времени было,и я сделала так как сделала, а про картинки сказала, что времени нужно больше для решения задачи, которго не было.

Привет.
Не знаю как картинку вывести, не пробовал, а вот код который я использую для вывода в эксель выборки из БД.
Его я подсмотрел на VBNET.RU и переделал под себя.
Правда VBS а JScript но это барабер, суть одно и то же.
<%
'####################################### #######################################
'## ##
'## ##
'## Класс для генерации отчета в формате MSExcel на основе выборки из базы ##
'## данных и последующей выгрузки этого файла клиенту. ##
'## Используются: ##
'## OWC.SpreadSheet - для создания файла ##
'## Adodb.Stream - для выгрузки ##
'## Scripting.FileSystemObject - для манипуляций с файлом ##
'## ##
'## ##
'####################################### #######################################


Class ExcelGen
Private objSpreadsheet 'Лист
Private sSheetName 'Имя листа
Private c 'Для констант листа
Public sTempName 'Имя для выгрузки файла клиенту

'+++++++++++ Переменные заголовка +++++++++++++++++++++++++++++
Public sHeaderReport 'Заголовок Отчета
Public iHeaderRowPosition 'Строка смещения заголовка Отчета
Public iHeaderColPosition 'Колонка смещения заголовка Отчета
Public iHeaderFontSize 'Размер шрифта заголовка

'+++++++++++ Переменные шапки таблицы +++++++++++++++++++++++++
Public iTableRowPosition 'Строка смещения таблицы
Public iTableColPosition 'Колонка смещения таблицы
Public iTableHeadFontSize 'Размер шрифта шапки
Public blnTableHeadFontWeight 'Жирность шрифта шапки Да/Нет
Public hTableHeadBackColor 'Цвет фона шапки в шестнадцатиричном виде
Public hTableHeadForeColor 'Цвет шрифта шапки в шестнадцатиричном виде

'+++++++++++ Переменные таблицы +++++++++++++++++++++++++++++++
Public blnRowColorChange 'Изменять ли цвет строк Да/Нет
Public hRowBackColorOne 'Цвет нечетных строк (шестнадцатирич.)
Public hRowBackColorTwo 'Цвет четных строк (шестнадцатирич.)
Public hRowForeColorOne 'Цвет шрифта нечетных строк (шестнадцатирич.)
Public hRowForeColorTwo 'Цвет шрифта четных строк (шестнадцатирич.)
Public iTableFontSize 'Размер шрифта в таблице

Sub Class_Initialize()
Set objSpreadsheet = Server.CreateObject('OWC.Spreadsheet')
set c=objSpreadsheet.Constants
sSheetName='Отчет с сервера'
sHeaderReport='Заголовок ОТЧЕТА'
iHeaderRowPosition=1
iHeaderColPosition=1
iHeaderFontSize=14
iTableRowPosition=2
iTableColPosition=1
iTableHeadFontSize=12
blnTableHeadFontWeight=True
hTableHeadBackColor=&H00ffffff
hTableHeadForeColor=&H00000000
blnRowColorChange=False
hRowBackColorOne=&H00ffffff
hRowBackColorTwo=&H0099ff99
hRowForeColorOne=&H00000000
hRowForeColorTwo=&H00000000
iTableFontSize=10
End Sub

Sub Class_Terminate()
Set c=nothing
Set objSpreadsheet = Nothing
End Sub

Public Property Let SheetName(strName)
If strName <> '' Then
sSheetName = 'Отчет с сервера'
Else
sSheetName=strName
End If
End Property

Public Property Get SheetName()
sSheetName=SheetName
End Property

'+++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++++++++++++++++++++
Public Sub GenerateWorksheet(objRS) 'Принимает подгтовленный рекордсет<BR

0