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

code title: auto-linking
description: how would you like to have every instance of an https:// 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, "https://", 1) <> 0
ilinkstart = instr(icurrentlocation, strinput, "https://", 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 = "https://line9.com rules! <br>" & vbcrlf
strunlinked = strunlinked & "https://pdxpc.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)
%>
-------------------------------------------------------------------------