 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
Function ToLink(Str) Dim RE \\\'正则表达式对象 Dim strContent If IsNull(Str) Then Str="" Set RE = New RegExp \\\'创建正则表达式对象 With RE .Global = True \\\'搜索应用于整个字符串 .IgnoreCase = True \\\'搜索不区分大小写的 strContent=Str \\\'*************************************************************** \\\'邮件地址链接自动设置 \\\'*************************************************************** .Pattern="([w]*)@([w.]*)" strContent=.Replace(strContent,"<A Href=\\\'mailto:$1@$2\\\'>$1@$2</A> ") \\\'*************************************************************** \\\'链接自动设置 \\\'*************************************************************** \\\'======根据要求再添加协议名称======= Dim D(3),I D(0)="http" D(1)="ftp" D(2)="news" D(3)="mms" \\\'=================================== For I=0 To UBound(D) .Pattern=D(I) + "://([w.]*)" strContent=.Replace(strContent,"<A Href=\\\'" + D(I) + "://$1\\\' target=_blank>" + D(I) + "://$1</A> ") Next \\\'*************************************************************** End With Set RE=Nothing ToLink=strContent End Function 返回类别: 教程 上一教程: 改善ASP性能和外观的技巧集锦 下一教程: 用ASP实现支持附件的EMAIL系统 您可以阅读与"为字符串中的网址加上链接的程序例子"相关的教程: · 一个为字符串中的网址加上链接的程序例子 · 数组数据排序的程序例子 · 改进 ASP 应用程序中的字符串处理性能 · 关于将数据成批导入新数据库的程序例子(ACCESS TO SQL) · ASP链接MYSQL并读取数据的程序 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
