当前位置: 首页 > 图文教程 > 网络编程 > ASP > 转换文本为超联和Email格式的代码

ASP
asp+的页面指示标识
asp+文件上传增强实例
让ASP也可以连接MYSQL
ASP文件操作--列出目录及文件
将站点加入频道栏源代码
如何在页面上动态的生成 WebForm控件
避免表单的重复提交又一方法（js）
灵活实用的页面广告实例
如何用javascript识别Netscape 6 浏览器
使用javascript实现邮箱快速登录的方法!!
如何从数据库得到一个列表表单
使用Cookie来跟踪用户
用DHTML来模拟实现下拉菜单
javascript做的数据校验（校验IP地址等）
通过网络域名得到这台主机的IP地址
如何在ASP中使用类
SQL Server中单引号的两种处理技巧
Display data From database into 2 Column
存储过程对页面访问速度的影响
在ASP中使用类

No. « 180 181 182 183 »

技术文章搜索

关键字

ASP 中的 转换文本为超联和Email格式的代码

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-11-03   浏览: 116 ::
收藏到网摘: n/a

  如果用户输入了http://aaa.bbb.ccc
下面这个代码将把他的输入转换成http://aaa.bbb.ccc
大家看看正则表达式有多厉害，呵呵。

<%
    '调用这个函数来显示成超联结
    Response.Write to_html(s_message)
%>


<%
Function to_html(s_string)
    to_html = Replace(s_string, """", "&quot;")
    to_html = Replace(to_html, "<", "&lt;")
    to_html = Replace(to_html, ">", "&gt;")
    to_html = Replace(to_html, vbcrlf, "<br>")
    to_html = Replace(to_html, "/&lt;", "<")
    to_html = Replace(to_html, "/&gt;", ">")
    to_html = edit_hrefs(to_html)
End Function
%>

<script language="javascript1.2" runat=server>
function edit_hrefs(s_html){
    // 一个使用正则表达式的典范
    // 转换文本中所有的超联结和电子邮件格式
    s_str = new String(s_html);

    s_str = s_str.replace(/\bhttp\:\/\/www(\.[\w+\.\:\/\_]+)/gi,
        "http\:\/\/&not;¤&cedil;$1");

    s_str = s_str.replace(/\b(http\:\/\/\w+\.[\w+\.\:\/\_]+)/gi,
        "<a href=\"$1\">$1<\/a>");
        
    s_str = s_str.replace(/\b(www\.[\w+\.\:\/\_]+)/gi,
        "<a href=\"http://$1\">$1</a>");
        
    s_str = s_str.replace(/\bhttp\:\/\/&not;¤&cedil;(\.[\w+\.\:\/\_]+)/gi,
        "<a href=\"http\:\/\/www$1\">http\:\/\/www$1</a>");
        
    s_str = s_str.replace(/\b(\w+@[\w+\.?]*)/gi,
        "<a href=\"mailto\:$1\">$1</a>");
        
    
    return s_str;
}
</script>