CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede 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!
Avatar billede 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.
Avatar billede twat Nybegynder
02. juni 1999 - 22:09 #2
Jeg er MEGET desperat!! hehe
Avatar billede winther Nybegynder
02. juni 1999 - 22:15 #3
Du kan bare lave ">" og "<" om til HTML

Prøv dette:

besked=Replace(Request.Form("besked"), "<", "&lt;")

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

Avatar billede 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
Avatar billede 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 :-)
Avatar billede 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
Avatar billede 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)
Avatar billede 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'>&nbsp;&nbsp;&nbsp; <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

Avatar billede 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.

Avatar billede 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'>&nbsp;&nbsp;&nbsp; <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
Avatar billede 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'>&nbsp;&nbsp;&nbsp; <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
Avatar billede twat Nybegynder
02. juni 1999 - 22:38 #12
Tak! Jeg elsker dette forum!
Avatar billede kermit Nybegynder
03. juni 1999 - 10:16 #13
Dont we all!
Avatar billede zenzoria Nybegynder
03. juni 1999 - 20:13 #14
hehe
Avatar billede 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.

Loading billede Opret Preview
Kategori
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
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
Vis detaljeret fejlkoder Af poulmadsen i ASP 6 09/03/202418:16 10/03/202417:59
IIS virker ikke på asp sider... Af bsn i ASP 10 15/10/202313:12 18/10/202308:48
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester



Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 13:55 Lave pas foto af 200 elever Af lurup i Billedbehandling
I går 22:23 ='uge 25'!H$31 Af lurup i Excel
I går 15:12 Tekstoplæsning - fjerne talebesked Af 1Dorte i Android
I går 12:57 End Down Af PGFfyn i Excel
I går 11:37 Hvilken type adapter skal man bruge - USB Af clausito i PC
White papers
Flere white papers »


Premium
Teaser billede
Det bliver rigtigt dyrt at købe pc i 2025 - det er der tre vigtige grunde til
Læs mere »
Kræver svar fra EU om GDPR-gråzoner: Svaret kan få betydning for alle danskere
Efter mere end tre års sagsbehandling: Nu begynder en af Danmarks store GDPR-retssager - står over for bødekrav på 800.000 kroner
Efter OUH-nedbrud: Det er altid kundens ansvar at vurdere risici ved en lille leverandør - sådan bør man gøre
Se alle »
Computerworld
Teaser billede
Prøvekørt: Polestar 3 er en rendyrket designer-bil, som er ude på at forføre dig
Læs mere »
Test af to nye robotplæneklippere: En dyr og en mere overkommelig
Nørgaard: Det er så torskedumt at læggge ekstra-skatter på de billige el-biler fra Kina
Første møde med de ’rigtige’ AI-pc’er: Et kæmpepotentiale ligger forude
Se alle »
CIO
Teaser billede
Microsoft dropper ny funktion i Copilot få måneder efter lanceringen
Læs mere »
CIO hos Alm. Brand rydder op i legacy-systemer og skaber en ny it-arkitektur: Stripper alt ned til standardkode for at sikre fremtiden
NIS2-implementeringen er nu i gang: Varsler omfattende tilsyn og store bøder
Vælg it-sikkerhed, hvis du gerne vil tjene mange penge: Disse cheftitler scorer de højeste lønninger i it-branchen
Se alle »
Job & Karriere
Teaser billede
Her er Danmarks fem bedste CIO’er lige nu: Se de fem nominerede til prisen som Årets CIO 2024
Læs mere »
Medarbejderne fik udleveret badetøfler ved indflytningen: Kom med inden for i IBM Danmarks nye topmoderne hovedkontor
Google fyrer hele sit Python-team
Bo solgte sit software-system for et treciftret millionbeløb: Brugte pengene på at købe 80 medarbejdere til ny storsatsning
Se alle »
White paper
Teaser billede
Rapport kortlægger de 13 bedste muligheder for at sætte turbo på din cloud computing
Læs mere »
Sådan høster du forretningsfordelene ved Internet of Things
Sæt turbo på din cloudperformance og minimér risikoen for DDoS-angreb
Sådan får du overblik og beskytter dine cloudapplikationer
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »