ScriptHtml 函数之过滤html标记的asp代码

答案：'================================================== 
'函数名：ScriptHtml 
'作  用：过滤html标记 
'参  数：ConStr ------ 要过滤的字符串 
'================================================== 
Function ScriptHtml(Byval ConStr,TagName,FType) 
    Dim Re 
    Set Re=new RegExp 
    Re.IgnoreCase =true 
    Re.Global=True 
    Select Case FType 
    Case 1 
       Re.Pattern="<" & TagName & "([^>])*>" 
       ConStr=Re.Replace(ConStr,"") 
    Case 2 
       Re.Pattern="<" & TagName & "([^>])*>.*?</" & TagName & "([^>])*>" 
       ConStr=Re.Replace(ConStr,"")  
    Case 3 
       Re.Pattern="<" & TagName & "([^>])*>" 
       ConStr=Re.Replace(ConStr,"") 
       Re.Pattern="</" & TagName & "([^>])*>" 
       ConStr=Re.Replace(ConStr,"") 
    End Select 
    ScriptHtml=ConStr 
    Set Re=Nothing 
End Function

上一个：asp实现检查目录是否存在与建立目录的函数
下一个：GetPaing 函数之asp采集函数中用到的获取分页的代码