转换字符串带有http://的超级链接字符串为真正的超级链接(源码)

一点都不Q哦

一点都不Q哦

2016-01-29 17:19

转换字符串带有http://的超级链接字符串为真正的超级链接(源码),转换字符串带有http://的超级链接字符串为真正的超级链接(源码)
  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://LINE9.com rules! <br" & vbCrLf
strUnlinked = strUnlinked & "http://pdxpc.com sells great computers!<br" & vbCrLf

' Here is the before text:
Response.Write "<bOriginal 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 "<bText After Linking:</b<br" & vbCrLf
Response.Write LinkURLs(strUnlinked)
%
-------------------------------------------------------------------------

 
展开更多 50%)
分享

猜你喜欢

转换字符串带有http://的超级链接字符串为真正的超级链接(源码)

ASP
转换字符串带有http://的超级链接字符串为真正的超级链接(源码)

在字符串中把网址改成超级链接

PHP
在字符串中把网址改成超级链接

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

字符串分割

编程语言 网络编程
字符串分割

用好超级链接标记—A

Html CSS布局 Div+CSS XHTML
用好超级链接标记—A

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

复制字符串中的字符

编程语言 网络编程
复制字符串中的字符

建立Excel超级链接

办公软件
建立Excel超级链接

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

用多种方法制作WEB页面的计数器

用多种方法制作WEB页面的计数器

《黑暗之魂2》三基友Boss单挑打法解析攻略

《黑暗之魂2》三基友Boss单挑打法解析攻略
下拉加载更多内容 ↓