CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

twat Nybegynder

02. juni 1999 - 21:54 Der er 13 kommentarer og
1 løsning

Guestbook

Jeg har langt om længe fået min guestbook til at virke... MEN så var der jo lige en som skulle teste den... Well, han skrev </table> i hans indlæg og hele siden fuckede op!!! Nu er mit spørgsmål så :

Hvordan gør jeg sådan, at html tags IKKE kommer med i mine indlæg???? Jeg bruger en Access database til at lave den med!

Synes godt om

Lars Ginge Saaby Nielsen Praktikant

02. juni 1999 - 22:08 #1

Brug en If statement, hvor du kan lave en fejlmelding på diverse bogstaver.
Se evt. www.papkassen.dk
når du indtaster en html tag <?> kommer dene med en fejlmelding.
Jeg har ikke skrevet koden, da man lærer bedst ved selv at forsøge, men er du desperat, så skriv lige igen.

Synes godt om

twat Nybegynder

02. juni 1999 - 22:09 #2

Jeg er MEGET desperat!! hehe

Synes godt om

winther Nybegynder

02. juni 1999 - 22:15 #3

Du kan bare lave ">" og "<" om til HTML

Prøv dette:

besked=Replace(Request.Form("besked"), "<", "<")

besked=Replace(besked,">", ">")

Synes godt om

boomer Nybegynder

02. juni 1999 - 22:15 #4

Så får du da lige løsningen!

Hvis du f.eks. har et felt der hedder "Indhold" som folk ikke må bruge HTML koder i laver du dette:

Tekst = Server.HTMLEncode(Request.Form("Indhold"))

Når du så skal smide data ind i tabellen er det variablen Tekst du skal bruge.

Så vil HTML koder ikke blive aktiveret

Synes godt om

boomer Nybegynder

02. juni 1999 - 22:16 #5

Winther: Det var da en bøvlet måde... nu håber jeg ikke du får pointene :-)

Synes godt om

flemming Nybegynder

02. juni 1999 - 22:19 #6

Brug den her funktion til at skrive teksten ud fra databasen til html siden:

Function Text2HTML(ByRef strText)
DIM strSrc
strSrc = strText
strSrc = Replace(strSrc,"<","&LT;",1)
strSrc = Replace(strSrc,">","&GT;",1)
Text2HTML = strSrc
End Function

F.eks:

Response.Write( Text2HTML( RS("Text") ) )

mvh Flemming

Synes godt om

127144146281 Nybegynder

02. juni 1999 - 22:19 #7

jeg synes boomers metode er den mest rigtige "ASP" metode, da man også kan se hvem der har prøvet at skrive html koder i sit indlæg (hvis de da har skrevet nogle oplysninger der passer)

Synes godt om

twat Nybegynder

02. juni 1999 - 22:27 #8

Her er min kode... Boomer hvor skal jeg sætte dit kode ind, og hvordan skal det ændres?????

----

Set Rs = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("gbdb.mdb")
Rs.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath

If Request.Servervariables("Content_Length") > 0 then
Sql = "Insert into t_gaestebog (Fra, Dato, email, http, Tekst) values('" & Request("Fra") & "','" & Now() & "','" & Request("email") & "','" & Request("webside") & "','" & Request("Besked") & "')"
Rs.Execute(Sql)
Response.Write strongfont & "Tak for det...</font></Strong><br><br>"
end if

If "" = Request.QueryString("Mode") then
Sql = "Select * from T_gaestebog order by dato DESC"
Set Record = Rs.Execute(Sql)
response.write "<html><head><title>Gæstebog</title></head><body>"
response.write strongfont & "Gæstebogen</font></strong>"

response.write "<table border='0' width='500'>"
Do While Not Record.EOF
response.write "<tr><td bgcolor='" & linecolor & "' colspan='2'></td></tr>"
response.write "<tr><td width='0' align='right'>" & font & "Navn:</td>"
response.write "<td width='100%'>" & font & Record("Fra") & "</td></tr>"
response.write "<tr><td width='0' align='right'>" & font & "Twat:</td>"
response.write "<td width='100%'>" & font & Record("Twat") & "</td></tr>"
response.write "<tr><td width='0' align='right'>" & font & "E-Mail:</td>"
response.write "<td width='100%'>" & font & "<a href='mailto:" & Record("Email") & "'>" & Record("Email") & "</a></td></tr>"
response.write "<tr><td width='0' align='right'>" & font & "Webside:</td>"
response.write "<td width='100%'>" & font & "<a href='" & Record("http") & "'>" & Record("http") & "</a></td></tr>"
response.write "<tr><td width='0' align='right'>" & font & "Dato:</td>"
response.write "<td width='100%'>" & font & Record("dato") &"</td></tr>"
response.write "<tr><td width='0' align='right' valign='top'>" & font & "Besked:</td>"
response.write "<td width='100%'>" & font & Record("Tekst") & "</td></tr>"

