تعتبر وظيفة اعتراض سلسلة asp CutStrX (تصفية جميع علامات HTML) جيدة جدًا ويمكن للأصدقاء المحتاجين الرجوع إليها. انسخ رمز الكود كما يلي:
الدالة CutStrX (ByVal Str، ByVal StrLen)
خافت ل، ر، ج، ط، ص
"تصفية كافة علامات HTML."
تعيين r = RegExp جديد
r.Global=صحيح
r.MultiLine=صحيح
r.Pattern=(</?[A-Za-z][A-Za-z0-9]*[^>]*>)
str=r.Replace(str, )
تعيين ص = لا شيء
ل = لين (شارع)
ر = 0
لأني=1 إلى ل
ج=تصاعدي(منتصف(شارع،ط،1))
إذا كان c<0 أو c>255 ثم t=t+2 وإلا t=t+1
إذا ر>=StrLen ثم
CutStrX=يسار(Str,i)&...
الخروج ل
آخر
CutStrX=Str
نهاية إذا
التالي
وظيفة النهاية