---
title: "Kod-taggar i en textarea"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/9177-kod-taggar-i-en-textarea"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Method"
published: "2001-04-26T09:15:00.000Z"
updated: "2001-04-27T05:55:00.000Z"
replies: 14
views: 278
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/9177-kod-taggar-i-en-textarea"
---

# Kod-taggar i en textarea

## #1 — Method, 2001-04-26T09:15Z

Hur gör man för att kunna skriva kod-taggar i textareas.

Så som man kan göra i detta forumet

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

## #2 — Erik Juhlin, 2001-04-26T09:18Z

```
<textarea name="foo"><blink>Doh!</blink></textarea>
```

Sen kan du ju lösa det på serversidan så här:

```
Server.HTMLEncode(Request("foo"))
```

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

## #3 — Method, 2001-04-26T09:51Z

Jag förstår inte det med serversidan vad lägger jag den koden?

Sen vad är blink för tagg?

jag vill typ ha taggarna \<b\> och \<li\>-taggen (punkt framför texten)

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

## #4 — Erik Juhlin, 2001-04-26T10:04Z

Aha, du vill att man ska skriva typ -\[b-\] / \[/b-\] (utan streck) så blir texten fet?

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

## #5 — Erik Juhlin, 2001-04-26T10:08Z

Då kan man ju skriva så här:

```
foo = Replace(lcase(Request("foo")), "[b-]", "<b>")
foo = Replace(lcase(Request("foo")), "[/b-]", "</b>")
```

Ta bort strecken själv. :)

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

## #6 — Method, 2001-04-26T10:56Z

Var lägger jag in koden?

jag får det inte att fungera
det blir detta fel

Microsoft VBScript runtime error '800a000d' 

Type mismatch: '\[string: ""\]' 

/index.asp, line 180 

behöver jag denna kod också på samma sida?
Server.HTMLEncode(Request("foo"))
och var lägger jag den?

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

## #7 — Erik Juhlin, 2001-04-26T12:27Z

Jag trodde först att du ville att HTML-kod som skrivits i en textarea senare skulle visas på en sida. Då använder man HTMLEncode. Annars behöver du inte använda det.
Vad heter textarean i ditt formulär?

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

## #8 — @nders, 2001-04-26T12:30Z

HTML-kod som skrivits i en imagemap 

ähum :q

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

## #9 — Erik Juhlin, 2001-04-26T12:35Z

Såg den missen ganska snabbt.. :)

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

## #10 — @nders, 2001-04-26T12:38Z

synd att det var en miss, för det skulle jag vilja lära mig hur man gör... ;)

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

## #11 — Method, 2001-04-26T12:59Z

Den heter text1

jag vill ha det som det är här, på forumet. Om man skriver taggen url /url
(inom \[\]) så blir det en länk
och om man skriver\[-b\] **så blir detta fet stil**\[/b-\] och det gör man ju i en textarea.

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

## #12 — Erik Juhlin, 2001-04-26T16:17Z

Där slutar mina kunskaper..
Men det finns säkert många andra som vet hur man gör. :)

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

## #13 — aleborg, 2001-04-26T16:54Z

