Используйте 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=Ничего
Конечная функция