 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
Code Title: Auto-linking Description: How would you like to have every instance of an http:// auto-hyperlink itself to the URL address that follows it? Well, here is a killer little function that will take every one of those that it finds in a string and sets up the hyperlink for you! Cool, eh? Copy and paste this snippet as-is into your editor: ------------------------------------------------------------------------- <% Function LinkURLs(strInput) iCurrentLocation = 1 Do While InStr(iCurrentLocation, strInput, "http://", 1) <> 0 iLinkStart = InStr(iCurrentLocation, strInput, "http://", 1) iLinkEnd = InStr(iLinkStart, strInput, " ", 1) If iLinkEnd = 0 Then iLinkEnd = Len(strInput) + 1 Select Case Mid(strInput, iLinkEnd - 1, 1) Case ".", "!", "?" iLinkEnd = iLinkEnd - 1 End Select strOutput = strOutput & Mid(strInput, iCurrentLocation, iLinkStart - iCurrentLocation) strLinkText = Mid(strInput, iLinkStart, iLinkEnd - iLinkStart) strOutput = strOutput & "<a href="""&strLinkText&""">"&strLinkText&"</a>" iCurrentLocation = iLinkEnd Loop strOutput = strOutput & Mid(strInput, iCurrentLocation) LinkURLs = strOutput End Function strUnlinked = "http://4ico.com rules! <br>" & vbCrLf strUnlinked = strUnlinked & "http://i8i8i.com sells great computers!<br>" & vbCrLf \\\' Here is the before text: Response.Write "<b>Original Text:</b><br>" & vbCrLf Response.Write strUnlinked Response.Write vbCrLf & "<br>" & vbCrLf & vbCrLf \\\' Here is the text after it gets automatically hyperlinked to itself: Response.Write "<b>Text After Linking:</b><br>" & vbCrLf Response.Write LinkURLs(strUnlinked) %> 返回类别: 教程 上一教程: 在ASP应用中验证用户身份(3) 下一教程: ASP特别字符过滤 您可以阅读与"转变字符串带有HTTP://的超级链接字符串为真正的超级链接(源码)"相关的教程: · 转变字符串带有HTTP://的超级链接字符串为真正的超级链接 · 组合查询之核心：拼接字符串 · 一个为字符串中的网址加上链接的程序例子 · 连接数据库常用的连接字符串 · 用Javascript隐藏超级链接的真实地址 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
