Use asp para obter as imagens do conteúdo e obter o endereço da primeira imagem no conteúdo. É necessário principalmente para salvar as imagens no conteúdo em cms.
Copie o código do código da seguinte forma:
'======================================
'Obtém todas as imagens no conteúdo
'======================================
Função Get_ImgSrc(ByVal t0)
Dim t1, Regs, Correspondências, Correspondência
t1=""
SE Não(IsNull(t0) Ou Len(t0)=0) Então
Definir Regs = Novo RegExp
Regs.Pattern="<img[^>]+src=""([^"">]+)""[^>]*>"
Regs.Ignorecase = Verdadeiro
Regs.Global=Verdadeiro
Definir correspondências=Regs.Execute(t0)
SE Correspondências.Contagem>0 Então
Para cada partida nas partidas
SE Esquerda(Match.SubMatches(0),7)<>"http://" Então
t1=t1&"<option value="""&Match.SubMatches(0)&""">"&Match.SubMatches(0)&"</option>"
Terminar SE
Próximo
Terminar SE
Terminar SE
Get_ImgSrc=t1
Definir correspondências = nada
Definir Regs=Nada
Função final
'======================================
'Obtém a primeira imagem no conteúdo
'======================================
Função Frist_Pic(ByVal t0)
Primeira_Pic=""
Dim Regs, correspondências
Definir Regs = Novo RegExp
Regs.Ignorecase = Verdadeiro
Regs.Global=Verdadeiro
Regs.Pattern="<img[^>]+src=""([^"">]+)""[^>]*>"
Definir correspondências=Regs.Execute(t0)
SE Regs.test(t0) Então
Frist_Pic=Correspondências(0).SubMatches(0)
Terminar SE
Definir correspondências = nada
Definir Regs=Nada
Função final