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

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

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


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


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


谢谢!

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

复制内容到剪贴板

代码:

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

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)" />
 提示：您可以先修改部分代码再运行