转换字符串带有http://的超级链接字符串为真正的超级链接源码 -pc6资讯

您的位置：首页 → 精文荟萃 → 软件资讯 → 转换字符串带有http://的超级链接字符串为真正的超级链接源码

转换字符串带有http://的超级链接字符串为真正的超级链接源码 时间：2004/10/7 19:19:00来源：本站整理作者：蓝点我要评论(0): 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)

%>

-------------------------------------------------------------------------

文章评论

查看所有0条评论>>