قد نضيف بعض الارتباطات التشعبية في ASP ، ولكن ماذا يجب أن نفعل إذا لم نكن بحاجة إليها بعد إضافتها؟ الآن دعونا نلقي نظرة على طرق إزالة جميع الارتباطات التشعبية من ASP. إذا كنت تريد أن تعرف ، يرجى الرجوع إليهم.
<٪
'*********************************
'الدالة: removeHref_A (htmlstr)
"الوسائط: HTMLSTRST ، السلسلة المراد إزالتها
المؤلف: Alixi
"التاريخ: 2007/7/12
الوصف: قم بإزالة جميع الارتباطات التشعبية في السلسلة
"مثال: <٪ = removeHref_a (" <a href =/abc/h.html> اختبار </a> ") ٪>
'*********************************
دالة removeHref_A (HTMLSTR)
Dim N ، Str1 ، Str2 ، Str3 ، Str4
HTMLSTR = LCASE (HTMLSTR)
لـ n = 1 إلى ubound (تقسيم (htmlstr ، "<a"))
str1 = instr (htmlstr ، "<a")
str2 = instr (str1 ، htmlstr ، ">")
htmlstr = يسار (htmlstr ، str1-1) واليمين (htmlstr ، len (htmlstr) -len (يسار (htmlstr ، str2)))))
htmlstr = استبدال (htmlstr ، "</a>" ، "")
removeHref_a = htmlstr
التالي
وظيفة نهاية
٪>
قم بإزالة جميع الارتباطات التشعبية بانتظام في الأوتار
<٪
'*********************************
"الوظيفة: RepremoveHref (HTMLSTR)
"الوسائط: HTMLSTRST ، السلسلة المراد إزالتها
المؤلف: Alixi
"التاريخ: 2007/7/12
الوصف: قم بإزالة جميع الارتباطات التشعبية في الأوتار بالمنتظم
"مثال: <٪ = RepremoveHref (" <a href =/abc/h.html> اختبار </a> ") ٪>
'*********************************
وظيفة remromoveHref (HTMLSTR)
تعيين ra = جديد regexp
ra.ignorecase = صحيح
ra.global = صحيح
ra.pattern = "<a [^>]+> (.+؟) <// a>"
RepremoveHref = ra.replace (htmlstr ، "$ 1")
وظيفة نهاية
٪>
ما سبق هو كل محتوى هذه المقالة. آمل أن يكون محتوى هذه المقالة من بعض المساعدة في دراسة أو عمل الجميع. آمل أيضًا دعم قناة التكنولوجيا الجديدة الخاطئة!