Use asp para obter as imagens do conteúdo e obter o endereço da primeira imagem do conteúdo. É necessário principalmente para salvar as imagens do conteúdo em cms. Copie o código do código da seguinte forma:
'======================================
'Obtenha todas as imagens do 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>
Fim SE
Próximo
Fim SE
Fim 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)
Fim SE
Definir correspondências = nada
Definir Regs=Nada
Função final