|
| 删除HTML标签 |
| |
| ［作者：不详 转贴自：不详 点击数： 更新时间：2006-3-13 8:48:51］ |
总结:
方法一不能解决如这样的字符串 :"索吧网<Welcome To You!>索吧网"， "<Welcome To You!>"不是HTML代码也将被除数替换掉。
晕,现在我还没想到时好的办法，如果那位高知道请给我一个EMail xiaotengfei[at]gmail.com
方法二目前测试没有问题
<%
'方法一:通过函数查找
function DelHtml(htmlCode)
dim iStart,iEnd
dim sTemp
sTemp=htmlCode
iStart=instr(sTemp,"<")
iEnd=instr(sTemp,">")
do while iStart>0 and iEnd>0 and iEnd-iStart>0
sTemp=replace(sTemp,mid(sTemp,iStart,iEnd-iStart+1),"")
iStart=instr(sTemp,"<")
iEnd=instr(sTemp,">")
loop
DelHtml=sTemp
end function
'方法二:通过正则表达式
function DelHtml2(htmlCode)
dim regEx,sMatches,sMatch
dim sTemp
set regEx=New RegExp
regEx.Pattern="(<(.*\b).*>).*(<\/\2>)"
regEx.IgnoreCase=true
regEx.Global=true
sTemp=htmlCode
'Response.Write regEx.Test(sTemp)
set sMatches = regEx.Execute(sTemp)
for each sMatch in sMatches
sTemp=Replace(sTemp,sMatch.SubMatches(0),"")
sTemp=Replace(sTemp,sMatch.SubMatches(2),"")
next
DelHtml2=sTemp
end function
'测试部分
Response.Write "测试<br>"
str1="索吧网 <Welcome To You >Soar'Blog <font color=""#eeeeee"">http://www.soar8.com/blog/</font>兰陵子[soar]"
Response.Write "原字符串:str1=" & Server.HTMLEncode(str1)
Response.Write "<br>DelHtml(str1)后:str1="&Server.HTMLEncode(DelHtml(str1))
Response.Write "<br><br>"
Response.Write "原字符串:str1=" & Server.HTMLEncode(str1)
Response.Write "<br>DelHtml2(str1)后:str1="&Server.HTMLEncode(DelHtml2(str1))
%>
|
| |
|
 hch004  打印本页  关闭窗口 |
|
|
设为首页
收藏本站
作者：黄振安
ＱＱ：53854651
您现在的位置： 拓文网络 → 网站编程 → ASP → 删除HTML标签［正文］ 
