|
怎么注释嘛,我不认识代码:
麻烦会的帮个忙吧^_^,谢谢啦^_^
'自动识别网址 objRegExp.Pattern = "^((http|https|ftp|rtsp|mms):(\/\/|\\\\)[A-Za-z0-9\./=\?%\-&_~`@':+!]+)" strContent = objRegExp.Replace(strContent,"<a href=$1 target=_blank>$1</a>") objRegExp.Pattern = "((http|https|ftp|rtsp|mms):(\/\/|\\\\)[A-Za-z0-9\./=\?%\-&_~`@':+!]+)$" strContent = objRegExp.Replace(strContent,"<a href=$1 target=_blank>$1</a>") objRegExp.Pattern = "([^>=""'])((http|https|ftp|rtsp|mms):(\/\/|\\\\)[A-Za-z0-9\./=\?%\-&_~`@':+!]+)" strContent = objRegExp.Replace(strContent,"$1<a href=$2 target=_blank>$2</a>")
'objRegExp.Pattern = "([^(http://|http:\\)])((www|cn)[.](\w)+[.]{1,}(com|net|org|cn)(((\/[\~]*|\\[\~]*)(\w)+)|[.](\w)+)*(((([?](\w)+){1}[=]*))*((\w)+){1}([\&](\w)+[\=](\w)+)*)*)" 'strContent = objRegExp.Replace(strContent,"<a href=http://$2 target=_blank>$2</a>")
'自动识别www等开头的网址 'objRegExp.Pattern = "([^@|^\.|^\/\/])((www|cn)[.](\w)+[.]{1,}(net|com|cn|org|cc)(((\/[\~]*|\\[\~]*)(\w)+)|[.](\w)+)*(((([?](\w)+){1}[=]*))*((\w)+){1}([\&](\w)+[\=](\w)+)*)*)" 'strContent = objRegExp.Replace(strContent,"<a target=_blank href=http://$2>$2</a>")
|