Søg
Avatar billede netfreak14 Nybegynder
20. april 2001 - 19:55 Der er 35 kommentarer og
1 løsning

Ugyldig ord i felt

Er der nogle som der har et script, hvis man skriver Webmaster eller Webmasters i et felt, så kommer der en alert op, som der skriver: \"Ugyldig ord\" ?
Avatar billede dope Nybegynder
20. april 2001 - 20:03 #1
Lav dog et selv...

i input feltet laver du en \"onchange\" der kalder en funktion...

som checker..

if [variable] = [reserverede ord] then
... [sikkert et eller andet med \"onfocus\" så du sender brugeren til feltet...
Avatar billede dope Nybegynder
20. april 2001 - 20:06 #2
Der er tale om helt simpel validering. På samme måde som når man checker om det er et nummer, emailadresse, telefonnummer, osv...

Ved dette kan du lave \"if not [variable] isnumeric then...\"

:-)
Avatar billede minijensen1 Nybegynder
20. april 2001 - 20:08 #3
<input type=\"text\" name=\"tekstboks\" OnChange=\"java script:CheckText\">

<script language=\"JavaScript\">
function CheckText()
if (document.tekstboks.value == \"Webmaster\") {
  alert(\'Ugyldigt ord\')
  }
if (document.tekstboks.value == \"Webmasters\") {
  alert(\'Ugyldigt ord\')
  }
</script>
Avatar billede dope Nybegynder
20. april 2001 - 20:08 #4
\"if isnumeric(variable) then...\"

hedder det selvfølgelig
Avatar billede erikjacobsen Ekspert
20. april 2001 - 20:09 #5
...men enhver hacker, med respekt for sig selv, kan omgås sådan en
JavaScript validering, og måske endda ligefrem føle sig fristet til at
prøve. Den slags skal - i hvert fald også - ske på serversiden (PHP, ASP, Perl..)
Avatar billede dope Nybegynder
20. april 2001 - 20:09 #6
minijensen1 >>
lige i øjet...
Avatar billede netfreak14 Nybegynder
20. april 2001 - 20:20 #7
dope - Hvor i den kode som minijensen1 skrev, skal jeg skrive det som du skrev ?
Avatar billede dope Nybegynder
20. april 2001 - 20:25 #8
Jeg overså kategorien og svarede dig i VBScript syntax... tsktsk.. sorry.. :-)
Avatar billede netfreak14 Nybegynder
20. april 2001 - 20:26 #9
minijensen1 - Der kommer ikke den alert frem som jeg beder om, når man skriver i gæstebogen, som Webmaster !?
Avatar billede minijensen1 Nybegynder
20. april 2001 - 20:29 #10
Kan du ikke skrive alt det du har imellem <form> og </form>, så kan jeg lige sætte det rigtigt ind?!
Avatar billede netfreak14 Nybegynder
20. april 2001 - 20:32 #11
<% Response.Buffer = \"True\" %>
<% mode = request(\"mode\")%>
<head>
<title>BB Fanclub</title>
<style>
<!--
a:link {color:#000000; text-decoration:none}
a:visited {color:#000000; text-decoration:none}
a:hover {color:#000000; text-decoration:underline}
-->
</style>
</head>
<%
if mode = \"write\" then

nickname = Trim(Request.Form(\"nickname\"))
message = Trim(Request.Form(\"message\"))

if nickname = \"\" then
error = \"[ Du skal skrive et navn ]\"
end if

if message = \"\" then
error = \"[ Du SKAL skrive en besked ]\"
end if

if not write = \"nej\" then
if message = \"\" then
else
write = \"yes\"
end if
end if

if write = \"yes\" then
Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"access.mdb\") & \";UID=;PWD=;\"

    Set rs = Server.CreateObject(\"ADODB.RecordSet\")
    strSQL = \"Select * From messages\"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
      rs.AddNew
      rs(\"nickname\") = Request.form(\"nickname\")
      rs(\"message\") = Request.form(\"message\")
      rs(\"fontcolor\") = Request.form(\"fontcolor\")
      rs(\"fontface\") = Request.form(\"fontface\")
      rs(\"ip\") = request.servervariables(\"remote_Addr\")
      rs.Update

    rs.Close
    Set rs = Nothing

Conn.Close
set Conn = Nothing

Response.Redirect(\"default.asp\")
end if
end if
%>

<body bgcolor=\"#9CA8B4\">
<div align=\"center\">
  <center>
<table border=\"0\" width=\"700\" cellspacing=\"0\" bgcolor=\"#919191\" cellpadding=\"0\">
                <tr>
                  <td width=\"100%\" style=\"border-style: solid; border-width: 1\" bordercolor=\"#000000\" bgcolor=\"#808080\">
                    <p align=\"center\"><font size=\"1\" face=\"Verdana\" color=\"#EEEEEE\"><b>
                    BB Fanclub</b></font></p>
                  </td>
                </tr>
                <form action=\"default.asp?mode=write\" method=\"POST\" onsubmit=\"return FrontPage_Form1_Validator(this)\" name=\"FrontPage_Form1\">
                <tr>
                  <td width=\"100%\" style=\"border-left-style: solid; border-left-width: 1; border-right-style: solid; border-right-width: 1; border-bottom-style: solid; border-bottom-width: 1\" bordercolor=\"#000000\"><table border=\"0\"
    cellspacing=\"0\" width=\"100%\" height=\"1\" cellpadding=\"0\">
        <tr>
            <td width=\"100%\" height=\"1\" bordercolor=\"#000000\">
              <table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"0\" height=\"85\" bgcolor=\"#919191\">
                <tr>
                  <td width=\"400\" height=\"18\" colspan=\"2\">
                    <p align=\"left\"></p>
                  </td>
                </tr>
                <center>
                <tr>
                  <td width=\"80\" height=\"25\">
                    <p align=\"center\"><font face=\"Verdana\" size=\"1\" color=\"#000000\">Nickname:</font></td>
                <td width=\"300\" height=\"25\"><font face=\"Verdana\" size=\"2\" color=\"#000000\"><INPUT TYPE=\"text\" NAME=\"nickname\" class=\"css\" size=\"16\" style=\"background-color: #9CA8B4; color: #000000; font-family: Verdana; font-size: 8 pt; border: 1 solid #000000\" maxlength=\"30\"></font></td>
                </tr>
                <tr>
                  <td width=\"80\" height=\"25\">
                    <p align=\"center\"><font face=\"Verdana\" size=\"1\" color=\"#000000\">Besked:</font></td>
                <td width=\"200\" height=\"25\"><font face=\"Verdana\" size=\"2\" color=\"#000000\">
            <INPUT TYPE=\"text\" NAME=\"message\" class=\"css\" size=\"59\" style=\"background-color: #9CA8B4; color: #000000; font-family: Verdana; font-size: 8 pt; border: 1 solid #000000\" maxlength=\"250\"></font></td>
                </tr>
                <tr>
                  <td width=\"80\" height=\"27\">
                    <p align=\"center\"><font face=\"Verdana\" size=\"1\" color=\"#000000\">Color,
                    Font:</font></td>
                <td width=\"371\" height=\"27\">
                  <table border=\"0\" width=\"106%\" cellspacing=\"0\" cellpadding=\"0\" height=\"25\">
                    <tr>
                      <td width=\"100%\" align=\"left\" height=\"25\">
                        <p align=\"left\"><font face=\"Verdana\" size=\"1\" color=\"#000000\"><select name=\"fontcolor\" style=\"font-size: 8 pt; color: #000000; font-family: Verdana; background-color: #9CA8B4; border: 1px solid #000000\" tabIndex=\"4\" size=\"1\">
<option value=\"000000\">Sort </option>
<option value=\"FFFFFF\">Hvid </option>
<option value=\"0000FF\">Blå </option>
<option value=\"FF0000\">Rød </option>
<option value=\"00FF00\">Grøn </option>
<option value=\"FF00FF\">Lilla </option>
<option value=\"008800\">Mørk grøn </option>
<option value=\"000088\">Mørk blå </option>
<option value=\"880000\">Mørk rød </option>
<option value=\"008888\">Mørk turkis </option>
<option value=\"880088\">Mørk lilla </option>
<option value=\"8A2BE2\">Blåviolet </option>
<option value=\"D2691E\">Brun </option>
<option value=\"FFFF00\">Gul </option>
<option value=\"FFD700\">Guld </option>
<option value=\"FF8C00\">Mørk orange </option>
<option value=\"808000\">Oliven </option>
<option value=\"FFA500\">Orange </option>
<option value=\"00BFFF\">Skyblå </option>
<option value=\"00FF7F\">Sommergrøn </option>
<option value=\"EE82EE\">Violet </option>
                        </select><select name=\"fontface\" style=\"font-size: 8 pt; color: #000000; font-family: Verdana; background-color: #9CA8B4; border: 1px solid #000000\" tabIndex=\"4\" size=\"1\">
                                                    <option value=\"Verdena\">Normal </option>
<option value=\"Arial\">Arial </option>
<option value=\"Arial Black\">Arial Black </option>
<option value=\"Arial Narrow\">Arial Narrow </option>
<option value=\"Book Antiqua\">Book Antiqua </option>
<option value=\"Bookman Old Style\">Bookman Old Style </option>
<option value=\"Century Gothic\">Century Gothic </option>
<option value=\"Comic Sans MS\">Comic Sans MS </option>
<option value=\"Courier\">Courier </option>
<option value=\"Courier New\">Courier New </option>
<option value=\"DigitMed\">DigitMed </option>
<option value=\"DigitSmall\">DigitSmall </option>
<option value=\"Fixedsys\">Fixedsys </option>
<option value=\"Garamond\">Garamond </option>
                        </select></font></td>
                    </tr>
                  </table>
                </td>
                </tr>
    </center>
              </table>
              <table border=\"0\" width=\"696\" cellspacing=\"0\" cellpadding=\"0\">
                <tr>
                  <td width=\"123\" bgcolor=\"#919191\">
                    <p align=\"center\"></td>
                  <td width=\"563\" bgcolor=\"#919191\">
                    <table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"0\">
                      <tr>
                        <td width=\"100%\" align=\"left\">
                          <font face=\"Verdana\" font size=\"2\" color=\"#EEEEEE\"><b>
                          <table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"0\">
                            <tr>
                              <td>
<font face=\"Verdana\" font size=\"2\" color=\"#EEEEEE\"><b><input type=\"submit\" name=\"submit\" value=\"Skriv...\" class=\"css\" style=\"background-color: #9CA8B4; color: #000000; font-family: Verdana; font-size: 8 pt; border: 1 solid #000000\"><input type=\"submit\" name=\"Opdater\" class=\"css\" style=\"background-color: #9CA8B4; color: #000000; font-family: Verdana; font-size: 8 pt; border: 1 solid #000000\" value=\"Opdater...\"></b></font></form></td>
                            </tr>
                          </table>
                          </b></font></td>
                      </tr>
                    </table>
                  </td>
                  <td width=\"4\" bgcolor=\"#919191\">
                    <p align=\"center\"></td>
                </tr>
              </table>
            </td>
        </tr>
    </table>
    <%
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"access.mdb\")
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open strDSN
strSQL = \"SELECT COUNT(id) AS Antal FROM messages\"
Set CountRs = myConn.execute(strSQL)
SQL = \"SELECT * FROM messages order by id desc\"
Set Rs = myConn.Execute(SQL)
%>
      <div align=\"center\">
        <center><table width=\"100%\" cellspacing=\"0\" cellpadding=\"0\" height=\"1\">
          <tr><td style=\"border-top-style: solid; border-top-width: 1; border-bottom-style: solid; border-bottom-width: 1\" bordercolor=\"#000000\" bgcolor=\"#808080\" height=\"1\"><p align=\"center\"><font face=\"Verdana\" size=\"1\" color=\"#EEEEEE\">Der er
              <% response.write CountRs(\"Antal\") %> beskeder i gæstebogen..</font></td></tr></table>
        </center>
      </div>
<%
do while not Rs.eof
%>
      <table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"0\">
        <tr>
          <td width=\"100%\" bordercolor=\"#000000\">
            <div align=\"center\">
              <center>
            <table border=\"0\" width=\"100%\" cellspacing=\"0\">
              <tr>
                <td width=\"100%\" bordercolor=\"#000000\" bgcolor=\"#EEEEEE\"><font face=\"verdana\" size=\"1\" color=\"#000000\"><b><%=server.HTMLencode(rs(\"nickname\"))%>:</b><font face=\"<%=rs(\"fontface\")%>\" size=\"1\" color=\"<%=rs(\"fontcolor\")%>\">&nbsp;<%=server.HTMLencode(rs(\"message\"))%></font></font></td>             
              </tr>
                    <%
rs.MoveNext
Loop
myConn.Close
Set myConn = Nothing
%>
              <tr>
                <td width=\"100%\" bordercolor=\"#000000\" bgcolor=\"#808080\" style=\"border-top-style: solid; border-top-width: 1\">
                  <p align=\"center\"><font face=\"verdana\" size=\"1\" color=\"#EEEEEE\">Du kan højest skrive</font><font color=\"FFFFFF\" size=\"1\"><font face=\"Verdana\"> 600 tegn</font>
              </font></td>              </tr>
            </table>
              </center>
            </div>
            </td>
        </tr>
      </table>
            </table>
  </center>
</div>
Avatar billede minijensen1 Nybegynder
20. april 2001 - 20:35 #12
Er det i feltet Nickname man ikke må hedde Webmaster?
Avatar billede netfreak14 Nybegynder
20. april 2001 - 20:36 #13
minijensen1 - Ja
Avatar billede netfreak14 Nybegynder
20. april 2001 - 20:37 #14
Man må ikke hedde :

Webmaster og
Webmasters
Avatar billede minijensen1 Nybegynder
20. april 2001 - 20:40 #15
Jeg laver det i ASP istedet!

if nickname = \"\" then
error = \"[ Du skal skrive et navn ]\"
else
if Left(LCase(nickname), 9) = \"webmaster\" Then
error = \"[ Du kan ikke hedde \" & nickanme & \" ]\"
elseif left(LCase(nickname), 3) = \"admin\" Then
error = \"[ Du kan ikke hedde \" & nickname & \" ]\"
end if
end if



nu kan man hverken hedde webmaster, admin, administrator, adm, webmast eller lignende
Avatar billede minijensen1 Nybegynder
20. april 2001 - 20:41 #16
JEg fandt lige en fejl!
elseif left(LCase(nickname), 3) = \"adm\" Then
Avatar billede netfreak14 Nybegynder
20. april 2001 - 20:45 #17
minijensen1 - Der kom en fejl :
Microsoft VBScript compilation error \'800a0400\'

Expected statement

/test/gæstebog/Default.asp, line 27

end if
^
Avatar billede netfreak14 Nybegynder
20. april 2001 - 20:45 #18
Jeg skrev :
<% Response.Buffer = \"True\" %>
<% mode = request(\"mode\")%>
<head>
<title>BB Fanclub</title>
<style>
<!--
a:link {color:#000000; text-decoration:none}
a:visited {color:#000000; text-decoration:none}
a:hover {color:#000000; text-decoration:underline}
-->
</style>
</head>
<%
if mode = \"write\" then

nickname = Trim(Request.Form(\"nickname\"))
message = Trim(Request.Form(\"message\"))

if nickname = \"\" then
error = \"[ Du skal skrive et navn ]\"
end if
elseif left(LCase(nickname), 3) = \"adm\" Then
error = \"[ Du kan ikke hedde \" & nickanme & \" ]\"
elseif left(LCase(nickname), 3) = \"admin\" Then
error = \"[ Du kan ikke hedde \" & nickname & \" ]\"
end if
end if

if message = \"\" then
error = \"[ Du SKAL skrive en besked ]\"
end if

if not write = \"nej\" then
if message = \"\" then
else
write = \"yes\"
end if
end if

if write = \"yes\" then
Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"access.mdb\") & \";UID=;PWD=;\"

    Set rs = Server.CreateObject(\"ADODB.RecordSet\")
    strSQL = \"Select * From messages\"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
      rs.AddNew
      rs(\"nickname\") = Request.form(\"nickname\")
      rs(\"message\") = Request.form(\"message\")
      rs(\"fontcolor\") = Request.form(\"fontcolor\")
      rs(\"fontface\") = Request.form(\"fontface\")
      rs(\"ip\") = request.servervariables(\"remote_Addr\")
      rs.Update

    rs.Close
    Set rs = Nothing

Conn.Close
set Conn = Nothing

Response.Redirect(\"default.asp\")
end if
end if
%>

<body bgcolor=\"#9CA8B4\">
<div align=\"center\">
  <center>
<table border=\"0\" width=\"700\" cellspacing=\"0\" bgcolor=\"#919191\" cellpadding=\"0\">
                <tr>
                  <td width=\"100%\" style=\"border-style: solid; border-width: 1\" bordercolor=\"#000000\" bgcolor=\"#808080\">
                    <p align=\"center\"><font size=\"1\" face=\"Verdana\" color=\"#EEEEEE\"><b>
                    BB Fanclub</b></font></p>
                  </td>
                </tr>
                <form action=\"default.asp?mode=write\" method=\"POST\" onsubmit=\"return FrontPage_Form1_Validator(this)\" name=\"FrontPage_Form1\">
                <tr>
                  <td width=\"100%\" style=\"border-left-style: solid; border-left-width: 1; border-right-style: solid; border-right-width: 1; border-bottom-style: solid; border-bottom-width: 1\" bordercolor=\"#000000\"><table border=\"0\"
    cellspacing=\"0\" width=\"100%\" height=\"1\" cellpadding=\"0\">
        <tr>
            <td width=\"100%\" height=\"1\" bordercolor=\"#000000\">
              <table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"0\" height=\"85\" bgcolor=\"#919191\">
                <tr>
                  <td width=\"400\" height=\"18\" colspan=\"2\">
                    <p align=\"left\"></p>
                  </td>
                </tr>
                <center>
                <tr>
                  <td width=\"80\" height=\"25\">
                    <p align=\"center\"><font face=\"Verdana\" size=\"1\" color=\"#000000\">Nickname:</font></td>
                <td width=\"300\" height=\"25\"><font face=\"Verdana\" size=\"2\" color=\"#000000\"><INPUT TYPE=\"text\" NAME=\"nickname\" class=\"css\" size=\"16\" style=\"background-color: #9CA8B4; color: #000000; font-family: Verdana; font-size: 8 pt; border: 1 solid #000000\" maxlength=\"30\"></font></td>
                </tr>
                <tr>
                  <td width=\"80\" height=\"25\">
                    <p align=\"center\"><font face=\"Verdana\" size=\"1\" color=\"#000000\">Besked:</font></td>
                <td width=\"200\" height=\"25\"><font face=\"Verdana\" size=\"2\" color=\"#000000\">
            <INPUT TYPE=\"text\" NAME=\"message\" class=\"css\" size=\"59\" style=\"background-color: #9CA8B4; color: #000000; font-family: Verdana; font-size: 8 pt; border: 1 solid #000000\" maxlength=\"250\"></font></td>
                </tr>
                <tr>
                  <td width=\"80\" height=\"27\">
                    <p align=\"center\"><font face=\"Verdana\" size=\"1\" color=\"#000000\">Color,
                    Font:</font></td>
                <td width=\"371\" height=\"27\">
                  <table border=\"0\" width=\"106%\" cellspacing=\"0\" cellpadding=\"0\" height=\"25\">
                    <tr>
                      <td width=\"100%\" align=\"left\" height=\"25\">
                        <p align=\"left\"><font face=\"Verdana\" size=\"1\" color=\"#000000\"><select name=\"fontcolor\" style=\"font-size: 8 pt; color: #000000; font-family: Verdana; background-color: #9CA8B4; border: 1px solid #000000\" tabIndex=\"4\" size=\"1\">
<option value=\"000000\">Sort </option>
<option value=\"FFFFFF\">Hvid </option>
<option value=\"0000FF\">Blå </option>
<option value=\"FF0000\">Rød </option>
<option value=\"00FF00\">Grøn </option>
<option value=\"FF00FF\">Lilla </option>
<option value=\"008800\">Mørk grøn </option>
<option value=\"000088\">Mørk blå </option>
<option value=\"880000\">Mørk rød </option>
<option value=\"008888\">Mørk turkis </option>
<option value=\"880088\">Mørk lilla </option>
<option value=\"8A2BE2\">Blåviolet </option>
<option value=\"D2691E\">Brun </option>
<option value=\"FFFF00\">Gul </option>
<option value=\"FFD700\">Guld </option>
<option value=\"FF8C00\">Mørk orange </option>
<option value=\"808000\">Oliven </option>
<option value=\"FFA500\">Orange </option>
<option value=\"00BFFF\">Skyblå </option>
<option value=\"00FF7F\">Sommergrøn </option>
<option value=\"EE82EE\">Violet </option>
                        </select><select name=\"fontface\" style=\"font-size: 8 pt; color: #000000; font-family: Verdana; background-color: #9CA8B4; border: 1px solid #000000\" tabIndex=\"4\" size=\"1\">
                                                    <option value=\"Verdena\">Normal </option>
<option value=\"Arial\">Arial </option>
<option value=\"Arial Black\">Arial Black </option>
<option value=\"Arial Narrow\">Arial Narrow </option>
<option value=\"Book Antiqua\">Book Antiqua </option>
<option value=\"Bookman Old Style\">Bookman Old Style </option>
<option value=\"Century Gothic\">Century Gothic </option>
<option value=\"Comic Sans MS\">Comic Sans MS </option>
<option value=\"Courier\">Courier </option>
<option value=\"Courier New\">Courier New </option>
<option value=\"DigitMed\">DigitMed </option>
<option value=\"DigitSmall\">DigitSmall </option>
<option value=\"Fixedsys\">Fixedsys </option>
<option value=\"Garamond\">Garamond </option>
                        </select></font></td>
                    </tr>
                  </table>
                </td>
                </tr>
    </center>
              </table>
              <table border=\"0\" width=\"696\" cellspacing=\"0\" cellpadding=\"0\">
                <tr>
                  <td width=\"123\" bgcolor=\"#919191\">
                    <p align=\"center\"></td>
                  <td width=\"563\" bgcolor=\"#919191\">
                    <table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"0\">
                      <tr>
                        <td width=\"100%\" align=\"left\">
                          <font face=\"Verdana\" font size=\"2\" color=\"#EEEEEE\"><b>
                          <table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"0\">
                            <tr>
                              <td>
<font face=\"Verdana\" font size=\"2\" color=\"#EEEEEE\"><b><input type=\"submit\" name=\"submit\" value=\"Skriv...\" class=\"css\" style=\"background-color: #9CA8B4; color: #000000; font-family: Verdana; font-size: 8 pt; border: 1 solid #000000\"><input type=\"submit\" name=\"Opdater\" class=\"css\" style=\"background-color: #9CA8B4; color: #000000; font-family: Verdana; font-size: 8 pt; border: 1 solid #000000\" value=\"Opdater...\"></b></font></form></td>
                            </tr>
                          </table>
                          </b></font></td>
                      </tr>
                    </table>
                  </td>
                  <td width=\"4\" bgcolor=\"#919191\">
                    <p align=\"center\"></td>
                </tr>
              </table>
            </td>
        </tr>
    </table>
    <%
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"access.mdb\")
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open strDSN
strSQL = \"SELECT COUNT(id) AS Antal FROM messages\"
Set CountRs = myConn.execute(strSQL)
SQL = \"SELECT * FROM messages order by id desc\"
Set Rs = myConn.Execute(SQL)
%>
      <div align=\"center\">
        <center><table width=\"100%\" cellspacing=\"0\" cellpadding=\"0\" height=\"1\">
          <tr><td style=\"border-top-style: solid; border-top-width: 1; border-bottom-style: solid; border-bottom-width: 1\" bordercolor=\"#000000\" bgcolor=\"#808080\" height=\"1\"><p align=\"center\"><font face=\"Verdana\" size=\"1\" color=\"#EEEEEE\">Der er
              <% response.write CountRs(\"Antal\") %> beskeder i gæstebogen..</font></td></tr></table>
        </center>
      </div>
<%
do while not Rs.eof
%>
      <table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"0\">
        <tr>
          <td width=\"100%\" bordercolor=\"#000000\">
            <div align=\"center\">
              <center>
            <table border=\"0\" width=\"100%\" cellspacing=\"0\">
              <tr>
                <td width=\"100%\" bordercolor=\"#000000\" bgcolor=\"#EEEEEE\"><font face=\"verdana\" size=\"1\" color=\"#000000\"><b><%=server.HTMLencode(rs(\"nickname\"))%>:</b><font face=\"<%=rs(\"fontface\")%>\" size=\"1\" color=\"<%=rs(\"fontcolor\")%>\">&nbsp;<%=server.HTMLencode(rs(\"message\"))%></font></font></td>             
              </tr>
                    <%
rs.MoveNext
Loop
myConn.Close
Set myConn = Nothing
%>
              <tr>
                <td width=\"100%\" bordercolor=\"#000000\" bgcolor=\"#808080\" style=\"border-top-style: solid; border-top-width: 1\">
                  <p align=\"center\"><font face=\"verdana\" size=\"1\" color=\"#EEEEEE\">Du kan højest skrive</font><font color=\"FFFFFF\" size=\"1\"><font face=\"Verdana\"> 600 tegn</font>
              </font></td>              </tr>
            </table>
              </center>
            </div>
            </td>
        </tr>
      </table>
            </table>
  </center>
</div>



I Koden !?
Avatar billede netfreak14 Nybegynder
20. april 2001 - 20:48 #19
Jeg fik det til at virke.. Men når jeg skriver webmaster skriver den det aligevel ?!
Avatar billede minijensen1 Nybegynder
20. april 2001 - 20:48 #20
Nu skulle det virke.. Jeg har lige sat det op på en overskuelig måde!

If nickname = \"\" Then
  error = \"[ Du skal skrive et navn ]\"
Else
  If left(LCase(nickname), 3) = \"adm\" Then
    error = \"[ Du kan ikke hedde \" & nickanme & \" ]\"
  ElseIf Left(LCase(nickname), 3) = \"admin\" Then
    error = \"[ Du kan ikke hedde \" & nickname & \" ]\"
  End If
End If
Avatar billede minijensen1 Nybegynder
20. april 2001 - 20:50 #21
Prøv at kigge i skriptet, du har kun blokeret for admin!

If nickname = \"\" Then
  error = \"[ Du skal skrive et navn ]\"
Else
  If left(LCase(nickname), 3) = \"adm\" Then
    error = \"[ Du kan ikke hedde \" & nickanme & \" ]\"
  ElseIf Left(LCase(nickname), 9) = \"webmaster\" Then
    error = \"[ Du kan ikke hedde \" & nickname & \" ]\"
  End If
End If
Avatar billede netfreak14 Nybegynder
20. april 2001 - 20:51 #22
minijensen1 - Prøv at test den på :
http://www.friserverplads.dk/netfreak14/default.asp
Avatar billede minijensen1 Nybegynder
20. april 2001 - 20:55 #23
Gi\' mig lige 5-10 minutters tid.. Så ksla jeg lige se på det!
Avatar billede netfreak14 Nybegynder
20. april 2001 - 20:58 #24
Ok
Avatar billede minijensen1 Nybegynder
20. april 2001 - 21:00 #25
Prøv med:

<%
if mode = \"write\" then

  nickname = Trim(Request.Form(\"nickname\"))
  message = Trim(Request.Form(\"message\"))

  if nickname = \"\" then
    error = \"[ Du skal skrive et navn ]\"
  else
    elseif left(LCase(nickname), 3) = \"adm\" Then
      error = \"[ Du kan ikke hedde \" & nickname & \" ]\"
    elseif left(LCase(nickname), 9) = \"webmaster\" Then
      error = \"[ Du kan ikke hedde \" & nickname & \" ]\"
    end if
  end if

  if message = \"\" then
    error = \"[ Du SKAL skrive en besked ]\"
  end if

  if error = \"\" then
    Const adOpenKeyset = 1
    Const adLockOptimistic = 3

    Set Conn = Server.CreateObject(\"ADODB.Connection\")
    Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"access.mdb\") & \";UID=;PWD=;\"

      Set rs = Server.CreateObject(\"ADODB.RecordSet\")
      strSQL = \"Select * From messages\"
      rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
        rs.AddNew
          rs(\"nickname\") = Request.form(\"nickname\")
          rs(\"message\") = Request.form(\"message\")
          rs(\"fontcolor\") = Request.form(\"fontcolor\")
          rs(\"fontface\") = Request.form(\"fontface\")
          rs(\"ip\") = request.servervariables(\"remote_Addr\")
        rs.Update

      rs.Close
      Set rs = Nothing

    Conn.Close
    set Conn = Nothing

    Response.Redirect(\"default.asp\")
  else
    response.write Error
  end if
end if
%>
Avatar billede netfreak14 Nybegynder
20. april 2001 - 21:07 #26
Når jeg uploader siden , så siger den Siden kan ikke vises ?
Avatar billede minijensen1 Nybegynder
20. april 2001 - 21:10 #27
Er du sikker på at den stadig hedder default.asp??
Avatar billede netfreak14 Nybegynder
20. april 2001 - 21:11 #28
ja, http://www.friserverplads.dk/netfreak14/default.asp
Avatar billede minijensen1 Nybegynder
20. april 2001 - 21:13 #29
det forstår jeg ikke helt kan du ikke prøve at uploade som test.txt?
Avatar billede netfreak14 Nybegynder
20. april 2001 - 21:17 #30
Jow, 2sek
Avatar billede netfreak14 Nybegynder
20. april 2001 - 21:18 #31
http://www.friserverplads.dk/netfreak14/test.txt
Avatar billede minijensen1 Nybegynder
20. april 2001 - 21:23 #32
Kan du vente til imorgen?? Jeg skal af nettet nu, og det er vist lidt mere indviklet end jeg havde troet!
Avatar billede netfreak14 Nybegynder
20. april 2001 - 21:25 #33
Okay... Så finder vi ud af noget i morgen ;o)
Avatar billede netfreak14 Nybegynder
21. april 2001 - 16:43 #34
minijensen1  - Vil du stadigvæk hjælpe mig ?
Avatar billede minijensen1 Nybegynder
21. april 2001 - 16:45 #35
Jeg har den færdig på http://www.friserverplads.dk/minijensen1/
Du kan gemme filen http://www.friserverplads.dk/minijensen1/netfreak14.txt
Avatar billede minijensen1 Nybegynder
21. april 2001 - 16:51 #36
Men jeg forstår ikke helt! Du skriver max 600 tegn. Kan Access ikke kun have 255 eller er det bare fordi at jeg ikke bruger 2000-database?!
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
Webudvikling kurser
Vi tilbyder markedets bedste kurser inden for webudvikling
Se alle Webudvikling kurser

Flere spørgsmål fra JavaScript kategorien

Titel Indlæg Oprettet Seneste aktivitet
problem med download i <a href=" " download> tag i JavaScript Af Peer i JavaScript 5 27/04/202620:09 21/08/202610:41
Validering af filnavn i formular Af Strawberry i JavaScript 8 14/04/202610:11 20/04/202611:14
Mangler et JavaScript til htm side med iframe i Joomla5 Af Peder Lund Nielsen i JavaScript 2 03/02/202614:19 04/04/202616:02
Åbne en PDF fil fra en mappe Af mbl i JavaScript 9 18/04/202516:52 22/04/202512:33
Spørgsmål til cookies Af Mads i JavaScript 2 14/02/202511:47 27/06/202514:34
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
07/1022:52 Google beskeder har/havde en bug, så den sendte tilfældige gamle beskeder gemt indeni nye beskeder efter skifte til ny Samsungtelefon via Samsung Smart Switch Af KennethLykke i Apps til Android
05/1010:31 Min IPAD vil ikke oplade. Af Nørdnot i Mac
04/1018:04 Findes der et "Papir-kurv" symbol, man kan sætte på Firefox og Google Chrome ? (For oven) Af Ikke-ekspert i Browsere
03/1012:14 Ang udskrift Canon mb5050 Af made18 i Printere
02/1021:29 Vedr. Windows 11 version 26H2 Af ErikHg i Fri debat
White papers
Flere white papers »