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

正常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

　　简单的应用：

        

　　附：“过滤HTML代码并截取”的代码：

Function cutStr(str,strlen) 
Dim re 
Set re=new RegExp 
re.IgnoreCase =True 
re.Global=True 
re.Pattern="<(.[^>]*)>" 
str=re.Replace(str,"") 
set re=Nothing 
Dim l,t,c,i 
l=Len(str) 
t=0 
For i=1 to l 
c=Abs(Asc(Mid(str,i,1))) 
If c>255 Then 
t=t+2 
Else 
t=t+1 
End If 
If t>=strlen Then 
cutStr=left(str,i)&"..." 
Exit For 
Else 
cutStr=str 
End If 
Next 
cutStr=Replace(cutStr,chr(10),"") 
cutStr=Replace(cutStr,chr(13)," ") 
cutStr=Replace(cutStr," ","") 
End Function