استخدم asp للحصول على الصور الموجودة في المحتوى والحصول على عنوان الصورة الأولى في المحتوى، وهو ضروري بشكل أساسي لحفظ الصور في المحتوى بتنسيق cms. انسخ رمز الكود كما يلي:
'===========================================================
'احصل على جميع الصور في المحتوى
'===========================================================
الدالة Get_ImgSrc(ByVal t0)
خافت t1، التسجيلات، المباريات، المباراة
t1=
إذا لم يكن (IsNull(t0) أو Len(t0)=0) إذن
تعيين Regs=RegExp الجديد
Regs.Pattern=<img[^>]+src=([^>]+)[^>]*>
Regs.Ignorecase=صحيح
Regs.Global=صحيح
تعيين التطابقات=Regs.Execute(t0)
إذا Matches.Count>0 ثم
لكل مباراة في المباريات
IF Left(Match.SubMatches(0),7)<>http:// ثم
t1=t1&<option value=&Match.SubMatches(0)&>&Match.SubMatches(0)&</option>
نهاية إذا
التالي
نهاية إذا
نهاية إذا
Get_ImgSrc=t1
تعيين التطابقات = لا شيء
تعيين التسجيلات = لا شيء
وظيفة النهاية
'===========================================================
'احصل على الصورة الأولى في المحتوى
'===========================================================
الدالة Frist_Pic(ByVal t0)
فريست_بيك=
التسجيلات الخافتة، المباريات
تعيين Regs=RegExp الجديد
Regs.Ignorecase=صحيح
Regs.Global=صحيح
Regs.Pattern=<img[^>]+src=([^>]+)[^>]*>
تعيين التطابقات=Regs.Execute(t0)
إذا Regs.test(t0) ثم
Frist_Pic=Matches(0).SubMatches(0)
نهاية إذا
تعيين التطابقات = لا شيء
تعيين التسجيلات = لا شيء
وظيفة النهاية