Asp正則表達式過濾標簽收集

001 <% 002 '過濾 所有 Html ： 003   004 Function ReplaceHtml(ConStr) 005     Dim tmpReStr, regEx 006     tmpReStr = CStr(ConStr) 007     Set regEx = New RegExp 008     regEx.Pattern = "<\/*[^<>]*>" 009     regEx.IgnoreCase = True 010     regEx.Global = True 011     tmpReStr = regEx.Replace(tmpReStr, "") 012     ReplaceHtml = tmpReStr 013 End Function 014   015 '過濾 style ： 016   017 Function ReplaceStyleTag(ConStr) 018     Dim tmpReStr, regEx 019     tmpReStr = CStr(ConStr) 020     Set regEx = New RegExp 021     regEx.Pattern = "(<style)+[^<>]*>[^\0]*(<\/style>)+" 022     regEx.IgnoreCase = True 023     regEx.Global = True 024     tmpReStr = regEx.Replace(tmpReStr, "") 025     ReplaceStyleTag = tmpReStr 026     Set regEx = Nothing 027 End Function 028   029   030 '過濾 層 div ： 031   032 Function ReplaceDivTag(ConStr) 033     Dim tmpReStr, regEx 034     tmpReStr = CStr(ConStr) 035     Set regEx = New RegExp 036     regEx.Pattern = "<(\/){0,1}div[^<>]*>" 037     regEx.IgnoreCase = True 038     regEx.Global = True 039     tmpReStr = regEx.Replace(tmpReStr, "") 040     ReplaceDivTag = tmpReStr 041     Set regEx = Nothing 042 End Function 043   044   045   046 '過濾 鏈接 a ： 047   048 Function ReplaceATag(ConStr) 049     Dim tmpReStr, regEx 050     tmpReStr = CStr(ConStr) 051     Set regEx = New RegExp 052     regEx.Pattern = "<(\/){0,1}a[^<>]*>" 053     regEx.IgnoreCase = True 054     regEx.Global = True 055     tmpReStr = regEx.Replace(tmpReStr, "") 056     ReplaceATag = tmpReStr 057     Set regEx = Nothing 058 End Function 059   060   061 '過濾 字體 font ： 062   063 Function ReplaceFontTag(ConStr) 064     Dim tmpReStr, regEx 065     tmpReStr = CStr(ConStr) 066     Set regEx = New RegExp 067     regEx.Pattern = "<(\/){0,1}font[^<>]*>" 068     regEx.IgnoreCase = True 069     regEx.Global = True 070     tmpReStr = regEx.Replace(tmpReStr, "") 071     ReplaceFontTag = tmpReStr 072     Set regEx = Nothing 073 End Function 074   075   076 '過濾 span ： 077   078 Function ReplaceSpanTag(ConStr) 079     Dim tmpReStr, regEx 080     tmpReStr = CStr(ConStr) 081     Set regEx = New RegExp 082     regEx.Pattern = "<(\/){0,1}span[^<>]*>" 083     regEx.IgnoreCase = True 084     regEx.Global = True 085     tmpReStr = regEx.Replace(tmpReStr, "") 086     ReplaceSpanTag = tmpReStr 087     Set regEx = Nothing 088 End Function 089   090   091 '過濾 Object ： 092   093 Function ReplaceObjectTag(ConStr) 094     Dim tmpReStr, regEx 095     tmpReStr = CStr(ConStr) 096     Set regEx = New RegExp 097     regEx.Pattern = "<object.*?/object>" 098     regEx.IgnoreCase = True 099     regEx.Global = True 100     tmpReStr = regEx.Replace(tmpReStr, "") 101     ReplaceObjectTag = tmpReStr 102     Set regEx = Nothing 103 End Function 104   105   106 '過濾 iframe： 107   108 Function ReplaceIFrameTag(ConStr) 109     Dim tmpReStr, regEx 110     tmpReStr = CStr(ConStr) 111     Set regEx = New RegExp 112     regEx.Pattern = "(<iframe){1,}[^<>]*>[^\0]*(<\/iframe>){1,}" 113     regEx.IgnoreCase = True 114     regEx.Global = True 115     tmpReStr = regEx.Replace(tmpReStr, "") 116     ReplaceIFrameTag = tmpReStr 117     Set regEx = Nothing 118 End Function 119   120   121 '過濾 script： 122   123 Function ReplaceScriptTag(ConStr) 124     Dim tmpReStr, regEx 125     tmpReStr = CStr(ConStr) 126     Set regEx = New RegExp 127     regEx.Pattern = "(<script){1,}[^<>]*>[^\0]*(<\/script>){1,}" 128     regEx.IgnoreCase = True 129     regEx.Global = True 130     tmpReStr = regEx.Replace(tmpReStr, "") 131     ReplaceScriptTag = tmpReStr 132     Set regEx = Nothing 133 End Function 134   135   136 '過濾 Class ： 137   138 Function ReplaceClassTag(ConStr) 139     Dim tmpReStr, regEx 140     tmpReStr = CStr(ConStr) 141     Set regEx = New RegExp 142     regEx.Pattern = "(class=){1,}(""|\'){0,1}\S+(""|\'|>|\s){0,1}" 143     regEx.IgnoreCase = True 144     regEx.Global = True 145     tmpReStr = regEx.Replace(tmpReStr, "") 146     ReplaceClassTag = tmpReStr 147     Set regEx = Nothing 148 End Function 149 %>(鼠標移到代碼上去，在代碼的頂部會出現四個圖標，第一個是查看源代碼，第二個是復制代碼，第三個是打印代碼，第四個是幫助)