Avatar billede deaz Nybegynder
17. december 2000 - 11:39 Der er 7 kommentarer og
1 løsning

brugersystem.


<%
Option Explicit
Response.expires = 0
Dim str_brugernavn, str_password

if request.Servervariables(\"Content_lenght\") <> 0 then
  str_brugernavn = trim(Request.form(\"brugernavn\"))
  str_password = trim(Request.form(\"brugernavn\"))
 
  if str_brugernavn = \"bruger1\" or \"bruger2\" then
    if str_brugernavn = \"bruger1\" and str_password =\"pass1\" then session(\"login\") = true
    if str_brugernavn = \"bruger2\" and str_password =\"pass2\" then session(\"login\") = true
  else
    session(\"login\") = false 
  end if
 
  if session(\"login\") = true then
    response.write(\"Du er nu logget ind!\")
  else
    response.write(\"Forkert brugernavn eller password - prøv igen!\")
  end if

else %>


<form action=\"<%= Request.servervariables(\"Script_name\") %>\" method=\"post\">

<html>

<head>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1252\">
<meta name=\"GENERATOR\" content=\"Microsoft FrontPage 4.0\">
<meta name=\"ProgId\" content=\"FrontPage.Editor.Document\">
<title>Brugernavn</title>
</head>

<body>


<div align=\"center\">
  <center>
  <table border=\"0\" width=\"200\" bgcolor=\"#000000\" cellspacing=\"1\" cellpadding=\"0\">
    <tr>
      <td width=\"100%\">
        <table border=\"0\" width=\"100%\" bgcolor=\"#FFFFFF\" cellspacing=\"0\" cellpadding=\"0\">
          <tr>
            <td width=\"100%\">
              <table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"5\">
                <tr>
                  <td width=\"50%\"><font size=\"2\" face=\"Verdana\">
Brugernavn:&nbsp;</font></td>
                  <td width=\"50%\"><font size=\"2\" face=\"Verdana\"> <input type=\"text\" name=\"brugernavn\"></font></td>
                </tr>
                <tr>
                  <td width=\"50%\"><font size=\"2\" face=\"Verdana\">
Password: </font></td>
                  <td width=\"50%\"><font size=\"2\" face=\"Verdana\"> <input type=\"text\" name=\"password\"></font></td>
                </tr>
                <tr>
                  <td width=\"50%\"></td>
                  <td width=\"50%\"><font size=\"2\" face=\"Verdana\">
<input type=\"submit\" name=\"submit\" value=\"Log in\">
                    </font></td>
                </tr>
              </table>
            </td>
          </tr>
        </table>
      </td>
    </tr>
  </table>
  </center>
</div>
</form>

<% end if

If session(\"admin\") = true then
  response.write(\"Du er nu logget på!\")
Else
  response.write(\"<b><font color=\"red\">Forkert brugernavn eller kodeord. Prøv igen!</font></b>\")
End if

%>


</body>

</html>




HVAD ER FEJLEN?

/hilsen DeaZ
Avatar billede tdaugaard Nybegynder
17. december 2000 - 11:40 #1
Hvad er det der ikke virker da ?
Avatar billede tdaugaard Nybegynder
17. december 2000 - 11:42 #2
Jeg får i hvert fald en fejl her:

Der opstod en Microsoft VBScript-kompileringsfejl fejl \'800a03ee\'

Tegnet \')\' var ventet

/default.asp, linje 81

response.write(\"<b><font color=\"red\">Forkert brugernavn eller kodeord. Prøv igen!</font></b>\")
--------------------------------^

der skal du skrive \'red\' istedet.

var det det ?
Avatar billede tdaugaard Nybegynder
17. december 2000 - 11:47 #3
hvad med


  str_brugernavn = trim(Request.form(\"brugernavn\"))
  str_password = trim(Request.form(\"brugernavn\"))

skulle den sidste ikke være \"password\" ?
Avatar billede tdaugaard Nybegynder
17. december 2000 - 11:48 #4
Den er HELT galt med en del af det .. jeg omskriver det lige så det virker!
Avatar billede tdaugaard Nybegynder
17. december 2000 - 11:56 #5
DET her virker helt perfekt:

<%
    Option Explicit
    Response.Expires = 0
    Dim strBrugernavn, strPassword

    strBrugernavn = Trim(Request.Form(\"brugernavn\"))
    strPassword = Trim(Request.Form(\"password\"))

    If Len(strBrugernavn) > 0 and Len(strPassword) > 0 Then
        Session(\"login\") = False

        If strBrugernavn = \"bruger1\" And strPassword =\"pass1\" Then Session(\"login\") = True
        If strBrugernavn = \"bruger2\" And strPassword =\"pass2\" Then Session(\"login\") = True

        Select Case Session(\"login\")
            Case True:  Response.Write \"Du er nu logget ind!\"
            Case False: Response.Write \"Forkert brugernavn eller password - prøv igen!\"
        End Select
    Else
%>
<html>
<head>
    <meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1252\">
    <meta name=\"GENERATOR\" content=\"Microsoft FrontPage 4.0\">
    <meta name=\"ProgId\" content=\"FrontPage.Editor.Document\">
    <title>Brugernavn</title>
</head>
<body>
<form action=\"<%=Request.ServerVariables(\"SCRIPT_NAME\")%>\" method=\"post\">
<div align=\"center\">
    <table border=\"0\" width=\"200\" bgcolor=\"#000000\" cellspacing=\"1\" cellpadding=\"0\">
        <tr>
            <td width=\"100%\">
                <table border=\"0\" width=\"100%\" bgcolor=\"#FFFFFF\" cellspacing=\"0\" cellpadding=\"0\">
                    <tr>
                        <td width=\"100%\">
                            <table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"5\">
                                <tr>
                                    <td width=\"50%\"><font size=\"2\" face=\"Verdana\">Brugernavn:&nbsp;</font></td>
                                    <td width=\"50%\"><font size=\"2\" face=\"Verdana\"> <input type=\"text\" name=\"brugernavn\"></font></td>
                                </tr>
                                <tr>
                                    <td width=\"50%\"><font size=\"2\" face=\"Verdana\"> Password: </font></td>
                                    <td width=\"50%\"><font size=\"2\" face=\"Verdana\"> <input type=\"text\" name=\"password\"></font></td>
                                </tr>
                                <tr>
                                    <td width=\"50%\">&nbsp;</td>
                                    <td width=\"50%\"><font size=\"2\" face=\"Verdana\"><input type=\"submit\" value=\"Log in\">
                                </font></td>
                                </tr>
                            </table>
                        </td>
                    </tr>
                </table>
            </td>
        </tr>
    </table>
</div>
</form>
</body>
</html>
<%    End If %>
Avatar billede deaz Nybegynder
17. december 2000 - 12:13 #6
ThanX, tdaugaard! nu dur det:) hvad end fejlen var... men ved du hvordan man kan lave en lille  som sætter session(\"login\") = false ?
lig. response.write(\"Du er nu logget på! <input type=button... og så skal den sætte session(\"login\") til false hvis man klikker på den?

/Hilsen Deaz
Avatar billede deaz Nybegynder
17. december 2000 - 12:14 #7
\"lille  som\" = \"lille KNAP som\"
Avatar billede tdaugaard Nybegynder
17. december 2000 - 12:15 #8
Lige et øjeblik så laver jeg et eksempel....
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
Kurser inden for grundlæggende programmering

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