Gunakan asp untuk mendapatkan gambar di konten dan mendapatkan alamat gambar pertama di konten. Hal ini terutama diperlukan untuk menyimpan gambar di konten dalam cms.
Copy kode kodenya sebagai berikut:
'========
'Dapatkan semua gambar di konten
'========
Fungsi Get_ImgSrc(ByVal t0)
Redupkan t1,Reg,Cocok,Cocok
t1=""
JIKA Not(IsNull(t0) Atau Len(t0)=0) Maka
Tetapkan Regs=RegExp Baru
Regs.Pattern="<img[^>]+src=""([^"">]+)""[^>]*>"
Regs.Ignorecase=Benar
Regs.Global=Benar
Setel Kecocokan=Regs.Execute(t0)
IF Cocok. Hitung> 0 Lalu
Untuk Setiap Pertandingan Dalam Pertandingan
JIKA Tersisa(Match.SubMatches(0),7)<>"http://" Lalu
t1=t1&"<option value="""&Match.SubMatches(0)&""">"&Match.SubMatches(0)&"</option>"
Akhir JIKA
Berikutnya
Akhir JIKA
Akhir JIKA
Dapatkan_ImgSrc=t1
Tetapkan Kecocokan=Tidak Ada
Tetapkan Regs=Tidak Ada
Fungsi Akhir
'========
'Dapatkan gambar pertama di konten
'========
Fungsi Frist_Pic(ByVal t0)
Frist_Pic=""
Redupkan Regs, Cocok
Tetapkan Regs=RegExp Baru
Regs.Ignorecase=Benar
Regs.Global=Benar
Regs.Pattern="<img[^>]+src=""([^"">]+)""[^>]*>"
Setel Kecocokan=Regs.Execute(t0)
JIKA Regs.test(t0) Lalu
Frist_Pic=Kecocokan(0).SubKecocokan(0)
Akhir JIKA
Tetapkan Kecocokan=Tidak Ada
Tetapkan Regs=Tidak Ada
Fungsi Akhir