Utilice asp para obtener las imágenes del contenido y obtener la dirección de la primera 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_foto=
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