Utilice asp para obtener las imágenes del contenido y obtener la primera dirección de la imagen del contenido. Se utiliza principalmente el método normal para guardar las imágenes del contenido.
Copie el código de código de la siguiente manera:
'========================================
'Obtener todas las imágenes en el contenido
'========================================
Función Get_ImgSrc(ByVal t0)
Dim t1,Regs,Partidos,Partido
t1=""
SI no (IsNull(t0) o Len(t0)=0) Entonces
Establecer registros = nueva expresión regular
Regs.Pattern="<img[^>]+src=""([^"">]+)""[^>]*>"
Regs.Ignorecase=Verdadero
Regs.Global=Verdadero
Establecer coincidencias=Regs.Execute(t0)
SI coincide.Count>0 Entonces
Para cada partido en partidos
IF Left(Match.SubMatches(0),7)<>"http://" Entonces
t1=t1&"<option value="""&Match.SubMatches(0)&""">"&Match.SubMatches(0)&"</option>"
Fin SI
Próximo
Fin SI
Fin SI
Get_ImgSrc=t1
Establecer coincidencias=Nada
Establecer reglas=Nada
Función final
'========================================
'Obtener la primera imagen en el contenido
'========================================
Función Frist_Pic(ByVal t0)
Primera_Pic=""
Regulaciones tenues, partidos
Establecer registros = nueva expresión regular
Regs.Ignorecase=Verdadero
Regs.Global=Verdadero
Regs.Pattern="<img[^>]+src=""([^"">]+)""[^>]*>"
Establecer coincidencias=Regs.Execute(t0)
IF Regs.test(t0) Entonces
Frist_Pic=Partidas(0).SubPartidas(0)
Fin SI
Establecer coincidencias=Nada
Establecer reglas=Nada
Función final