Record.MoveNext
Loop
response.write "</table>"
Record.Close
RS.Close
end if

If "add" = Request.QueryString("Mode") then
response.write strongfont & "Skriv i gæstebogen</strong>"
response.write "<form method='POST' action='" & Request.ServerVariables("SCRIPT_NAME") & "'>"
response.write "<div align='left'><table border='0' width='50%'>"
response.write "<tr><td valign='top' align='right' colspan='2' bgcolor='" & linecolor & "'></td></tr>"
response.write "<tr><td valign='top' align='right'>" & font & "Navn:</td>"
response.write "<td valign='top'>" & font & "<input type='text' name='Fra' size='40'></td></tr>"
response.write "<tr><td valign='top' align='right'>" & font & "Twat:</td>"
response.write "<td valign='top'>" & font & "<input type='text' name='Twat' size='40'></td></tr>"
response.write "<tr><td valign='top' align='right'>" & font & "E-Mail:</td>"
response.write "<td valign='top'>" & font & "<input type='text' name='email' size='40'></td></tr>"
response.write "<tr><td valign='top' align='right'>" & font & "Webside:</td>"
response.write "<td valign='top'>" & font & "<input type='text' name='webside' size='40' value='http://'></td></tr>"
response.write "<tr><td valign='top' align='right'>" & font & "Besked:</td>"
response.write "<td valign='top'>" & font & "<textarea rows='5' name='Besked' cols='40'></textarea></td></tr>"
response.write "<tr><td colspan='2' valign='top' align='right'><div align='center'><center><p>" & font & "<input type='submit' value='Send' name='B1'>    <input type='reset' value='Slet' name='B2'></td></tr>"
response.write "<tr align='center'><td colspan='2' valign='top' align='right' bgcolor='" & linecolor & "'></td></tr></table>"
response.write "</form></body></html>"
end if

Synes godt om

winther Nybegynder

02. juni 1999 - 22:27 #9

Jeg vil nok foretrække først at lave teksten om til html idet du hiver den ud af databasen. Hvis du nu får lyst til at lave en søgemulighed er det noget ged at der står html tegn i basen.

Server.HTMLEncode har vist den ulempe at den giver fejl hvis variablen en tom.

Synes godt om

127144146281 Nybegynder

02. juni 1999 - 22:34 #10

Sådan her:

Set Rs = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("gbdb.mdb")
Rs.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath

If Request.Servervariables("Content_Length") > 0 then
Sql = "Insert into t_gaestebog (Fra, Dato, email, http, Tekst) values('" & Request("Fra") & "','" & Now() & "','" & Request("email") & "','" & Request("webside") & "','" & Request("Besked") & "')"
Rs.Execute(Sql)
Response.Write strongfont & "Tak for det...</font></Strong><br><br>"
end if

If "" = Request.QueryString("Mode") then
Sql = "Select * from T_gaestebog order by dato DESC"
Set Record = Rs.Execute(Sql)
response.write "<html><head><title>Gæstebog</title></head><body>"
response.write strongfont & "Gæstebogen</font></strong>"

response.write "<table border='0' width='500'>"
Do While Not Record.EOF
response.write "<tr><td bgcolor='" & linecolor & "' colspan='2'></td></tr>"
response.write "<tr><td width='0' align='right'>" & font & "Navn:</td>"
response.write "<td width='100%'>" & font & Record("Fra") & "</td></tr>"
response.write "<tr><td width='0' align='right'>" & font & "Twat:</td>"
response.write "<td width='100%'>" & font & Record("Twat") & "</td></tr>"
response.write "<tr><td width='0' align='right'>" & font & "E-Mail:</td>"
response.write "<td width='100%'>" & font & "<a href='mailto:" & Record("Email") & "'>" & Record("Email") & "</a></td></tr>"
response.write "<tr><td width='0' align='right'>" & font & "Webside:</td>"
response.write "<td width='100%'>" & font & "<a href='" & Record("http") & "'>" & Record("http") & "</a></td></tr>"
response.write "<tr><td width='0' align='right'>" & font & "Dato:</td>"
response.write "<td width='100%'>" & font & Record("dato") &"</td></tr>"
response.write "<tr><td width='0' align='right' valign='top'>" & font & "Besked:</td>"
response.write "<td width='100%'>" & font & Server.HTMLEncode(Record("Tekst")) & "</td></tr>"

