Notifikationer

Markér alle som læst Log ud

getto Nybegynder

15. juni 2002 - 16:39 Der er 12 kommentarer og
1 løsning

kommando der laver beggrund grå i HTML dokument

Jeg er hved at lave et forum til programmør interaseret, og hver gang der skal stå en gang "kode" skal men så skrive {script} eller noget i den retning, men når man gør det, bliver alt inde for {script} {script end} med grå beggrund, hvordan kan man gøre det bedst?

Går lige i bad så jeg venter med at svare...

Synes godt om

hells Nybegynder

15. juni 2002 - 16:51 #1

Lav det sådan at {script} udskiftes med <span style="background-color: #cccccc;"> og {script end} udskiftes med </span>

I ASP f. eks.:
indlaeg = Request.Form("indlaeg")
indlaeg = Replace(indlaeg,"{script}","<span style=""background-color: #cccccc;"">")

Synes godt om

getto Nybegynder

15. juni 2002 - 17:30 #2

altså sådan her:
indlaeg = Request.Form("indlaeg")
indlaeg = Replace(indlaeg,"{script}","<span style=""background-color: #cccccc;"">")

indlaeg = Request.Form("indlaeg")
indlaeg = Replace(indlaeg,"{script end}","</span>")

Synes godt om

getto Nybegynder

15. juni 2002 - 17:32 #3

hvad med vis alt skal hentes fra en txtfil, og ikke skal submittes sådan ind..

Synes godt om

hells Nybegynder

15. juni 2002 - 17:40 #4

Du behøver kun at angive, hvilken værdi indlaeg skal have, en gang.
Hvis du ved, hvordan du henter fra en tekstfil er det vel noget med:
indlaeg = tekst fra tekstfil
indlaeg = Replace(indlaeg,"{script}","<span style=""background-color: #cccccc;"">")
indlaeg = Replace(indlaeg,"{script end}","</span>")

Synes godt om

getto Nybegynder

15. juni 2002 - 17:45 #5

Skal det sættes sådan ind, tror jeg har misforstået noget!!!

<BODY>

<SCRIPT LANGUAGE="JavaScript1.2">
document.write(sidehoved)
</SCRIPT>
<P><%
Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("\Tutorials\" & request.querystring & ".txt")
Set f = fso.OpenTextFile(filespec,1)

Do While not f.AtEndOfStream
Response.write f.ReadLine & "<br>"
Loop

f.Close
%>
<%
indlaeg = tekst fra tekstfil
indlaeg = Replace(indlaeg,"{script}","<span style=""background-color: #cccccc;"">")
indlaeg = Replace(indlaeg,"{script end}","</span>")
%>
</P>

<SCRIPT LANGUAGE="JavaScript1.2">
document.write(sidefod)
</SCRIPT>

</BODY>

Synes godt om

getto Nybegynder

15. juni 2002 - 17:49 #6

tekst fra tekstfil = Server.Mappath("\Tutorials\" & request.querystring & ".txt")

Synes godt om

hells Nybegynder

15. juni 2002 - 17:52 #7

Prøv med det her:
<BODY>

<SCRIPT LANGUAGE="JavaScript1.2">
document.write(sidehoved)
</SCRIPT>
<P><%
Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("\Tutorials\" & request.querystring & ".txt")
Set f = fso.OpenTextFile(filespec,1)

Do While not f.AtEndOfStream

indlaeg = f.ReadLine 'Ment som det, der skulle skrives for at få data fra tekstfil
indlaeg = Replace(indlaeg,"{script}","<span style=""background-color: #cccccc;"">")
indlaeg = Replace(indlaeg,"{script end}","</span>")

Response.write indlaeg & "<br>"

Loop

f.Close
%>
</P>

<SCRIPT LANGUAGE="JavaScript1.2">
document.write(sidefod)
</SCRIPT>

</BODY>

Synes godt om

getto Nybegynder

15. juni 2002 - 17:54 #8

virker, mange tak, kan man også fjerne < og > på samme måde, så den laver < og > til at være synlige ?

Synes godt om

hells Nybegynder

15. juni 2002 - 17:57 #9

ja:
indlaeg = f.ReadLine 'Ment som det, der skulle skrives for at få data fra tekstfil
indlaeg = Replace(indlaeg,"{script}","<span style=""background-color: #cccccc;"">")
indlaeg = Replace(indlaeg,"{script end}","</span>")
indlaeg = Replace(indlaeg,"<","<")
indlaeg = Replace(indlaeg,">",">")

Synes godt om

getto Nybegynder

15. juni 2002 - 18:01 #10

nej, den tror stadig det er en komando den skal skrive ned :-(

Synes godt om

hells Nybegynder

15. juni 2002 - 18:06 #11

Det skulle ellersm gerne virke. Prøv ellers at skifte asp-koden ud med dette:
<%
Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("\Tutorials\" & request.querystring & ".txt")
Set f = fso.OpenTextFile(filespec,1)

Do While not f.AtEndOfStream

indlaeg = f.ReadLine 'Ment som det, der skulle skrives for at få data fra tekstfil
indlaeg = Replace(indlaeg,"{script}","<span style=""background-color: #cccccc;"">")
indlaeg = Replace(indlaeg,"{script end}","</span>")
indlaeg = Replace(indlaeg,"<","<")
indlaeg = Replace(indlaeg,">",">")

Response.write indlaeg & "<br>"

Loop

f.Close
%>

Synes godt om

getto Nybegynder

15. juni 2002 - 18:17 #12

okey så virker det, tak , skal lige finjustere det men ellers virker det..

Synes godt om

hells Nybegynder

15. juni 2002 - 18:17 #13

ok, var så lidt

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra Andet programmering kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Bat file. Af johnnylassen i Andet programmering	4	23/04/202616:10	21/08/202611:03
Hjælp til Api.asmx Af lurup i Andet programmering	1	17/03/202609:27	17/03/202614:12
burgermenu til hjemmeside - hjælp! Af SabrinaL i Andet programmering	2	12/11/202514:10	21/08/202611:08
Hjælp til programmering af website Af hamdenlange i Andet programmering	16	17/08/202522:26	19/08/202515:53
Kan man registrere hvis folk lukker en side ned Af KurtG i Andet programmering	8	24/07/202513:06	28/07/202517:03

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS