Используйте asp для получения картинок в контенте и получения адреса первой картинки в контенте. В основном это нужно для сохранения картинок в контенте в cms. Используется обычный метод. Скопируйте код кода следующим образом:
'====================================
'Получить все изображения в контенте
'====================================
Функция Get_ImgSrc(ByVal t0)
Dim t1,регы,матчи,матч
т1=
ЕСЛИ Not(IsNull(t0) Или Len(t0)=0), Тогда
Установить Regs=Новое регулярное выражение
Regs.Pattern=<img[^>]+src=([^>]+)[^>]*>
Regs.Ignorecase=Истина
Regs.Global=Истина
Установить Matches=Regs.Execute(t0)
ЕСЛИ Matches.Count>0 Тогда
За каждый матч в матчах
ЕСЛИ Left(Match.SubMatches(0),7)<>http:// Тогда
t1=t1&<option value=&Match.SubMatches(0)&>&Match.SubMatches(0)&</option>
Конец ЕСЛИ
Следующий
Конец ЕСЛИ
Конец ЕСЛИ
Get_ImgSrc=t1
Установить совпадения = Ничего
Установить Regs=Ничего
Конечная функция
'====================================
'Получаем первое изображение в контенте
'====================================
Функция Frist_Pic(ByVal t0)
Frist_Pic=
Дим Реги, Матчи
Установить Regs=Новое регулярное выражение
Regs.Ignorecase=Истина
Regs.Global=Истина
Regs.Pattern=<img[^>]+src=([^>]+)[^>]*>
Установить Matches=Regs.Execute(t0)
ЕСЛИ Regs.test(t0) Тогда
Frist_Pic=Совпадения(0).SubMatches(0)
Конец ЕСЛИ
Установить совпадения = Ничего
Установить Regs=Ничего
Конечная функция