Hvordan får jeg jist en Link som et Link

Smider lige en kommentar

Det kunne være at du skulle få scriptet til at finde ud af hvis besked feltet indeholder http:// så skal den skrive det som en url ....

Et eks. kunne være flg. hvis du trækker din tekst, som skal være et link ud af en DB i et recordset:

<a href="<%= oRs("linktekst") %>" >Linktkst</a>


ellers så f.eks.

<a href="<%= 'linktekst' %>" >Linktkst</a>

Mener du det sådan, at der skal være mulighed for at skrive et link ind et hvilken som helst sted i et textarea, eller skal man kunne skrive et link i en textbox?

Mener du ikke bare, at du vil have, at et given link skal have tilfoejet den tilsvarende 'a href', naar den er blevet tilfoejet i et forum? Fx som

-- kode start --

Dim text, link, idxS, idxE
text = "Dette en en tekst, hvori der findes et link til http://www.theill.com/ - min personlige site."

' nu skal vi finde 'http://' strengen
idxS = InStr(text, "http://")
If (idxS > 0) Then
  idxE = InStr(idxS, text, " ")
  link = Mid(text, idxS, idxE-idxS)
  text = Left(text, idxS-1) & "<a href=""" & link & """ target=""_blank"">" &    link & "</a>" & Mid(text, idxE)
End If
-- kode slut --

Her er koden jeg gerne skulle have labet om så den påde vhevker på http:// og www. men den må jo så ikke skrive linket to lange hvis den både indeholder http:// og www. så som http://www.eksperten.dk. for det kan jeg sagtsens selv få den til.
Koden bliver hentet fra en database og indeholder for det meste kund tekst men nogle gange også links og e-mail adresser som man så gerne skulle kunne trykke på når de vises igen.
Det skulle gerne kunne udskrives med
<% = LinkTekst(tekst)

<%
Function LinkTekst(Tekst)
LinkTekst = ""
A_Start = 1

if InStr(Tekst, "http://") then
  do until A_Start >= len(Tekst)
  LinkChr = InStr(A_Start, Tekst, "http://")
  NextSpace = InStr(LinkChr, Tekst, " ")

  if NextSpace = 0 then NextSpace = Len(Tekst) + 1

  URL = Mid(Tekst, LinkChr, NextSpace - LinkChr)

  LinkTekst = LinkTekst & Mid(Tekst, A_Start, LinkChr - A_Start)
  LinkTekst = LinkTekst & "<A Href=" & Chr(34) & URL & Chr(34) & ">" & URL & "</A>"

  if Int(LinkChr) = Int(InStrRev(Tekst, "http://")) then
    LinkTekst = LinkTekst & Mid(Tekst, NextSpace, Len(Tekst) - A_Start)
    A_Start = Len(Tekst)
  else
    A_Start = NextSpace
  end if
  loop
else
  LinkTekst = Tekst
end if
End Function
%>

På activerserverpages.dk kan du finde et script som hedder addlink
http://www.activeserverpages.dk/download/default.asp?mode=showdownload&id=43

Den laver links og email om til hlinks....