Göra URLer klickbara?

Sitter och funderar på samma sak, men vad gäller epostadresser... Kommer hålla tråden under bevakning. :)

Kan knappt räkna så lång som antalet gånger detta har tagits upp. Sök så kommer ni hitta massor.

Jag har saktiskt sökt..
Men hittade inget alls på de jag sökte på..

Du får söka efter delsträngar som börjar på http eller www och om de förekommer får du ersätta de med <a href=" osv tror jag.... Jag har inte kodat mycket i ASP men så borde man väl göra i php iaf?

Får man fråga vad du sökt på då?

En snabbsökning fick bl.a. upp denna tråd: http://www.webforum.nu/showthread.php?s=&forumid=22&threadid=103097

Här är en funktion som omvandlar url´s och mailadresser till klickbara länkar. :)

[red]Function makeOutput(str)
	Set regExp = New regexp
		regExp.Global = true
		regExp.IgnoreCase = true
		regExp.Pattern = "((?:mailto\:|(?:news|(?:ht|f)tp(?:s?))\://){1}\S+)"
		makeOutput = regExp.Replace(str, "<a href=""$1"">$1</a>")
	Set regExp = Nothing
End Function[/red]

Anropas ex. så här:

[red]<%= makeOutput(objRecSet("strBeskrivning")) %>[/red]

Notera att du/ni får byta ut objRecSet("strBeskrivning") mot det som passar er.

 

Palle skrev:

Här är en funktion som omvandlar url´s och mailadresser till klickbara länkar. :)

[red]Function makeOutput(str)
	Set regExp = New regexp
		regExp.Global = true
		regExp.IgnoreCase = true
		regExp.Pattern = "((?:mailto\:|(?:news|(?:ht|f)tp(?:s?))\://){1}\S+)"
		makeOutput = regExp.Replace(str, "<a href=""$1"">$1</a>")
	Set regExp = Nothing
End Function[/red]

Anropas ex. så här:

[red]<%= makeOutput(objRecSet("strBeskrivning")) %>[/red]

Notera att du/ni får byta ut objRecSet("strBeskrivning") mot det som passar er.

 

Funkar super till hemsidor men inte till mailadresser.. Men det gör inte.. Tack :D

när jag testar får jag Otillåten tilldelning: 'RegExp'

Function makeOutput(str)
Set regExp = New regexp
regExp.Global = true
regExp.IgnoreCase = true
regExp.Pattern = "((?:mailto\:|(?:news|(?:ht|f)tp(?:s?))\://){1}\S+)"
makeOutput = regExp.Replace(str, "<a href=""$1"">$1</a>")
Set regExp = Nothing
End Function

Anropar med
<%=makeOutput(replace(makeHtml(showAll("klotterText")),vbCrLf,"<br>"))%>

webbSAJTEN skrev:

Funkar super till hemsidor men inte till mailadresser.. Men det gör inte.. Tack :D

Jasså? Men följande fungerar utmärkt för mig när jag testar funktionen:

[red]<%= makeOutput("Lorem ipsum dolor sit amet, &#104;&#116;&#116;&#112;&#058;&#047;&#047;&#119;&#119;&#119;&#046;&#119;&#101;&#098;&#102;&#111;&#114;&#117;&#109;&#046;&#110;&#117; in et tortor at augue mollis feugiat, mailto:mail&#064;adress.com vivamus at turpis.")[/red]

Gällande ditt fel; Vad gör de andra funktionerna du anropar?
Vore det kanske enklare att slå ihop dessa till 1 istället..?

Palle skrev:

Här är en funktion som omvandlar url´s och mailadresser till klickbara länkar. :)

[red]Function makeOutput(str)
	Set regExp = New regexp
		regExp.Global = true
		regExp.IgnoreCase = true
		regExp.Pattern = "((?:mailto\:|(?:news|(?:ht|f)tp(?:s?))\://){1}\S+)"
		makeOutput = regExp.Replace(str, "<a href=""$1"">$1</a>")
	Set regExp = Nothing
End Function[/red]

Anropas ex. så här:

[red]<%= makeOutput(objRecSet("strBeskrivning")) %>[/red]

Notera att du/ni får byta ut objRecSet("strBeskrivning") mot det som passar er.

 

gör ovanstående kod att de klickbara kommer i sin rätta "context"? dvs där "inlägaren" skriver de?

http://www.webforum.nu/showthread.php?t=132042

emission skrev:

http://www.webforum.nu/showthread.php?t=132042

Menar Du att jag skall skriva

Response.Write sText = convertLink(showAll("klotterText"))

Och Då omvandlas dessa "automatiskt"?
eller för att använda ovanstående kod

<%= makeOutput(objRecSet("meddelande")) %>

Nej, du kan inte skriva ut en tilldelning

Response.Write convertLink(showAll("klotterText"))