asp去除所有的超级链接的两种方法 替换与正则

函数去除超级链接——以简单与正则方式呈现

在网页开发中，经常需要处理带有超链接的HTML字符串，有时为了某些需求，我们需要去除这些超链接。接下来，我们将介绍两种不同方法来实现这一功能，分别是以简单的字符串处理方式与正则表达式方式来完成。

简单字符串处理方式

函数名：RemoveHref_A

参数：HTMLstr（待去除链接的字符串）

作者：阿里西西

日期：2007年7月12日

描述：去除字符串中所有的超级链接

示例：<%=RemoveHref_A("测试")%>

代码实现如下：

```vbscript

Function RemoveHref_A(HTMLstr)

Dim n, str1, str2, str3, str4

HTMLstr = LCase(HTMLstr) ' 将字符串转为小写，便于匹配标签大小写不敏感的情况

For n = 1 To Ubound(Split(HTMLstr, "

str1 = Instr(HTMLstr, "

str2 = Instr(str1, HTMLstr, ">") ' 找到">"标签的位置，即标签结束位置

HTMLstr = left(HTMLstr, str1-1) & right(HTMLstr, len(HTMLstr)-len(left(HTMLstr, str2))) ' 移除找到的链接标签及其内容部分

HTMLstr = replace(HTMLstr, "", "") ' 删除""标签部分，确保移除完整的链接结构

Next ' 继续循环直到处理完所有可能的链接标签

RemoveHref_A = HTMLstr ' 返回处理后的字符串

End Function %>

```

正则表达式方式处理（推荐）

函数名：RegRemoveHref（推荐使用正则表达式方式处理）参数：HTMLstr（待去除链接的字符串）描述：通过正则表达式去除字符串中所有的超级链接示例：<%=RegRemoveHref("测试")%>代码实现如下：```vbscriptFunction RegRemoveHref(HTMLstr) Set ra = New RegExp ra.IgnoreCase = True ra.Global = True ra.Pattern = "]+>(.+?)" ' 正则表达式匹配所有超链接并提取出超链接中的文本内容 RegRemoveHref = ra.replace(HTMLstr,"$1") END Function %>注意使用正则表达式的处理方式更加简洁高效，并且能够准确地提取出超链接中的文本内容。在实际应用中，推荐使用正则表达式方式进行处理。以上两种方法均可以成功去除字符串中的超链接，可以根据实际需求选择适合的方法进行处理。记得调用函数`Cambrian.render('body')`来渲染页面主体部分。