skrive <% %>

&lt;% Response.Write(Now()) %&gt;

Skal det hentes fra en database... der går jeg ud fra... så brug Replace...

Gem det du skal have udsrevet i en variabel... fx

Body = RS("FELT")

eller

HTML encrypt...

Body = Replace("body", "<", "&lt;")

http://activedeveloper.dk/iishelp/vbscript/htm/vsfctreplace.htm

det er en måde

<< magik , tak det virker.

<< md_craig >> , kan du ikke forklare lidt nærmere hvordan jeg replacer fx <% %> ??

Server.HTMLEncode("body")

det er den anden

takker..!

kan jeg så skrive dette:

<%
Body = RS("artikel")
Body = Replace("body", "<", "&lt;")
response.write rs("artikel")%>

...eller hvordan skal jeg sætte det ind?

Hvis du vil Replace vil det nok være lige så nemt at anvende Server.HTMLEncode. Hvis du benytter et Recordset kan du gøre følgende:

strTekst = Server.HTMLEncode(rs("feltnavn"))

Der er en lille ulempe ved det |magik| har. hvis du fx vil kunne tilføje en artikel så skal du skrive &lt; hver gang du vil skrive <... men bruger du fx Replace... så gør serveren det for dig og du kan nu skrive < så todset du vil...

skriver du fx

<%response.write Now%>

så skriver den dette ind i din database

&lt;% Response.Write(Now()) %>

og der er så bedst hvis du gør således her

Body = Replace("body", "<", "&lt;")
Body = Replace("body", ">", "&gt;")

Til HTMLEncode:

http://activedeveloper.dk/iishelp/iis/htm/asp/intr9aat.htm

Du skal ikke have " om body når du bruger Replace-funktionen.

<% Dim body

body = RS("artikel")

body = Replace(body, "<", "&lt;")

body = Replace(body, ">", "&gt;")

Response.Write(body)

%>

Men som sagt vil Server.HTMLEncode nok være nemmere.

<%

Dim body

body = RS("artikel")

body = Server.HTMLEncode(body)

Response.Write(body)

%>

NEJ:
<%
Body = RS("artikel")
Body = Replace("body", "<", "&lt;")
response.write rs("artikel")%>

JA:
<%
Body = RS("artikel")
Body = Replace("body", "<", "&lt;")
response.write Body%>

<< magik, jo men med Server.HTMLEncode , vil alt mit HTML i artiklen bliver omsat til tegn... det er ikke min mening, der er bare nogle få ting jeg vil replace, så jeg tror at jeg vil bruge replace

eller Endelig

Response.Write Server.HTMLEncode(RS("Artikel"))

<< md_craig , ja, kom også til at tænke mig frem til det,.. havde ikke rigtig tænkt mig om, da jeg skrev det... :o)

md_craig: Ingen af de dele du nævner vil virke. Det du gør er at Replace noget i en tekststreng der indeholder teksten "body".

Replace("body"...)

skal da nærmere være:

Replace(body...)

Da body er en string-variabel.

Hvis du vi Holde di til Replace så kan du gøre således...

<%
Dim Body

Body = RS("artikel")
Body = Replace("Body", "<", "&lt;")
Body = Replace("Body", ">", "&gt;")

Response.Write Body

%>

musicchart.dk:

Så vil dette jo virke fint:

<% Dim body

body = RS("artikel")

body = Replace(body, "<", "&lt;")

body = Replace(body, ">", "&gt;")

Response.Write(body)

%>

Men du skal tænke på at det bliver Replace't hver eneste gang en bruger requester siden. Det ville være smartere at Replace inden du lægger det i databasen, idet du så kun skal udføre Replace() én gang.

Ups...


<%
Dim Body

Body = RS("artikel")
Body = Replace(Body, "<", "&lt;")
Body = Replace(Body, ">", "&gt;")

Response.Write Body

%>

hmm... den har samme effect som Server.HTMLEncode, den laver alt min HTML kode om til tegn

Jeg gør det selv når jeg henter...

Grund:

Har du et system hvor du fx er intereseret i at kunne ændre i din artikel... så vil artiken der som man skrev den... EKX...

Indsrives:

<%response.write Now%>

Vises for brugeren:

&lt;% Response.Write(Now()) %&gt;

Vises når du vil redigere:

<%response.write Now%>

...og det er jo klart, da man også bruger < > i html... ØV

Du vil måske KUN have lavet <% og %> om? Og ikke < og > når de står alene?

<%

Dim body

body = RS("artikel")

body = Replace(body, "<%", "&lt;%")

body = Replace(body, "%>", "%&gt;")

%>

Ja... men du skal tænke på at du bliver nød til at skrive dette til browseren: &lt; og så vil den vise <

<< magik , det giver fejlen:

Fejltype:
Der opstod en Microsoft VBScript-kompileringsfejl (0x800A0409)
Strengkonstanten er uafsluttet
/mypage/realthing/html/aspartikel.asp, line 72, column 22
body = Replace(body, "

Hva'? Kan du ikke lige poste hele linjen?

<%

Dim body

body = RS("artikel")

body = Replace(body, "<%", "&lt;%")

body = Replace(body, "%>", "%&gt;")

Response.Write Body

%>


linie72;... body = Replace(body, "%>", "%&gt;")

Underligt. ASP-fortolkeren opfatter åbenbart "<%" i Replace() som værende en ASP-instruktion, hvilket det ikke er.

...ja... men det virker jo hvis den kun replacer den ene... da der ikke er nogen slutning på <%

MusicChart >>> Nej for den vil så gå ind og brokke sig over at der netop ikke er en slutning....

Hvis det virker, er det noget underligt....

Du må derfor holde dig til '<'.... men hvorfor kan du ikke bruge det... det er jo i principielt ligemeget... og hvis du vil have muglighed for at bruge HTML Scripting, så kan du evt. tage [ og ] i brug... således:

Ups...


<%
Dim Body

Body = RS("artikel")
Body = Replace(Body, "<", "&lt;")
Body = Replace(Body, ">", "&gt;")

Body = Replace(Body, "[", "<")
Body = Replace(Body, "], ">)

Response.Write Body

%>

hmmm... det virker med det jeg skrev: 19/06-2002 15:17:33 , men jeg vil da overveje den anden mulighed