asp常用的正則表達式實現字符串的替換,主要包括去除html標簽，去除class標簽和去除script標簽等

去除html標簽正則<//*[^<>]*>

1. FunctionLoseHtml(ContentStr) 
2.  
3. DimClsTempLoseStr,RegEx 
4.  
5. ClsTempLoseStr=Cstr(ContentStr) 
6.  
7. SetRegEx=NewRegExp 
8.  
9. RegEx.Pattern="<//*[^<>]*>" 
10.  
11. RegEx.IgnoreCase=True 
12.  
13. RegEx.Global=True 
14.  
15. ClsTempLoseStr=RegEx.Replace(ClsTempLoseStr,"") 
16.  
17. SetRegEx=Nothing 
18.  
19. LoseHtml=ClsTempLoseStr 
20.  
21. Endfunction 
22.  
23. 去除網頁中的class 
24.  
25. FunctionLoseClassTag(ContentStr) 
26.  
27. DimClsTempLoseStr,RegEx 
28.  
29. ClsTempLoseStr=Cstr(ContentStr) 
30.  
31. SetRegEx=NewRegExp 
32.  
33. RegEx.Pattern="(class=){1,}(""|/'){0,1}/S+(""|/'|>|/s){0,1}" 
34.  
35. RegEx.IgnoreCase=True 
36.  
37. RegEx.Global=True 
38.  
39. ClsTempLoseStr=RegEx.Replace(ClsTempLoseStr,"") 
40.  
41. LoseClassTag=ClsTempLoseStr 
42.  
43. SetRegEx=Nothing 
44.  
45. EndFunction 
46.  
47. FunctionLoseScriptTag(ContentStr) 
48.  
49. DimClsTempLoseStr,RegEx 
50.  
51. ClsTempLoseStr=Cstr(ContentStr) 
52.  
53. SetRegEx=NewRegExp 
54.  
55. RegEx.Pattern="(]*>[^/0]*(<//script>){1,}" 
56.  
57. RegEx.IgnoreCase=True 
58.  
59. RegEx.Global=True 
60.  
61. ClsTempLoseStr=RegEx.Replace(ClsTempLoseStr,"") 
62.  
63. LoseScriptTag=ClsTempLoseStr 
64.  
65. SetRegEx=Nothing 
66.  
67. EndFunction 
68.  
69. FunctionLoseIFrameTag(ContentStr) 
70.  
71. DimClsTempLoseStr,RegEx 
72.  
73. ClsTempLoseStr=Cstr(ContentStr) 
74.  
75. SetRegEx=NewRegExp 
76.  
77. RegEx.Pattern="(]*>[^/0]*(<//iframe>){1,}" 
78.  
79. RegEx.IgnoreCase=True 
80.  
81. RegEx.Global=True 
82.  
83. ClsTempLoseStr=RegEx.Replace(ClsTempLoseStr,"") 
84.  
85. LoseIFrameTag=ClsTempLoseStr 
86.  
87. SetRegEx=Nothing 
88.  
89. EndFunction 
90.  
91. FunctionLoseObjectTag(ContentStr) 
92.  
93. DimClsTempLoseStr,RegEx 
94.  
95. ClsTempLoseStr=Cstr(ContentStr) 
96.  
97. SetRegEx=NewRegExp 
98.  
99. RegEx.Pattern="(]*>[^/0]*(<//object>){1,}" 
100.  
101. RegEx.IgnoreCase=True 
102.  
103. RegEx.Global=True 
104.  
105. ClsTempLoseStr=RegEx.Replace(ClsTempLoseStr,"") 
106.  
107. LoseObjectTag=ClsTempLoseStr 
108.  
109. SetRegEx=Nothing 
110.  
111. EndFunction 
112.  
113. FunctionLoseSpanTag(ContentStr) 
114.  
115. DimClsTempLoseStr,RegEx 
116.  
117. ClsTempLoseStr=Cstr(ContentStr) 
118.  
119. SetRegEx=NewRegExp 
120.  
121. RegEx.Pattern="<(//){0,1}span[^<>]*>" 
122.  
123. RegEx.IgnoreCase=True 
124.  
125. RegEx.Global=True 
126.  
127. ClsTempLoseStr=RegEx.Replace(ClsTempLoseStr,"") 
128.  
129. LoseSpanTag=ClsTempLoseStr 
130.  
131. SetRegEx=Nothing 
132.  
133. EndFunction 
134.  
135. FunctionLoseFontTag(ContentStr) 
136.  
137. DimClsTempLoseStr,RegEx 
138.  
139. ClsTempLoseStr=Cstr(ContentStr) 
140.  
141. SetRegEx=NewRegExp 
142.  
143. RegEx.Pattern="<(//){0,1}font[^<>]*>" 
144.  
145. RegEx.IgnoreCase=True 
146.  
147. RegEx.Global=True 
148.  
149. ClsTempLoseStr=RegEx.Replace(ClsTempLoseStr,"") 
150.  
151. LoseFontTag=ClsTempLoseStr 
152.  
153. SetRegEx=Nothing 
154.  
155. EndFunction 
156.  
157. FunctionLoseATag(ContentStr) 
158.  
159. DimClsTempLoseStr,RegEx 
160.  
161. ClsTempLoseStr=Cstr(ContentStr) 
162.  
163. SetRegEx=NewRegExp 
164.  
165. RegEx.Pattern="<(//){0,1}a[^<>]*>" 
166.  
167. RegEx.IgnoreCase=True 
168.  
169. RegEx.Global=True 
170.  
171. ClsTempLoseStr=RegEx.Replace(ClsTempLoseStr,"") 
172.  
173. LoseATag=ClsTempLoseStr 
174.  
175. SetRegEx=Nothing 
176.  
177. EndFunction 
178.  
179. FunctionLoseDivTag(ContentStr) 
180.  
181. DimClsTempLoseStr,RegEx 
182.  
183. ClsTempLoseStr=Cstr(ContentStr) 
184.  
185. SetRegEx=NewRegExp 
186.  
187. RegEx.Pattern="<(//){0,1}div[^<>]*>" 
188.  
189. RegEx.IgnoreCase=True 
190.  
191. RegEx.Global=True 
192.  
193. ClsTempLoseStr=RegEx.Replace(ClsTempLoseStr,"") 
194.  
195. LoseDivTag=ClsTempLoseStr 
196.  
197. SetRegEx=Nothing 
198.  
199. EndFunction 
200.  
201. FunctionLoseStyleTag(ContentStr) 
202.  
203. DimClsTempLoseStr,RegEx 
204.  
205. ClsTempLoseStr=Cstr(ContentStr) 
206.  
207. SetRegEx=NewRegExp 
208.  
209. RegEx.Pattern="(]*>[^/0]*(<//style>){1,}" 
210.  
211. RegEx.IgnoreCase=True 
212.  
213. RegEx.Global=True 
214.  
215. ClsTempLoseStr=RegEx.Replace(ClsTempLoseStr,"") 
216.  
217. LoseStyleTag=ClsTempLoseStr 
218.  
219. SetRegEx=Nothing 
220.  
221. EndFunction 
222.  
223. FunctionLoseNoteTag(ContentStr) 
224.  
225. DimClsTempLoseStr,RegEx 
226.  
227. ClsTempLoseStr=Cstr(ContentStr) 
228.  
229. SetRegEx=NewRegExp 
230.  
231. RegEx.Pattern="{C}" 
232.  
233. RegEx.IgnoreCase=True 
234.  
235. RegEx.Global=True 
236.  
237. ClsTempLoseStr=RegEx.Replace(ClsTempLoseStr,"") 
238.  
239. LoseNoteTag=ClsTempLoseStr 
240.  
241. SetRegEx=Nothing 
242.  
243. EndFunction 
244.  
245. FunctionLoseTableTag(ContentStr) 
246.  
247. DimClsTempLoseStr,RegEx 
248.  
249. ClsTempLoseStr=Cstr(ContentStr) 
250.  
251. SetRegEx=NewRegExp 
252.  
253. RegEx.Pattern="<(//){0,1}table[^<>]*>" 
254.  
255. RegEx.IgnoreCase=True 
256.  
257. RegEx.Global=True 
258.  
259. ClsTempLoseStr=RegEx.Replace(ClsTempLoseStr,"") 
260.  
261. LoseTableTag=ClsTempLoseStr 
262.  
263. SetRegEx=Nothing 
264.  
265. EndFunction 
266.  
267. FunctionLoseTDTag(ContentStr) 
268.  
269. DimClsTempLoseStr,RegEx 
270.  
271. ClsTempLoseStr=Cstr(ContentStr) 
272.  
273. SetRegEx=NewRegExp 
274.  
275. RegEx.Pattern="<(//){0,1}td[^<>]*>" 
276.  
277. RegEx.IgnoreCase=True 
278.  
279. RegEx.Global=True 
280.  
281. ClsTempLoseStr=RegEx.Replace(ClsTempLoseStr,"") 
282.  
283. LoseTDTag=ClsTempLoseStr 
284.  
285. SetRegEx=Nothing 
286.  
287. EndFunction 
288.  
289. FunctionLoseTRTag(ContentStr) 
290.  
291. DimClsTempLoseStr,RegEx 
292.  
293. ClsTempLoseStr=Cstr(ContentStr) 
294.  
295. SetRegEx=NewRegExp 
296.  
297. RegEx.Pattern="<(//){0,1}tr[^<>]*>" 
298.  
299. RegEx.IgnoreCase=True 
300.  
301. RegEx.Global=True 
302.  
303. ClsTempLoseStr=RegEx.Replace(ClsTempLoseStr,"") 
304.  
305. LoseTRTag=ClsTempLoseStr 
306.  
307. SetRegEx=Nothing 
308.  
309. EndFunction