HTML标记问题?!

blue123456 楼主

我在我网站的后台录入一篇带有网址的文字资料!可是在前台那篇文章中那个网址不会自动产生链接!

就比如说我在后台录入这段话:

"ICP用户注册
具体的注册过程如下：
1）在IE浏览器中输入url地址（例：http://www.miibeian.gov.cn）进入登录界面： "


然后前台看到的也是这段话,可是当用户鼠标指到http://www.miibeian.gov.cn上面时,无法点击上去就让它可以跳到这个页面,也就是说不会自动识别带有链接的网址,也就是如何让它自动识别HTML的标记!!!!


小弟刚刚在学ASP,所以什么都不懂,VBSCRPT都刚在看,所以承蒙大家详细详细解答一下思路或参考资料!


谢谢!

SenFe

在输出内容到客户端前先写个类似UBB的自定义函数转换下。
用正则匹配网址，再替换。
ASP(VBS):

1. <%
   
2. Function SenFe_UbbCode(sContent)
   
3.         Dim TempReg
   
4.         Set TempReg = New RegExp
   
5.         With TempReg
   
6.                 .IgnoreCase = True
   
7.                 .Global = True
   
8.                 '自动识别网址
   
9.                 If InStr(Lcase(sContent),"http://")>0 Then
   
10.                         .Pattern = "(^|[^<=""])(http:(\/\/|\\\\)(([\w\/\\\+\-~`@:%])+\.)+([\w\/\\\.\=\?\+\-~`@\':!%#]|(&)|&)+)"
    
11.                         sContent = .Replace(sContent,"$1<a href=""$2"" target=""_blank"">$2</a>")
    
12.                 End If
    
13.                 '自动识别www等开头的网址
    
14.                 If InStr(Lcase(sContent),"www.")>0 or InStr(Lcase(sContent),"bbs.")>0 Then
    
15.                         .Pattern = "(^|[^\/\\\w\=])((www|bbs)\.(\w)+\.([\w\/\\\.\=\?\+\-~`@\'!%#]|(&))+)"
    
16.                         sContent = .Replace(sContent,"$1<a href=""http://$2"" target=""_blank"">$2</a>")
    
17.                 End If
    
18.         End With
    
19.         Set TempReg = Nothing
    
20.         SenFe_UbbCode = sContent
    
21. End Function
    
22. %>

复制代码

VBS:

<script language="vbscript"> 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 </script> <textarea name="scode" cols="50" rows="20"></textarea> <input type="button" value="替换" onclick="vbscript:document.getElementById('scode').value=SenFe_UbbCode(document.getElementById('scode').value)" />

运行代码 复制代码 另存代码  提示：您可以先修改部分代码再运行