ASP函数之清除字符中HTML标签

以下为代码

 

Function delHtml(strHtml) '做了一个函数名叫delhtml

 

 Dim objRegExp, strOutput

 Set objRegExp = New Regexp ' 建立正则表达式

 

 objRegExp.IgnoreCase = True ' 设置是否区分大小写

 objRegExp.Global = True '是匹配所有字符串还是只是第一个

 objRegExp.Pattern = "(<[a-zA-Z].*?>)|(<[\/][a-zA-Z].*?>)" ' 设置模式引号中的是正则表达式，用来找出html标签

 

 strOutput = objRegExp.Replace(strHtml, "") '将html标签去掉

 strOutput = Replace(strOutput, "<", "<") '防止非html标签不显示

 strOutput = Replace(strOutput, ">", ">")

 delHtml = strOutput

 

 Set objRegExp = Nothing

End Function

 

 

 

调用示例(注意看加红的那段代码)：

<%               

                         sql="select * from about where sortid=3"

                   

                                   set rs=conn.execute(sql)                                    

                                   if not rs.eof then

                                        if rs("picurl")<>"" then                                   

                            response.write "<div class='gs'><img src='"&mid(rs("picurl"),4)&"' style='float:left;margin-right:10px;'/></div>"              

                                           end if

                                           response.write left(delhtml(rs("body")),195)&"..."    

                                    else

                                        response.write "暂无信息！"

                                    end if

                                   rs.close

                                   set rs=nothing                                                 

                                                   %>

 

 

这样会把str里的HTML格式去掉，适用于某个地方只显示某一部分字符，以避免打乱整个网页的布局。因为直接取前几十个字符的话，会把HTML格式破坏掉，所以也会连累到整个网页。
 

文章来自: ASP技术网站(www.) 详文参考：http://www./aspjs1html/ASPjiaocheng/ASPjishuziliao/1365.html