用正则表达式过滤HTML代码

2008-01-24 15:01

<%
Option Explicit
Function stripHTML(strHTML)
'Strips the HTML tags from strHTML

Dim objRegExp, strOutput ,db ,db1
Set objRegExp = New Regexp

objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "<.+?>"

'Replace all HTML tag matches with the empty string
strOutput = objRegExp.Replace(strHTML, "")
'Replace all < and > with < and >
strOutput = Replace(strOutput, "<", "<")
strOutput = Replace(strOutput, ">", ">")
stripHTML = strOutput 'Return the value of strOutput

Set objRegExp = Nothing
End Function
%>

打开数据库记录集操作
<%
    dim rs,sql,iCount,iPageSize,maxpage,page,x,i
   set rs=server.createobject("adodb.recordset")
   sql = "select * from 表名 order by id desc"
   rs.open sql,conn,1,3
   %>

RS 输出内容(用LEN+LEFT截取数据)

<%if len(StripHTML(rs("读取的内容")))>100 then%>
<%=left(StripHTML(rs("读取的内容")),100)%>  <a href="#">更多>></a>
<%else%>
<%=StripHTML(rs("读取的内容"))%>
<%
end if
%>

最需要主意的地方：
Option Explicit 语句

强制要求显式声明脚本中的所有变量。

如果使用 Option Explicit，该语句必须出现在脚本的任何其他语句之前。要放在首行。
必须使用 Dim、Private、Public 或 ReDim 语句显式声明所有变量。如果试图使用未经声明的变量名，则会出现错误。

看不明白的地方可以加我Q（1593399）或给我留言！

用此正则表达式可以剔除用ASP编辑器添加数据时的HTML代码，因为在读取数据库时读取的HTML代码会影响到页面的显示效果。