自动识别HTML的标记 替换连接


复制代码 代码如下:

<%
Function SenFe_UbbCode(sContent)
Dim TempReg
Set TempReg = New RegExp
With TempReg
.IgnoreCase = True
.Global = True
'自动识别网址
If InStr(Lcase(sContent),"http://")>0 Then
.Pattern = "(^|[^<=""])(http:(\/\/|\\\\)(([\w\/\\\+\-~`@:%])+\.)+([\w\/\\\.\=\?\+\-~`@\':!%#]|(&)|&)+)"
sContent = .Replace(sContent,"$1<a href=""$2"" target=""_blank"">$2</a>")
End If
'自动识别www等开头的网址
If InStr(Lcase(sContent),"www.")>0 or InStr(Lcase(sContent),"bbs.")>0 Then
.Pattern = "(^|[^\/\\\w\=])((www|bbs)\.(\w)+\.([\w\/\\\.\=\?\+\-~`@\'!%#]|(&))+)"
sContent = .Replace(sContent,"$1<a href=""http://$2"" target=""_blank"">$2</a>")
End If
End With
Set TempReg = Nothing
SenFe_UbbCode = sContent
End Function
%>




[Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]



相关阅读:
Oracle数据库如何处理临时数据?
html 锁定页面(js遮罩层弹出div效果)
从网易扒过来的js调用广告显示文件(随机几率)
Can''''t connect to MySQL server on ''''localhost'''' (10061)解决方法
学习YUI.Ext 第六天--关于树TreePanel(Part 2异步获取节点)
如何在UNIX下实现Oracle数据库自动备份
Oracle 9i中OCCI在VC6下不能DEBUG的问题
javascript Table 中2个列(TD)的交换实现代码
九宫格的含义 横竖斜三个数相加都等于15
dbms_stats在ORACLE中的使用实例
JavaScript中的类继承
黄宏仁:网站推广中如何找到精准用户
MySQL5.0的my.cnf配置说明
ASP.NET实现MVC分页控件
快速导航

Copyright © 2016 phpStudy |