转换字符串带有http://的超级链接字符串为真正的超级代码,ASP代码库,德仔网

代码语言

代码分类

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

作者: / 发布于2011/1/6/ 808

<div><font color="#008000">转换字符串带有http://的超级链接字符串为真正的超级链接
<font face="Verdana">'===========================</font>
</font><font color="#008000" face="宋体, MS Song">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! " & vbCrLf
strUnlinked = strUnlinked & "http://pdxpc.com sells great computers!" & vbCrLf

</font><font color="#008000" face="宋体, MS Song">' Here is the before text:
Response.Write "<b>Original Text:</b>" & vbCrLf
Response.Write strUnlinked
Response.Write vbCrLf & "" & vbCrLf & vbCrLf

</font><font color="#008000" face="宋体, MS Song">' Here is the text after it gets automatically hyperlinked to itself:
Response.Write "<b>Text After Linking:</b>" & vbCrLf
Response.Write LinkURLs(strUnlinked)
</font></div>

试试其它关键字

　超级链接　

同语言下

可能有用的

贡献的其它代码Label