---
title: "Länka till medlem!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/64307-länka-till-medlem"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Wiklund!!"
published: "2003-01-09T12:36:44.000Z"
updated: "2003-01-13T17:49:22.000Z"
replies: 24
views: 580
page: 1
pages: 2
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/64307-länka-till-medlem"
---

# Länka till medlem!

_Sida 1 av 2._

## #1 — Wiklund!!, 2003-01-09T12:36Z

Jag har haft denna tråd uppe tidigare, utan att få riktigt det svaren jag behövt.
Jag behöver denna funktion så jag skulle vara extremt tacksam om någon kunde hjälpa mig..

Jag vill att medlemmarna i min community ska kunna länka till andra medlemmar via sin pressentation.
De ska kunna skriva \[m\]namnet\[/m\] i ett textformulär så ska det bli en länk när det skrivs ut: \<a href="sida.asp?anv=namnet"\>namnet\</a\>

Man måste alltså på nått sätt få reda på vad som är skrivet mellen \[m\] och \[/m\].

Tack på förhand allt hjälpsamt folk på wF.

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

## #2 — Engine^, 2003-01-09T12:40Z

Spana in [den här tråden](http://www.webforum.nu/showthread.php?s=&postid=373391#post373391).

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

## #3 — voigtann1, 2003-01-09T17:09Z

```
<%
Function encode(mess)

Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
mess = Server.HTMLEncode(mess)

objRegExp.Pattern = "\[kompis/](.*?)/[/kompis\]"
mess = objRegExp.Replace(mess,"<a href=""sida.asp?anv=$1"">$1</a>")

av = mess
End Function
%>
```

om du inte har löst det så ska det ser ut såhär

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

## #4 — Wiklund!!, 2003-01-09T22:49Z

Tack för svaren. Men jag har fortfarande inte löst det.

Jag har redan en rad andra funktioner som hittar länkar, gör fet text mm. Men när jag försöker lägga in din kod fungerar det inte.

Sä här ser koden ut som jag vill baka in det i:

```
<%
'Formatterar text från databasen 
function checkText(forumText)
	'Radbrytning
	forumText = replace(forumText, chr(13), "<br>")
	forumText = Replace(forumText, "[app]", "'")
	
	'Skapar intendering
	forumText = replace(forumText, chr(32)&chr(32)&chr(32), "&nbsp;&nbsp;&nbsp;")
	
	'Söksträng markeras
	if not request.querystring("search") = "" then
		if not InStr(1, lcase(forumText), request.querystring("search")) = 0 then
			forumText = replace(lcase(forumText), request.querystring("search"), "<span>" & request.querystring("search") & "</span>")
		end if
	end if
	

	'Fet stil
	forumText = replace(forumText, "[b]", "<b>")
	forumText = replace(forumText, "[/b]", "</b>")
	forumText = replace(forumText, "[B]", "<b>")
	forumText = replace(forumText, "[/B]", "</b>")
	
	'Kursiv stil
	forumText = replace(forumText, "[i]", "<i>")
	forumText = replace(forumText, "[/i]", "</i>")
	forumText = replace(forumText, "[I]", "<i>")
	forumText = replace(forumText, "[/I]", "</i>")
	
	'Understruken stil
	forumText = replace(forumText, "[u]", "<u>")
	forumText = replace(forumText, "[/u]", "</u>")
	forumText = replace(forumText, "[U]", "<u>")
	forumText = replace(forumText, "[/U]", "</u>")

	'Kollar efter länkar
	forumText = checkForLinks(forumText)

	
	checkText = forumText
end function

Function checkForLinks(strInput)
	dim intStartPos, intStopPos, intPos
	dim strChar, strURL, strShowURL
	dim bolFin
	dim intRoof, k
	dim arrURL
	dim strOrg
	
	strOrg = strInput
	
	intRoof = 100
	bolFin = false
	k = 0
	
	do until bolFin = true or k = intRoof
		if not instr(1, strInput, "http://") = 0 then
			intStartPos = instr(1, strInput, "http://")
			intStopPos = len(strInput) + 1
			
			for i = intStartPos to intStopPos
				if i = intStopPos then
					strChar = mid(strInput, i, 1)
					bolFin = true
					exit for
				else
					strChar = mid(strInput, i, 1)
				end if
				
				strURL = strURL & strChar
				
				select case strChar
					case " ",")","(","[","{","!"
						strURL = left(strURL, len(strURL) - 1) & ","
						if not mid(strInput, i, intStopPos) = strInput then
							strInput = mid(strInput, i, intStopPos)
						else
							bolFin = true
						end if
						exit for
				end select
			next
		else
			bolFin = true
		end if
		
		k = k + 1
	loop
	
	strURL = replace(strURL, "<br>", ",")
	if right(strURL, 1) = "," then
		strURL = left(strURL, len(strURL) - 1)
	end if
	strURL = trim(strURL)
	arrURL = split(strURL, ",")
	
	for i = 0 to ubound(arrURL)
		if asc(arrURL(i)) = 10 then
			arrURL(i) = right(arrURL(i), len(arrURL(i)) - 1)
		elseif right(arrURL(i), 1) = "." then
			arrURL(i) = left(arrURL(i), len(arrURL(i)) - 1)
		end if
		if not arrURL(i) = "" then
			if left(arrURL(i), 7) = "http://" then
				strShowURL = arrURL(i)
				strOrg = replace(strOrg, arrURL(i), "<a href=""" & replace(replace(arrURL(i), "<span>", ""), "</span>", "") & """ target=""_blank""><b>" & replace(strShowURL, "http://", "") & "</b></a>")
			end if
		end if
	next
	
	checkForLinks = strOrg
End Function

'Översätter svenska tecken till kod och tvärtom
function translateChars(tcStr, tcWay)
	select case tcWay
		case 0 'Svenska till kod
			tcStr = replace(tcStr, "å", "&#229;")
			tcStr = replace(tcStr, "Å", "&#197;")
			tcStr = replace(tcStr, "ä", "&#228;")
			tcStr = replace(tcStr, "Ä", "&#196;")
			tcStr = replace(tcStr, "ö", "&#246;")
			tcStr = replace(tcStr, "Ö", "&#214;")
		
		case 1 'Kod till svenska
			tcStr = replace(tcStr, "&#229;", "å")
			tcStr = replace(tcStr, "&#197;", "Å")
			tcStr = replace(tcStr, "&#228;", "ä")
			tcStr = replace(tcStr, "&#196;", "Ä")
			tcStr = replace(tcStr, "&#246;", "ö")
			tcStr = replace(tcStr, "&#214;", "Ö")
	end select
	
	translateChars = tcStr
end function

'Ersätter ej tillåtna tecken
function cleanString(csStr)
	csStr = replace(csStr, "'", "")
	
	cleanString = csStr
end function
%>

<%=checkText(RecSet("presentation"))%>
```

Vore jätte shysst om nån kunde "baka" in koden.

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

## #5 — Wiklund!!, 2003-01-10T21:13Z

Snälla någon som kan hjälpa mig?

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

## #6 — solbulle, 2003-01-10T21:59Z

Är inte detta mer rätt?

```
<%
Function encode(mess)

Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
mess = Server.HTMLEncode(mess)

objRegExp.Pattern = "\[kompis/](.*?)/[/kompis\]"
mess = objRegExp.Replace(mess,"<a href=""sida.asp?anv=$1"">$1</a>")

encode = mess
End Function
%>
```

Wiklund: Har du testat att köra bara den funktionen utan de andra? Fungerar det då? Annars, när knasar det? Vad är det som verkar krocka?

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

## #7 — Wiklund!!, 2003-01-11T00:24Z

Det fungerar inte när jag bara kör med den kod jag fick av voigtann1. Har inte testat din, ska göra det.

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

## #8 — Wiklund!!, 2003-01-11T02:25Z

Felmeddelande när jag testar!

Microsoft VBScript runtime error '800a01c2' 

Wrong number of arguments or invalid property assignment: 'encode'

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

## #9 — solbulle, 2003-01-11T12:13Z

Hur anropar du funktionen?

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

## #10 — Wiklund!!, 2003-01-11T22:00Z

\<%=encode%\>, har testat \<%=mess%\> också.

Så här ser koden ut:

```
<%
Function encode(mess)

Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
mess = Server.HTMLEncode(RecSet("personlighet"))

objRegExp.Pattern = "\[m/](.*?)/[/m\]"
mess = objRegExp.Replace(mess,"<a href=""sida.asp?anv=$1"">$1</a>")

encode = mess
End Function
%>

<%=encode%>
```

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

## #11 — @nders, 2003-01-11T22:18Z

Du har ju angett att funktionen skall ta ett argument, *mess*. Du måste då skicka med argumentet till funktionen. Så här borde det se ut. (Jag kan inte regexp, så jag vet inte om resten av funktionen är ok, men det utgår jag ifrån. ;) )

