ASP Auto-Linker

23.11.2003

Okuyucu : 3.220
Günlük Okuyucu : 2

This function automaticly generate HTML links in a text. Useful for news scripts, comments etc.

Kaynak Kodunu Download Edin (Download Source Code);

/opensource/source-code/fm-asp-auto-linker.txt

Kaynak Kod;

1 : <%
2 : '// Generate Links
3 : '******************************************************************
4 : '// Copyright (C) {2003} {Ferruh Mavituna} http://ferruh.mavituna.com
5 : '******************************************************************
6 : Function fm_AutoLinker(byVal Text)
7 :     If Text="" OR isNull(Text) Then Exit Function

9 :     'Replace Breaks to <br />s
10 :     Text = Replace(Text,Chr(13),"<br /> ")
11 :     
12 :     '// Set Array
13 :     Dim LinkArr, i
14 :     LinkArr = Split(Text," ")

16 :     '// Loop & Replace
17 :     For i=0 to Ubound(LinkArr)
18 :         If Instr(Lcase(Left(LinkArr(i),15)),"http://") OR Instr(Lcase(Left(LinkArr(i),15)),"www.") Then
19 :             LinkArr(i) = "<a href=""" & LinkArr(i) & """>" & LinkArr(i) & "</a>"
20 :         End If
21 :     Next

23 :     '// Join & Return
24 :     fm_AutoLinker = Join(LinkArr," ")

26 : End Function
27 : %>
Source Script is modified version of HiLiter
RSS Feed site statistics RSS Subscribers
Siteyi E-mail ile Takip Et

Ferruh Mavituna
© 2002-2007, Ferruh Mavituna

Sabit IP Adresi : 81.22.99.133, SSL Erişimi, Hakkında