Record.MoveNext
Loop
response.write "</table>"
Record.Close
RS.Close
end if

If "add" = Request.QueryString("Mode") then
response.write strongfont & "Skriv i gæstebogen</strong>"
response.write "<form method='POST' action='" & Request.ServerVariables("SCRIPT_NAME") & "'>"
response.write "<div align='left'><table border='0' width='50%'>"
response.write "<tr><td valign='top' align='right' colspan='2' bgcolor='" & linecolor & "'></td></tr>"
response.write "<tr><td valign='top' align='right'>" & font & "Navn:</td>"
response.write "<td valign='top'>" & font & "<input type='text' name='Fra' size='40'></td></tr>"
response.write "<tr><td valign='top' align='right'>" & font & "Twat:</td>"
response.write "<td valign='top'>" & font & "<input type='text' name='Twat' size='40'></td></tr>"
response.write "<tr><td valign='top' align='right'>" & font & "E-Mail:</td>"
response.write "<td valign='top'>" & font & "<input type='text' name='email' size='40'></td></tr>"
response.write "<tr><td valign='top' align='right'>" & font & "Webside:</td>"
response.write "<td valign='top'>" & font & "<input type='text' name='webside' size='40' value='http://'></td></tr>"
response.write "<tr><td valign='top' align='right'>" & font & "Besked:</td>"
response.write "<td valign='top'>" & font & "<textarea rows='5' name='Besked' cols='40'></textarea></td></tr>"
response.write "<tr><td colspan='2' valign='top' align='right'><div align='center'><center><p>" & font & "<input type='submit' value='Send' name='B1'>    <input type='reset' value='Slet' name='B2'></td></tr>"
response.write "<tr align='center'><td colspan='2' valign='top' align='right' bgcolor='" & linecolor & "'></td></tr></table>"
response.write "</form></body></html>"
end if

Synes godt om

127144146281 Nybegynder

02. juni 1999 - 22:35 #11

eller med fejl kontrol
Set Rs = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("gbdb.mdb")
Rs.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath

If Request.Servervariables("Content_Length") > 0 then
Sql = "Insert into t_gaestebog (Fra, Dato, email, http, Tekst) values('" & Request("Fra") & "','" & Now() & "','" & Request("email") & "','" & Request("webside") & "','" & Request("Besked") & "')"
Rs.Execute(Sql)
Response.Write strongfont & "Tak for det...</font></Strong><br><br>"
end if

If "" = Request.QueryString("Mode") then
Sql = "Select * from T_gaestebog order by dato DESC"
Set Record = Rs.Execute(Sql)
response.write "<html><head><title>Gæstebog</title></head><body>"
response.write strongfont & "Gæstebogen</font></strong>"

response.write "<table border='0' width='500'>"
Do While Not Record.EOF
response.write "<tr><td bgcolor='" & linecolor & "' colspan='2'></td></tr>"
response.write "<tr><td width='0' align='right'>" & font & "Navn:</td>"
response.write "<td width='100%'>" & font & Record("Fra") & "</td></tr>"
response.write "<tr><td width='0' align='right'>" & font & "Twat:</td>"
response.write "<td width='100%'>" & font & Record("Twat") & "</td></tr>"
response.write "<tr><td width='0' align='right'>" & font & "E-Mail:</td>"
response.write "<td width='100%'>" & font & "<a href='mailto:" & Record("Email") & "'>" & Record("Email") & "</a></td></tr>"
response.write "<tr><td width='0' align='right'>" & font & "Webside:</td>"
response.write "<td width='100%'>" & font & "<a href='" & Record("http") & "'>" & Record("http") & "</a></td></tr>"
response.write "<tr><td width='0' align='right'>" & font & "Dato:</td>"
response.write "<td width='100%'>" & font & Record("dato") &"</td></tr>"
response.write "<tr><td width='0' align='right' valign='top'>" & font & "Besked:</td>"
if not Record("Tekst") = "" then
response.write "<td width='100%'>" & font & Server.HTMLEncode(Record("Tekst")) & "</td></tr>"
end if
Record.MoveNext
Loop
response.write "</table>"
Record.Close
RS.Close
end if