```
<%
Function to_html(s_string)
    to_html = Replace(s_string, """", "''")
    to_html = Replace(to_html, "<", "<")
    to_html = Replace(to_html, ">", ">")
    to_html = Replace(server.htmlencode(to_html), vbcrlf, "<br>")
    to_html = Replace(to_html, "/<", "<")
    to_html = Replace(to_html, "/>", ">")

	to_html= replace(to_html,"[/font]","</font>")
	to_html= replace(to_html,"[/size]","</font>")
	to_html= replace(to_html,"[/color]","</font>")
	to_html= replace(to_html,"[/FONT]","</font>")
	to_html= replace(to_html,"[/SIZE]","</font>")
	to_html= replace(to_html,"[/COLOR]","</font>")
	to_html= replace(to_html,"[img]","<img src='")
	to_html= replace(to_html,"[IMG]","<img src='")
	to_html= replace(to_html,"[/img]","'>")
	to_html= replace(to_html,"[/IMG]","'>")

    to_html = edit_hrefs(to_html)
End Function
%>

<script language="javascript1.2" runat=server>
function edit_hrefs(s_html){
    // use regular expressions to look for 
    // e_mail addresses and urls
    s_str = new String(s_html);

    s_str = s_str.replace(/\bhttp\:\/\/www(\.[\w+\.\:\/\_]+)/gi, 
		"http\:\/\/¬¤¸$1");

    s_str = s_str.replace(/\b(http\:\/\/\w+\.[\w+\.\:\/\_]+)/gi,
		"<a href=\"$1\">$1<\/a>");
		
    s_str = s_str.replace(/\b(www\.[\w+\.\:\/\_]+)/gi, 
		"<a href=\"http://$1\">$1</a>");
		
    s_str = s_str.replace(/\bhttp\:\/\/¬¤¸(\.[\w+\.\:\/\_]+)/gi,
		"<a href=\"http\:\/\/www$1\">http\:\/\/www$1</a>");
		
    s_str = s_str.replace(/\b(\w+@[\w+\.?]*)/gi, 
		"<a href=\"mailto\:$1\">$1</a>");
		
    
//	s_str=s_str.replace( /\b\[font=([a-z]+)\]/gi,"<font face='$1'>");
	s_str=s_str.replace( /\[font=([a-z]+)\]/gi,"<font face='$1'>");

	s_str=s_str.replace( /\[size=([1-9]+)\]/gi,"<font size='$1'>");
	
	s_str=s_str.replace( /\[color=([a-z]+)\]/gi,"<font color='$1'>");
	
    return s_str;
}
</script>
<%
function smilie(pics)
pics = replace(pics, ":)", "<img src='pics/smilie/smilie.gif' border=0>")
pics = replace(pics, ":(", "<img src='pics/smilie/smilie2.gif' border=0>")
pics = replace(pics, ":D", "<img src='pics/smilie/smilie3.gif' border=0>")
pics = replace(pics, ":?:", "<img src='pics/smilie/smilie4.gif' border=0>")
pics = replace(pics, ":arg:", "<img src='pics/smilie/smilie5.gif' border=0>")
pics = replace(pics, ":raw:", "<img src='pics/smilie/smilie6.gif' border=0>")
pics = replace(pics, ";)", "<img src='pics/smilie/smilie7.gif' border=0>")
smilie = pics
end function 
%>
<%
function koder(ubb)
ubb = replace(ubb, "[b]", "<b>")
ubb = replace(ubb, "[/b]", "</b>")
ubb = replace(ubb, "[i]", "<i>")
ubb = replace(ubb, "[/i]", "</i>")
ubb = replace(ubb, "[u]", "<u>")
ubb = replace(ubb, "[/u]", "</u>")
ubb = replace(ubb, "[center]", "<center>")
ubb = replace(ubb, "[/center]", "</center>")
ubb = replace(ubb, "[citat]", "<font color=#000000>Citat:<br><hr>")
ubb = replace(ubb, "[/citat]", "<br><hr></font>")
ubb = replace(ubb, "[citat]", "<font color=#000000>Citat:<br><hr>")
ubb = replace(ubb, "[/citat]", "<br><hr></font>")
ubb = replace(ubb, "[b]", "<b>")
ubb = replace(ubb, "[/b]", "</b>")
ubb = replace(ubb, "[i]", "<i>")
ubb = replace(ubb, "[/i]", "</i>")
ubb = replace(ubb, "[U]", "<u>")
ubb = replace(ubb, "[/U]", "</u>")
ubb = replace(ubb, "[CENTER]", "<center>")
ubb = replace(ubb, "[/CENTER]", "</center>")
koder = ubb
end function 
%>
```

Kallas på:
\<%=koder(smilie(to_html(rs("Mess"))))%\>

Enda problemet som jag inte löst än är att bilder blir:
\<img src='\<a href="http://www.min"\>http://www.min\</a\>-url.nu/avatars/46.gif'\>

Vet inte hur jag ska lösa det :(

\[Redigerat av aleborg den 26 apr 2001\]

\[Redigerat av aleborg den 26 apr 2001\]

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

## #14 — aleborg, 2001-04-26T16:56Z

kul, forumet sabbar koden!

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

## #15 — Method, 2001-04-27T05:55Z

Om den koden som ligger här ovan inte är 100% kan du väl maila den till mig

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/9177-kod-taggar-i-en-textarea