Verwenden Sie asp, um die Bilder im Inhalt abzurufen und die erste Bildadresse im Inhalt zu erhalten. Es wird hauptsächlich zum Speichern der Bilder im Inhalt in cms verwendet.
Kopieren Sie den Codecode wie folgt:
'=====================================
„Alle Bilder im Inhalt abrufen.“
'=====================================
Funktion Get_ImgSrc(ByVal t0)
Dimmen Sie t1,Regs,Matches,Match
t1=""
IF Not(IsNull(t0) Or Len(t0)=0) Dann
Setze Regs=Neue RegExp
Regs.Pattern="<img[^>]+src=""([^"">]+)""[^>]*>"
Regs.Ignorecase=True
Regs.Global=True
Set Matches=Regs.Execute(t0)
IF Matches.Count>0 Then
Für jedes Spiel in Spielen
IF Left(Match.SubMatches(0),7)<>"http://" Then
t1=t1&"<option value="""&Match.SubMatches(0)&""">"&Match.SubMatches(0)&"</option>"
Beenden Sie IF
Nächste
Beenden Sie IF
Beenden Sie IF
Get_ImgSrc=t1
Setze Übereinstimmungen=Nichts
Setze Regs=Nothing
Funktion beenden
'=====================================
„Erhalten Sie das erste Bild im Inhalt.“
'=====================================
Funktion Frist_Pic(ByVal t0)
Frist_Pic=""
Dim Regs, Matches
Setze Regs=Neue RegExp
Regs.Ignorecase=True
Regs.Global=True
Regs.Pattern="<img[^>]+src=""([^"">]+)""[^>]*>"
Set Matches=Regs.Execute(t0)
IF Regs.test(t0) Dann
Frist_Pic=Matches(0).SubMatches(0)
Beenden Sie IF
Setze Übereinstimmungen=Nichts
Setze Regs=Nothing
Funktion beenden