打印

HTML标记问题?!

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

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

"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:

 提示:您可以先修改部分代码再运行