Рег выражение не правильно заменяет текст.

Итак, я в своём сайте вырезаю из текстов, добавленных пользователями и мной самим опасные тэги такой вот функцией:

Код (Text):

1. function del_bad_tegs($WHERE_DEL)//Удаление опасных тэгов
2. {
3.  $i=1;
4.  $bad_teg[1]='FRAME'; $bad_teg[2]='MARQUEE'; $bad_teg[3]='SCRIPT'; $bad_teg[4]='APPLET'; $bad_teg[5]='IFRAME'; $bad_teg[6]='FRAMESET';
5.  while ($i++!=6)
6.  {
7.   $WHERE_DEL=preg_replace('/<'.$bad_teg[$i].'.*>/imx','!Опасный тэг!',$WHERE_DEL);
8.  }
9.  return $WHERE_DEL;
10. }

На вход функции всегда подаётся одна строка, но довольно длинная. (Несколько тысяч символов может быть.)
Функция работает нормально, до первого опасного тэга.
Т.е. если функции передать такой текст :

Код (Text):

1. <p>Текст скриптики типа того.</p><script type="text/javascript">бла бла бла...</script><p>И дальше тоже текстик идёёёёёттт!!!!</p>

То результат получается таким:

А должен быть таким:

Т.е. должен заменяться только сам открывающийся тэг.. Что я неверно делаю?

 

Sergey89, большое спасибо.
Но эту функцию я знаю.. хорошая функция, вот только нет обратной(((
Конечно в крайнем случае придётся ипользовать её, но перечислять почти все существующие HTML тэги, кроме 6-8 "нехороших" не очень хочется. (хотя учитывая сколько я мучаюсь с этим рег выражением, так сделать было бы проще, но всё-таки)
Инетресно было бы послушать ещё возможные варианты решения проблемы..

 

Большое спасибо Sergey89 за попытку помочь... проблему решил.
Если кому когда пригодится, то вот такой функция, которая удаляет "плохие" тэги, как бы они не были записаны.

Код (Text):

1. function del_bad_tegs($WHERE_DEL)
2. {
3.  $bad_tags=array
4.  (
5.   '@(<\s*SCRIPT\s*[^>]*?>.*?<\s*/\s*SCRIPT\s*>|<\s*SCRIPT\s*[^>]>)@simx',
6.   '@(<\s*FRAME\s*[^>]*?>.*?<\s*/\s*FRAME\s*>|<\s*FRAME\s*[^>]*?>)@simx',
7.   '@(<\s*IFRAME\s*[^>]*?>.*?<\s*/\s*IFRAME\s*>|<\s*IFRAME\s*[^>]*?>)@simx',
8.   '@(<\s*FRAMESET\s*[^>]*?>.*?<\s*/\s*SCRIPT\s*>|<\s*FRAMESET\s*[^>]*?>)@simx',
9.   '@(<\s*MARQUEE\s*[^>]*?>.*?<\s*/\s*SCRIPT\s*>|<\s*MARQUEE\s*[^>]*?>)@simx',
10.   '@(<\s*APPLET\s*[^>]*?>.*?<\s*/\s*SCRIPT\s*>|<\s*APPLET\s*[^>]*?>)@simx',
11.  );
12.  $WHERE_DEL = preg_replace($bad_tags, '!!!Опасный тэг!!!', $WHERE_DEL);
13.  return $WHERE_DEL;
14. }

В частности после передачи скрипту даже такого извращённого варианта кода:

Код (Text):

1. < iframe src="http://webforever.info/" width=15 height=20>1<br>qweqwe
2. < iframe src="http://webforever.info/" width=15 height=20>1< / iframe  ><br>ssssss
3. <script>document.write('Alert!'); qqqqqqq
4. <script>document.write('Alert!'); </script>wwwwww

Будет такой результат:

Т.к. проблема решена, тему можно закрывать.

 

antonn,
А в тексте как раз используются не < > а &lt; и &gt;. И, соответсвенно, замены не проиходит))
htmlspecialchars в моём случае не подходит, т.к. в принципе используются html тэги и при обработке функций не будет вообще форматирования..

 

Kreker,
Хм.. А это тоже идея.... спасибо за мысль..

 

lexa, вот над этим как раз и тружусь. Вот такое вот рег выражение:

Код (Text):

1. '@(<\s*A.*?on.*?>.*?<\s*/\s*А\s*>|<\s*A.*?on.*?>)@simx'

не всегда правильно обрубает((