استخدم 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 ثم
لكل مباراة في المباريات
إذا ترك (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)
نهاية إذا
تعيين التطابقات = لا شيء
تعيين التسجيلات = لا شيء
وظيفة النهاية