[计算机]ASP函数之清除字符中HTML标签[计算机]ASP函数之清除字符中HTML标签
ASP函数之清除字符中HTML标签 来源:ASP技术网站(www.aspjs.net)
以下为代码
Function delHtml(strHtml) '做了一个函数名叫delhtml
Dim objRegExp, strOutput
Set objRegExp = New Regexp ' 建立正则表达式
objRegExp.IgnoreCase = True ' 设置是否区分大小写
objRegExp.Global = True '是匹配所有字符串还是只是第一个 ...
[计算机]ASP函数之清除字符中HTML标签
ASP函数之清除字符中HTML标签 来源:ASP技术网站(www.aspjs.net)
以下为代码
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 "
"
end if
response.write left(delhtml(rs("body")),195)&"..."
else
response.write "暂无信息~"
end if
rs.close
set rs=nothing
%>
这样会把str里的HTML格式去掉,适用于某个地方只显示某一部分字符,以避免打乱整个网页的布局。因为直接取前几十个字符的话,会把HTML格式破坏掉,所以也会连累到整个网页。
来源:ASP技术网站(www.aspjs.net)
本文档为【[计算机]ASP函数之清除字符中HTML标签】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑,
图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。