```
<%
Function encode(mess)

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

objRegExp.Pattern = "\[m/](.*?)/[/m\]"
mess = objRegExp.Replace(mess,"<a href=""sida.asp?anv=$1"">$1</a>")

encode = mess
End Function
%>
```

och anropet:

```
Response.write encode(Server.HTMLEncode(RecSet("personlighet")))
```

Mvh,

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

## #12 — Wiklund!!, 2003-01-11T22:46Z

Microsoft VBScript runtime error '800a139a' 

Unexpected quantifier

Rad:
mess = objRegExp.Replace(mess,"\<a href=""sida.asp?anv=$1""\>$1\</a\>")

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

## #13 — @nders, 2003-01-11T22:53Z

Det felmeddelandet brukar man få om man har en för gammal version av Microsofts scriptmotor installerad. Version 5.6 kan du ladda hem [här](http://msdn.microsoft.com/downloads/default.asp?URL=/downloads/sample.asp?url=/msdn-files/027/001/733/msdncompositedoc.xml).

mvh,

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

## #14 — Wiklund!!, 2003-01-11T23:11Z

Hmm.. Men jag kör ju en massa andra liknande funktioner. Och dom fungerar fin fint..
Inte jag som har servern. Men ska be killen installer det.

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

## #15 — voigtann1, 2003-01-12T00:16Z

```
<%
Function encode(mess)

Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
mess = Server.HTMLEncode(mess)

objRegExp.Pattern = "\[m/](.*?)\[/m\]"
mess = objRegExp.Replace(mess,"<a href=""sida.asp?anv=$1"">$1</a>")

encode = mess
End Function
%>
```

fasen.. gjorde litet fel "mess = av" skrev jag på den övrer.. nu ska det fungera.. och skrev fel det ska vara \\ inte / på vissa ställen :e nu fungera den

```
<%=encode(recset("info"))%>
```

detta fungera.. har testat

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

## #16 — Wiklund!!, 2003-01-12T15:22Z

Fattar inte varför det inte fungerar för mig! Kan vara det att jag inte har den senaste script motorn installerade.

Får felmeddelandet: Oväntad kvantifierare
Rad: mess = objRegExp.Replace(mess,"\<a href=""sida.asp?anv=$1""\>$1\</a\>")

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

## #17 — Wiklund!!, 2003-01-12T15:34Z

Laddade ner scriptmotorn. Nu försvinner felmeddelandet och texten dyker upp!

Fast när jag skriver: \[m\]Wiklund\[/m\] så blir det ingen länk, utan vanlig text. Det var \[m\]\[/m\] man skulle skriva va?

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

## #18 — Wiklund!!, 2003-01-12T22:40Z

Äntligen!! Fick till det.
Denna rad skulle se ut så här:
objRegExp.Pattern = "\\\[m\](.\*?)\\\[/m\\\]"

Tack så mycket alla för hjälpen!

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

## #19 — voigtann1, 2003-01-13T06:35Z

objRegExp.Pattern = "\\\[m\](.\*?)\\\[/m\\\]" 

kan inte stämma....

objRegExp.Pattern = "\\\[m\\\](.\*?)\\\[/m\\\]" 

ska det vara...

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

## #20 — Wiklund!!, 2003-01-13T08:58Z

Nej det som jag skrev stämmer. Bli medlem på <https://www.skate.nu> och testa. Var av en ren slump jag löste det.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/64307-länka-till-medlem  
Nästa sida: https://www.webforum.nu/amne/asp/64307-länka-till-medlem/page2.md