将inc/dv_ubbcode.asp中的
'自动识别网址
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
的后面
Post By：2008-8-1 11:46:55
[本帖被加为精华]
高速双线主机
支持(0) 中立(0) 反对(0) 
