---
title: "Länkar"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/6087-länkar"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "PlayerOne"
published: "2000-07-20T11:29:00.000Z"
updated: "2000-07-21T10:53:00.000Z"
replies: 6
views: 204
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/6087-länkar"
---

# Länkar

## #1 — PlayerOne, 2000-07-20T11:29Z

Jag skulle vilja att http-adresser som hämtas från en databas också blir länkade när de visas på sidan. Alltså, om nån skriver in en länk i tex ett forum ska den bli länkad när den visas på sidan.
Det finns nån funktion för det i Mikrodatorns forum på IDG  men dem verkar inte använda det där. Nån som har gjort det eller vet hur man gör?

Permalänk: https://www.webforum.nu/p/6087

## #2 — Vide, 2000-07-20T12:20Z

En funktion:

```
'----------------------------------------------------
' * ConvertLinks *
' Fixa så att länkar blir länkade i HTML-koden.
' Nedanstånde kod kommer från [url="http://www.ojmnet.com"]www.ojmnet.com[/url] 
'----------------------------------------------------
Function ConvertLinks(svalue)
svalue = ConvertLinksHREF(svalue, "http://")
svalue = ConvertLinksHREF(svalue, "ftp://")
svalue = ConvertLinksHREF(svalue, "news://")
svalue = ConvertLinksHREF(svalue, "mailto:")
ConvertLinks = svalue
End Function

Function ConvertLinksHREF(svalue, sHREF)
Dim iPos1, iPos2, sTemp, sTemp1, sTemp2
iPos2 = 1
iPos1 = InStr(1, svalue, sHREF, 1)
Do While iPos1 > 0
iPos2 = FindLinkEnd(svalue, iPos1 + Len(sHREF))
If iPos2 > 0 Then
sTemp1 = Mid(svalue, iPos1, iPos2 - iPos1)
sTemp2 = "<A HREF=" & Chr(34) & sTemp1 & Chr(34) & ">" & sTemp1 & "</A>"
svalue = Left(svalue, iPos1 - 1) & sTemp2 & Mid(svalue, iPos2)
iPos2 = iPos1 & Len(sTemp2) + 1
Else
iPos2 = iPos1 + Len(sHREF)
End If
iPos1 = InStr(iPos2, svalue, sHREF, 1)
Loop
ConvertLinksHREF = svalue
End Function

Function FindLinkEnd(svalue, iPos1)
Dim iPos2, i, iLen, iTempPos
Dim sValidChars
sValidChars = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890-.@/"
iLen = iPos1 + Len(Mid(svalue, iPos1)) - 1
End Function
```

Permalänk: https://www.webforum.nu/p/244589

## #3 — PlayerOne, 2000-07-20T12:31Z

Precis, det är den funktionen jag använder, men hur gör jag för att anropa den på min sida? Jag ska väl göra det på sidan där jag visar datan från databasen?
Så här gör jag nu, men det funkar inte
\<%= convertlinks(RS("Inlägg"))%\>

Permalänk: https://www.webforum.nu/p/244590

## #4 — Vide, 2000-07-20T13:14Z

Hmm, jag har inte använt funktionen själv, och märker nu att den är uppdelad i tre funktioner... antagligen måste du använda alla tre...

Permalänk: https://www.webforum.nu/p/244591

## #5 — sgtpepper, 2000-07-20T21:14Z

Nej, man skall bara köra ConvertLinks(). 

PlayerOne; Rätt, du ska kunna köra satsen \<%= convertlinks(RS("Inlägg"))%\> och om RS("inlägg") innehåller text med URL'er så blir dom länkade. Antagligen ligger felet någon annanstans i din kod, visa gärna lite mer av koden.

Permalänk: https://www.webforum.nu/p/244592

## #6 — PlayerOne, 2000-07-21T06:29Z

Jag var nog lite trött när jag testade, det funkade visst... :)

Permalänk: https://www.webforum.nu/p/244593

## #7 — sgtpepper, 2000-07-21T10:53Z

Bra! :)

Permalänk: https://www.webforum.nu/p/244594

---

Tråden på webben: https://www.webforum.nu/amne/asp/6087-länkar