欢迎光临爱时尚女性网
 

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

2013-2-15 编辑:admin 来源:爱时尚女性网 阅读次数:719
  导读: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 se...
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 & ""&strLinkText&""
iCurrentLocation = iLinkEnd
Loop
strOutput = strOutput & Mid(strInput, iCurrentLocation)
LinkURLs = strOutput
End Function
strUnlinked = "http://LINE9.com rules!
" & vbCrLf
strUnlinked = strUnlinked & "http://pdxpc.com sells great computers!
" & vbCrLf


' Here is the before text:
Response.Write "Original Text:
" & vbCrLf
Response.Write strUnlinked
Response.Write vbCrLf & "
" & vbCrLf & vbCrLf


' Here is the text after it gets automatically hyperlinked to itself:
Response.Write "Text After Linking:
" & vbCrLf
Response.Write LinkURLs(strUnlinked)
%>

文章出自:爱时尚女性网www.aspjc.com,尊重版权是美德,转载请保留原地址,感谢合作!

 
 
链接交换请联系:QQ:790646582 首页链接要求百度快照在一周以内,不符合以上要求的各站,我们将定期把友情连接转入内页,谢谢合作。
Copyright @ 2012-2015 爱时尚女性网 保留所有权利吉ICP备14005127号-1 服务QQ:175529508 e-mail:zk8312@163.com
本站部分资源来自网友上传,如果无意之中侵犯了您的版权,请联系本站,本站将在3个工作日内删除。