If "add" = Request.QueryString("Mode") then
response.write strongfont & "Skriv i gæstebogen</strong>"
response.write "<form method='POST' action='" & Request.ServerVariables("SCRIPT_NAME") & "'>"
response.write "<div align='left'><table border='0' width='50%'>"
response.write "<tr><td valign='top' align='right' colspan='2' bgcolor='" & linecolor & "'></td></tr>"
response.write "<tr><td valign='top' align='right'>" & font & "Navn:</td>"
response.write "<td valign='top'>" & font & "<input type='text' name='Fra' size='40'></td></tr>"
response.write "<tr><td valign='top' align='right'>" & font & "Twat:</td>"
response.write "<td valign='top'>" & font & "<input type='text' name='Twat' size='40'></td></tr>"
response.write "<tr><td valign='top' align='right'>" & font & "E-Mail:</td>"
response.write "<td valign='top'>" & font & "<input type='text' name='email' size='40'></td></tr>"
response.write "<tr><td valign='top' align='right'>" & font & "Webside:</td>"
response.write "<td valign='top'>" & font & "<input type='text' name='webside' size='40' value='http://'></td></tr>"
response.write "<tr><td valign='top' align='right'>" & font & "Besked:</td>"
response.write "<td valign='top'>" & font & "<textarea rows='5' name='Besked' cols='40'></textarea></td></tr>"
response.write "<tr><td colspan='2' valign='top' align='right'><div align='center'><center><p>" & font & "<input type='submit' value='Send' name='B1'>    <input type='reset' value='Slet' name='B2'></td></tr>"
response.write "<tr align='center'><td colspan='2' valign='top' align='right' bgcolor='" & linecolor & "'></td></tr></table>"
response.write "</form></body></html>"
end if

Synes godt om

twat Nybegynder

02. juni 1999 - 22:38 #12

Tak! Jeg elsker dette forum!

Synes godt om

kermit Nybegynder

03. juni 1999 - 10:16 #13

Dont we all!

Synes godt om

zenzoria Nybegynder

03. juni 1999 - 20:13 #14

hehe

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 ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Lost focus Af bsn i ASP	0	07/11/202415:34	-
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP	4	26/04/202417:16	26/04/202418:37
JSON Af ingeman i ASP	3	07/04/202417:53	08/04/202412:09

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

22/11

Test: Den snusfornuftige Volkswagen ID.3 blevet til lidt af el-bisse

22/11

Vil købe tele-løsninger til det offentlige for 370 millioner kroner

22/11

Nørgaard: Det er de neuro-divergente originalers tid

22/11

Sker helt åbenlyst: Ansatte i den kinesiske stat sælger borgernes personlige data på hemmelige internet-fora

22/11

Efterspørgslen på AI-regnekraft er enorm - og det smitter af på priserne: "Vi kan sælge næsten alt, hvad vi får ind"

22/11

Derfor bliver den amerikanske tvangs-opdeling af Google nok ikke til noget

22/11

Nyt værtøj fra Microsoft: Snart kan du reparere nedbrudte Windows-enheder på distancen

22/11

Vi har fundet 10 ledige it-stillinger, som du kan søge netop nu

22/11

Politiet skriver kontrakt på 75 millioner kroner med dansk it-firma: Medarbejdere skal flytte ind hos politiet

22/11

Kombit gør klar til at købe it-konsulenter for 140 millioner kroner - her er planen

22/11

Droner i krig - sådan anvendes de mest effektivt på slagmarken

Vis flere artikler

IT-JOB

DEIF A/S

Senior Project Manager, Software & Product Development

Statens IT

Systemadministratorer til Endpoint Management i Statens It

Banedanmark

Junior IT-projektleder

IT & Co ApS

Systemkonsulent

Knud E. Hansen A/S

IT-supporter/administrator søges

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I går 22:30	Underlig meddelelse på skærmen Af Jordegern i E-mail programmer
I går 15:56	Navigation i Peugeot 3-2008 fra 2017 Af arnepedersen i Andet software
I går 14:10	Outlook henter ikke mails Af TTA i Office & Kontorpakker
I går 13:58	vise billeder i kartotek med store ikoner inklusive optagelsesdato Af Malm i Billedbehandling
I går 13:35	Adobe Elements 2019, Organizer Crasher Af mort1 i Billedbehandling