webForumDet fria alternativet

Kod-taggar i en textarea

ASP

14 svar · 226 visningar · startad av Method

Medlem sedan apr. 2001357 inlägg
Frågan#1

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

Så som man kan göra i detta forumet

------------------
-----------------------
-{CHRYSTAL}-
Lesch rular CS

Medlem sedan maj 200010 687 inlägg
#2
<textarea name="foo"><blink>Doh!</blink></textarea>

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

Server.HTMLEncode(Request("foo"))

------------------
/Erik
www.juhlin.nu /sk8files/ /mp2d/

Medlem sedan apr. 2001357 inlägg
#3

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)

------------------
-----------------------
-{CHRYSTAL}-
Lesch rular CS

Medlem sedan maj 200010 687 inlägg
#4

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

------------------
/Erik
www.juhlin.nu /sk8files/ /mp2d/

Medlem sedan maj 200010 687 inlägg
#5

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. :)

------------------
/Erik
www.juhlin.nu /sk8files/ /mp2d/

[Redigerat av Erik Juhlin den 26 apr 2001]

Medlem sedan apr. 2001357 inlägg
#6

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?

------------------
-----------------------
-{CHRYSTAL}-
Lesch rular CS

[Redigerat av Method den 26 apr 2001]

Medlem sedan maj 200010 687 inlägg
#7

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?

------------------
/Erik
www.juhlin.nu /sk8files/ /mp2d/

[Redigerat av Erik Juhlin den 26 apr 2001]

Medlem sedan juni 200032 967 inlägg
#8

HTML-kod som skrivits i en imagemap

ähum :q

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
all your base are belong to us!</A>

Medlem sedan maj 200010 687 inlägg
#9

Såg den missen ganska snabbt.. :)

------------------
/Erik
www.juhlin.nu /sk8files/ /mp2d/

Medlem sedan juni 200032 967 inlägg
#10

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

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
all your base are belong to us!</A>

Medlem sedan apr. 2001357 inlägg
#11

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.

------------------
-----------------------
-{CHRYSTAL}-
Lesch rular CS

[Redigerat av Method den 26 apr 2001]

[Redigerat av Method den 26 apr 2001]

Medlem sedan maj 200010 687 inlägg
#12

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

------------------
/Erik
www.juhlin.nu /sk8files/ /mp2d/

Medlem sedan jan. 20013 341 inlägg
#13
<%
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]

Medlem sedan jan. 20013 341 inlägg
#14

kul, forumet sabbar koden!

Medlem sedan apr. 2001357 inlägg
#15

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

------------------
-----------------------
-{CHRYSTAL}-
Lesch rular CS

255 ms totalt · 4 externa anrop · v20260731065814-full.86ec41c2
124 ms — deklarationer (db)
0 ms — hämta statistik (cache)
128 ms — hämta tråd, inlägg och bilagor (db)
120 ms — ändringar (db)