自动识别HTML的标记替换连接代码,VB.Net代码库,德仔网

代码语言

代码分类

【VB.Net】自动识别HTML的标记替换连接

作者:Dezai.CN / 发布于2013/11/7/ 927


	<%
	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
	%>

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　HTML的标记　

同语言下

可能有用的

Dezai.CN贡献的其它代码(4037)