'自动识别网址 If InStr(Lcase(s),"http://")>0 Then re.Pattern = "(^|[^<=""])(http:(\/\/|\\\\)(([\w\/\\\+\-~`@:%])+\.)+([\w\/\\\.\=\?\+\-~`@\':!%#]|(&)|&)+)" s = re.Replace(s,"$1<a target=""_blank"" href=$2>$2</a>") End If '自动识别www等开头的网址 If InStr(Lcase(s),"www.")>0 or InStr(Lcase(s),"bbs.")>0 Then re.Pattern = "(^|[^\/\\\w\=])((www|bbs)\.(\w)+\.([\w\/\\\.\=\?\+\-~`@\'!%#]|(&))+)" s = re.Replace(s,"$1<a target=""_blank"" href=http://$2>$2</a>") End If
把以上剪切到以下代码
If pageReload Then Rem 回复可见帖子 ajax刷新一下 s = s & "<scr"&"ipt type=""text/javascript"">var reload=1;</scr"&"ipt>" End If
的后面
注意在作修改之前,做好文件的备份,以防修改失误。以上修补方法适用于动网论坛 V 8.20 正式版 并测试通过。