---
title: "Hur får jag in länkfunktionen i forumet?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/100357-hur-får-jag-in-länkfunktionen-i-forumet"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "magnusfeldth"
published: "2004-03-26T13:54:51.000Z"
updated: "2004-03-29T23:25:53.000Z"
replies: 11
views: 365
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/100357-hur-får-jag-in-länkfunktionen-i-forumet"
---

# Hur får jag in länkfunktionen i forumet?

## #1 — magnusfeldth, 2004-03-26T13:54Z

Jag använder bland annat följande funktion för att få in smilies i ett forum: 

```
<%
Function Smiley(text)

text = server.HTMLEncode(text)
text = Replace(text,vbCrLf,"<br>")
text = Replace(text,":-)","<img src=""images/smiley_glad.gif"">")
text = Replace(text,"[img]","<img src=""")
text = Replace(text,"[/img]",""">")

Response.Write text

End Function
%>
```

och denna för att få fram dem:

```
<% =Smiley(strText) %>
```

Hur gör jag för att få in länkar, dvs att tex <http://www.webforum.nu> blir en länk osv... 
även, hur gör man för att långa länkar ska delas upp (så som de gör på wF)

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

## #2 — m_soderlund, 2004-03-26T20:14Z

Sök i forumet! En sökning på *länkar* gav till exempel denna tråd: <http://www.webforum.nu/showthread.php?s=&forumid=22&threadid=75258&highlight=l%E4nkar>

En bra start.

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

## #3 — magnusfeldth, 2004-03-26T21:15Z

Jag kopierade från Palle så koden blev följande:

```
 <%
Function Smiley(text)

text = server.HTMLEncode(text)
text = Replace(text,vbCrLf,"<br>")
text = Replace(text,"[img]","<img src=""")
text = Replace(text,"[/img]",""">")

Set regExp = New regexp
	regExp.Global = true
	regExp.IgnoreCase = true

	regExp.Pattern = "((?:mailto\:|(?:news|(?:ht|f)tp(?:s?))\://){1}\S+)"
	str = regExp.Replace(str, "<a href=""redir.asp?url=$1"">$1</a>")
				
	regExp.Pattern = "\[url =(.*)\](.*)\[/url\]" 
	makeOutput = regExp.Replace(str, "<a href=""redir.asp?url =ht tp://$1"">$2</a>")
	
Response.Write text

	

End Function
%>
<% =Smiley(strText) %>
```

Jag har hackat upp koden lite så att inte wF ska ändra den genom att lägga in några mellanslag.

Felet är att texten inte blir länkar, inget felmess kommer.

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

## #4 — Josef, 2004-03-26T21:31Z

Bara en liten parantes... Lite konstigt att kalla funktionen för *Smiley* när extra funktionalitet har tillkommit. Bättre att kalla den för FixText eller något liknande. ;)

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

## #5 — magnusfeldth, 2004-03-26T21:41Z

namnet kan fixas till senare ;)

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

## #6 — Poffe, 2004-03-26T22:43Z

Ett tips är att inte använda

```
text = Replace(text,"[img]","<img src=""")
text = Replace(text,"[/img]",""">")
```

Vad händer om någon skriver

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

## #7 — Poffe, 2004-03-26T23:02Z

hmm.. Du kan ju testa detta:

```
<%
Function Smiley(text)
	text = server.HTMLEncode(text)
	text = Replace(text, vbCrLf, "<br>")

	Set regExp = New regexp
		regExp.Global = true
		regExp.IgnoreCase = true

		regExp.Pattern = "((?:mailto\:|(?:news|(?:ht|f)tp(?:s?))\://){1}\S+)"
		text = regExp.Replace(str, "<a href=""redir.asp?url=$1"">$1</a>")
				
		regExp.Pattern = "\[url =(.*)\](.*)\[/url\]" 
		text = regExp.Replace(str, "<a href=""redir.asp?url =ht tp://$1"">$2</a>")

		regExp.Pattern = "\[img](.*)\[/img\]" 
		text = regExp.Replace(str, "<img src=""$1"">")
	Set regExp = Nothing
	
	Smiley = text
End Function
%>
<% =Smiley(strText) %>
```

Är ingen hejjare på RegExp men värt ett försök ;)

Och koden är som sagt lite "upphackad" så inte wF ska strula

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

## #8 — magnusfeldth, 2004-03-27T11:47Z

Får det inte att fungera, det blir ingen text alls?!

Jag bifogar koden i txt-dokument för att inte behöva hacka upp den... kan nån se om jag glömt justera den nånstans?

Bilagor:

- [wf.txt](https://www.webforum.nu/a/3148.txt)

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

## #9 — Poffe, 2004-03-27T14:44Z

Testa denna då (bifogade filen)

Bilagor:

- [wf.txt](https://www.webforum.nu/a/3149.txt)

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

## #10 — magnusfeldth, 2004-03-28T10:57Z

Sorry, blir ingen text alls nu heller. Vad tusan kan det vara?

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

## #11 — magnusfeldth, 2004-03-29T20:44Z

Har nästan fått den att funka nu... har justerat genom att skriva 

```
  regExp.Pattern = "((?:mailto\:|(?:news|(?:ht|f)tp(?:s?))\://){1}\S+)"
  text = regExp.Replace([b]text[/b], "<a href=""$1"">$1</a>")
```

Men jag får inte 

```
  regExp.Pattern = "\[url =(.*)\](.*)\[/url\]" 
  text = regExp.Replace(text, "<a href=""$1"">$2</a>")
```

att fungera... skriver jag exakt (obs, upphackat här...ironi) \[url = htt p ://www .minsida.se/\]hej\[/ url\] så får jag utskrivet htt p://\<a%20href=/   och den skriver länken som htt p://ww w.minsida.se"\>hej  weird

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

## #12 — Matt, 2004-03-29T23:25Z

Testa:

```
strText = ReplaceTags("\[ URL=(.*?)\](.*?)\[\/URL\]", "<a href=""$1"">$2</a>", strText)
```

 
(spacen mellan \[ och URL  skall inte vara där. Fick lägga in den, eftersom annars blev det fel här i forumet.)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/100357-hur-får-jag-in-länkfunktionen-i-forumet