过滤超级链接的asp函数代码

需要asp过滤html链接的函数代码吗，下面这个正则表达式为你实现：
Function losehref(wstr)
Dim re
Set re=new RegExp
re.IgnoreCase =True
re.Global=True
re.Pattern=""
Set Matches =re.Execute(wstr)'开始执行配置
set re=nothing
body=""
For Each Match in Matches
wstr=Replace(wstr,Match.Value,"")
body=wstr
Next

End Function

这个正则表达式函数更理想，可以看看：
<%
'ASP过滤所有超链接代码
'ASP编程学习www.zzzyk.com
Function NoHref(sContent)
Dim Re
Set Re=new RegExp
Re.IgnoreCase =True
Re.Global=True
Re.Pattern="])*>"
sContent=Re.Replace(sContent,"")
Re.Pattern="])*>"
sContent=Re.Replace(sContent,"")
NoHref=sContent
Set Re=Nothing
End Function
%>

适当修改还可以过滤其他例如span和javascript<% 'ASP过滤所有超链接代码 'ASP编程学习www.zzzyk.com Function NoHref(sContent) Dim Re Set Re=new RegExp Re.IgnoreCase =True Re.Global=True Re.Pattern="])*>" sContent=Re.Replace(sContent,"") Re.Pattern="])*>" sContent=Re.Replace(sContent,"") NoHref=sContent Set Re=Nothing End Function %>

Asp里面用正则表达式过滤 链接标记

Function LoseATag(ContentStr)
Dim ClsTempLoseStr,regEx
ClsTempLoseStr = Cstr(ContentStr)
Set regEx = New RegExp
regEx.Pattern = "<(\/){0,1}a[^<>]*>"
regEx.IgnoreCase = True
regEx.Global = True
ClsTempLoseStr = regEx.Replace(ClsTempLoseStr,"")
LoseATag = ClsTempLoseStr
Set regEx = Nothing
End Function

//通用过滤函数

function ReplaceText(strHTML,patrn,replStr)
Set regEx = New RegExp ' 建立正则表达式
regEx.Pattern = patrn ' 设置模式
regEx.IgnoreCase = True ' 设置是否区分大小写
regEx.Global = True ' 设置全局可用性
ReplaceText = regEx.Replace(""&strHTML&"","") ' 作替换
Set reg=nothing
End function

上一个：电脑桌面的图标变大变模糊的解决方法
下一个：asp删除mssql数据库中没有记录的图片和文件