天空彩票欢迎您的到来!

广州市天空彩票
N

新闻中心

EWS CENTER

当前位置:首页 > 新闻中心 > 行业动态

新闻中心NEWS CENTER

细数润滑油使用的四大误区

文章来源:www    发布日期:2012-5-21    浏览:4654次


关于内容过滤html代码,网上这类文章很多,有些代码非常繁琐,这里我们使用正则运算写一个比较常用的代码,只需要几行代码就可适用于大部分的程序。

1.过滤代码如下:

<%
Function RemoveHTML( strText )'去除文档中的html函数
Dim regEx
Set regEx = New RegExp
regEx.Pattern ="(<[^>]*?>)" '正则匹配
regEx.Global = True'搜索全部匹配
regEx.IgnoreCase = True'是否区分大小写
RemoveHTML = replace(regEx.Replace(""&strText,""),"&nbsp;","") '去除内容中的空格符&nbsp;该代码会删掉所有的空格,需根据情况使用
End Function
%>

过滤所有的HTML代码,然后再删掉内容中的空格就是显示中文了(原理就是找到<>这两个标签删除该标签及标签里面的内容)。

RemoveHTML = replace(regEx.Replace(""&strText,""),"&nbsp;","") '该代码会删掉所有的空格,需根据情况使用;如不需要可修改为RemoveHTML = RegEx.Replace(strText, "")

 

2.在需要的地方调用
<%=removehtml(rs("game"))%>
 
如:
<%
Function RemoveHTML(strText)
Dim RegEx
Set RegEx = New RegExp
RegEx.Pattern = "<[^>]*>"
RegEx.Global = True
RemoveHTML = RegEx.Replace(strText, "")
End Function
%>
<%
body = removehtml(rs("body")
%>
<a href="news_view.asp?id=1"><%=left(body,100)%></a>

 艺彩视觉提供

 

在线客服

QQ在线客服


电子邮箱: temaautoparts@163.com

微博: