浏览 | 提交新的代码片段 | 创建代码包

自动识别超级链接
类型: Sample Code (HOWTO)	类别: HTML Manipulation
许可证: GNU General Public License	语言: Other Language
描述: 自动识别超级链接

该代码片段的版本系列:

片段ID	下载版本	提交时间	提交人	删除
4736	1.0	2003-10-19 22:08	cbd001

点击"下载版本"来下载该代码片段.

最新版本的代码片段: 1.0

<% 
'自动识别超级链接 
Function LinkURLs(strInput) 
Dim iCurrentLocation 
Dim iLinkStart 
Dim iLinkEnd 
Dim strLinkText 
Dim strOutput 
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 = strOutputEnd Function 
Dim strUnlinked 
strUnlinked = "http://www.asp101.com is the best ASP site! <BR>" & vbCrLf 
strUnlinked = strUnlinked & "http://www.wrox.com publishes some great books. <BR>" & vbCrLf 
strUnlinked = strUnlinked & "Persits Software's components are available from http://www.persits.com. <BR>" & vbCrLf 
strUnlinked = strUnlinked & "You can trust your hosting to http://www.innerhost.com! <BR>" & vbCrLf 
strUnlinked = strUnlinked & "Microsoft Internet Developer info is available from their site at: http://www.microsoft.com/mind/. <BR>" & vbCrLf 
Response.Write "<B>Original Text:</B><BR>" & vbCrLf 
Response.Write vbCrLf & "<BR>" & vbCrLf & vbCrLf 
Response.Write "<B>Text After Linking:</B><BR>" & vbCrLf 
Response.Write LinkURLs(strUnlinked) 
%> 

		

提交新版本

如果您修改了一个代码片段并且觉得很应该让别人共享,您可以把这作为这个代码片段的最新版本提交上来.