服务器之家:专注于服务器技术及软件下载分享
分类导航

PHP教程|ASP.NET教程|JAVA教程|ASP教程|

服务器之家 - 编程语言 - ASP教程 - asp 过滤尖括号内所有内容的正则代码

asp 过滤尖括号内所有内容的正则代码

2019-09-16 10:58asp之家 ASP教程

正常ASP中对录入内容的过滤仅仅是对左尖括号和右尖括号的HTML源码的替换,所以在页面中显示为左右尖括号,而不是将尖括号作为HTML标签执行了。

当然这应该属于正常过滤手法,而还有一种过滤HTML标签的最终极手法,则是将一对尖括号及尖括号中的所有字符均替换不显示,该方法对于内容中必须描述有关尖括号内容过滤过头了。 
  不过,总归是有需要将所有尖括号中内容全部替换的时候,很显然是需要进行正则的,有两种代码,第一种如下: 

复制代码代码如下:

Function nohtml(str) 
dim re 
Set re=new RegExp 
re.IgnoreCase =true 
re.Global=True 
re.Pattern="(\<.[^\<]*\>)" 
str=re.replace(str,"") 
re.Pattern="(\<\/[^\<]*\>)" 
str=re.replace(str,"") 
nohtml=str 
set re=nothing 
End Function 


  第二种: 

复制代码代码如下:

Function nohtml(str) 
dim re 
Set re=new RegExp 
re.IgnoreCase =true 
re.Global=True 
re.Pattern="<(.[^>]*)>" 
str=re.replace(str,"") 
nohtml=str 
set re=nothing 
End Function


简单的应用: 

  1. <script language="vbs">  

  2. Function nohtml(str)  

  3. dim re  

  4. Set re=new RegExp  

  5. re.IgnoreCase =true  

  6. re.Global=True  

  7. re.Pattern="<(.[^>]*)>"  

  8. str=re.replace(str,"")  

  9. nohtml=str  

  10. set re=nothing  

  11. End Function  

  12. alert(nohtml("<b>www.aqgpar.cn</b><a href='//www.aqgpar.cn'>服务器之家</a>"))  

  13. </script> 

延伸 · 阅读

精彩推荐
北京塞车全天计划精准版