asp中正则表达式中错在哪里？很及！

<%
Function  ReThestr(face,str)
　dim  re,str

　re="\>"
　str=checkexp(re,str,">")

　re="\<"
　str=checkexp(re,str,"<")

　re="\n\r\n/"
　str=checkexp(re,str,"<P>")

　re=chr(32)
　str=checkexp(re,str," ")  

　re="\r"
　str=checkexp(re,str,"  ")

　re="\[img\]((http:(\/\/|\\\\)){1}((\w)+[.]){1,3}(net|com|cn|org|cc|tv)(((\/[\~]*|\\[\~]*)
(\w)+)|[.](\w)+)*(\w)+[.]{1}(gif|jpg|png))\[\/img\]"  ''查找图片地址
　str=checkexp(re,str,"  <img  src=''$1''>  ")

　re="\[w\](http:(\/\/|\\\\)((\w)+[.]){1,}(net|com|cn|org|cc|tv)(((\/[\~]*|\\[\~]*)(\w)+)|[.](\w)+)*
(((([?](\w)+){1}[=]*))*((\w)+){1}([\&](\w)+[\=](\w)+)*)*)\[\/w\]"  ''查找帧地址
　str=checkexp(re,str,"<iframe  width=''300''  height=''300''  src=''$1''></iframe>")

　re="([^(''>)])(<br>)*((http|https|ftp):(\/\/|\\\\)((\w)+[.]){1,}(net|com|cn|org|cc|tv|([0-9]{1,3}))(((\/[\~]*|\\[\~]*)(\w)+)|[.](\w)+)*(((([?](\w)+){1}[=]*))*((\w)+){1}([\&]

(\w)+[\=](\w)+)*)*)"  ''查找链接地址
　str=checkexp(re,str,"$1$2  <a  href=''$3''  target=_blank>$3</a>  ")

　re="([^(http://|http:\\)])((www|cn)[.](\w)+[.]{1,}(net|com|cn|org|cc)(((\/[\~]*|\\[\~]*)(\w)+)|[.](\w)+)*
(((([?](\w)+){1}[=]*))*((\w)+){1}([\&](\w)+[\=](\w)+)*)*)"  ''查找不以http://开头的地址
　str=checkexp(re,str,"$1  <a  href=''http://$2''   target=_blank>$2</a>  ")

　re="([^(=)])((\w)+[@]{1}((\w)+[.]){1,3}(\w)+)"  ''查找邮件地址
　str=checkexp(re,str,"  <a  href=''mailto:$2''>$2</a>  ")

　re="\[0-F])\]((.)+)\[\/color\]"  ''替换字体色彩
　str=checkexp(re,str,"<font  color=''$1''>$4</font>")

　re="\{1})\]((.)+)\[\/size\]"  ''替换字体大小
　str=checkexp(re,str,"<font  size=''$1''>$2</font>")

　re="\((.)+)\[\/font\]"  ''替换字体
　str=checkexp(re,str,"<font  face=''$1''>$3</font>")

　re="(\[b\])(.+)(\[\/b\])"  ''加粗字体
　str=checkexp(re,str,"<b>$2</b>")

　re="(\[u\])(.+)(\[\/u\])"  ''下画线
　str=checkexp(re,str,"<u>$2</u>")

　re="(\[li\])(.+)(\[\/li\])"  ''列表
　str=checkexp(re,str,"<li>$2</li>")

　re="(\[QUOTE\])(.+)(\[\/QUOTE\])"  ''引用
　str=checkexp(re,str,"<BLOCKQUOTE>引用:<HR  SIZE=1>$2<HR  SIZE=1></BLOCKQUOTE>")

　re="\){1,3}(\w)+)\](.+)(\[\/email\])"  ''邮件
　str=checkexp(re,str,"<a  href=mailto:$1>$6</a>")

　re="(\[center\])(.+)(\[\/center\])"  ''居中
　str=checkexp(re,str,"<center>$2</center>")

　re="fuck"
　str=checkexp(re,str,"***")

　re="操"
　str=checkexp(re,str,"***")

　re="sex"
　str=checkexp(re,str,"***")  

　re="TMD"
　str=checkexp(re,str,"***")

　re="shit"
　str=checkexp(re,str,"***")

　ReThestr=str
end  function

Function  CheckExp(patrn,strng,tagstr)
　Dim  regEx,Matches

　Set  regEx=New  RegExp''建立一个新对像
　regEx.Pattern=patrn''设置模板
　regEx.IgnoreCase=true''搜索是否区分大小写的  true表是不区分  flase表示区分
　regEx.Global=True''搜索是否应用于整个字符串

　Matches=regEx.replace(strng,tagstr)''匹配并替代字符串

　CheckExp=Matches返回函数结果
end  function  

text="大家好，欢迎来我的网站！ www.(text)
response.write text
%>