Utilisez asp pour obtenir les images dans le contenu et obtenir la première adresse d'image dans le contenu. Il est principalement nécessaire de sauvegarder les images dans le contenu en cms.
Copiez le code comme suit :
'=======================================
'Obtenir toutes les images du contenu
'=======================================
Fonction Get_ImgSrc(ByVal t0)
Dim t1, Regs, Matchs, Match
t1=""
SI Non (IsNull (t0) Ou Len (t0) = 0) Alors
Définir Regs = Nouvelle RegExp
Regs.Pattern="<img[^>]+src=""([^"">]+)""[^>]*>"
Regs.Ignorecase = Vrai
Regs.Global=Vrai
Définir des correspondances = Regs.Execute (t0)
SI Matches.Count>0 Alors
Pour chaque match dans les matchs
SI Gauche(Match.SubMatches(0),7)<>"http://" Puis
t1=t1&"<option value="""&Match.SubMatches(0)&""">"&Match.SubMatches(0)&"</option>"
Fin SI
Suivant
Fin SI
Fin SI
Get_ImgSrc=t1
Définir les correspondances = Rien
Définir Regs = Rien
Fonction de fin
'=======================================
'Obtenir la première image du contenu
'=======================================
Fonction Frist_Pic(ByVal t0)
Première_Pic=""
Dim Regs, Matchs
Définir Regs = Nouvelle RegExp
Regs.Ignorecase = Vrai
Regs.Global=Vrai
Regs.Pattern="<img[^>]+src=""([^"">]+)""[^>]*>"
Définir des correspondances = Regs.Execute (t0)
SI Regs.test(t0) Alors
Frist_Pic=Correspondances(0).SubMatches(0)
Fin SI
Définir les correspondances = Rien
Définir Regs = Rien
Fonction de fin