Avatar billede izemate Nybegynder
20. juni 2003 - 12:17 Der er 5 kommentarer og
1 løsning

Login system

Hejsa.
Jeg har dette login system hvor jeg gerne vil have det sådan at når en bruger har værdien A så bliver den sendt hen til en side, og hvis man har værdien B så bliver man sendt hen til en anden..

Databasen ser sådan her ud..
db.mdb
Users
[ID][Username][Password][Info] <- info er så den der skal tjekkes hvad "værdi" brugeren har..

håber i forstår :)

Login systemet er her:

<%

'Response.Buffer = True
'strRedirect = Request.ServerVariables("HTTP_REFERER")
'Response.Redirect strRedirect

SET RS = Server.CreateObject("ADODB.Connection")
rs.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db.mdb")

If Request("mode") = "Check" then

    ' Authes user, password, and fixed a known securitybug to many login systems.
        strUsername = Trim(Replace(request("username"),"'","''" ))
        strPassword = Trim(Replace(request("password"),"'","''" ))

  Sql = "Select Count(*) as Found from users where (username = '" & strUsername  & "') and (password ='" & strPassword  & "')"
  Set LO = RS.Execute(Sql)
  if LO("Found") = 0 then
    Session("login") = ""
    error = "Ugyldigt brugernavn eller adgangskode "
  else
  strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db.mdb")
  Set myConn = Server.CreateObject("ADODB.Connection")
  myConn.Open strDSN
  strSQL = "SELECT * FROM users where (username = '" & Request("username") & "') and (password ='" & Request("password") & "')"
  Set ez = myConn.Execute(strSQL)
    Session("Brugernavn") = ez("Username")
    Session("login") = "Authed"
    Response.Redirect "start.asp"
    EZ.Close
    RS.Close
    Conn.Close
  End if
End if
%>



<form method="POST" action="default.asp">
<input type="hidden" name="mode" VALUE="Check">
 
<table border="1" align="center" cellpadding="3" cellspacing="0" style="border-collapse: collapse" bordercolor="#000000" height="121" bgcolor="#FFFFFF">
<tr>


    <td><img src="images/top.gif"></td>
</tr>
<tr>
    <td>
    <font face="Tahoma" size="2" color="#264362"><b>Brugernavn:</b></font><br>
    <input class='text' type='text' name='username' size='34' value="<%=strbrugernavn%>"><br>
    <font face="Tahoma" size="2" color="#264362"><b>Adgangskode:</b></font><br>
    <input class="text" type="password" value="<%=strpassword%>" name="password" size="34" ></font><br>
    <div alig="left"><input class="text" type="submit" value="Log ind" name="submit"><font size="1" color="#FFFFFF"></div><br>
   
    <font face="Tahoma" size="2" color="#264362"><center><%=error%></center></font>
    </td>
Avatar billede tuctoh Nybegynder
20. juni 2003 - 12:22 #1
sådan?


<%

'Response.Buffer = True
'strRedirect = Request.ServerVariables("HTTP_REFERER")
'Response.Redirect strRedirect

SET RS = Server.CreateObject("ADODB.Connection")
rs.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db.mdb")

If Request("mode") = "Check" then

    ' Authes user, password, and fixed a known securitybug to many login systems.
        strUsername = Trim(Replace(request("username"),"'","''" ))
        strPassword = Trim(Replace(request("password"),"'","''" ))

  Sql = "Select Count(*) as Found from users where (username = '" & strUsername  & "') and (password ='" & strPassword  & "')"
  Set LO = RS.Execute(Sql)
  if LO("Found") = 0 then
    Session("login") = ""
    error = "Ugyldigt brugernavn eller adgangskode "
  else
  strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db.mdb")
  Set myConn = Server.CreateObject("ADODB.Connection")
  myConn.Open strDSN
  strSQL = "SELECT * FROM users where (username = '" & Request("username") & "') and (password ='" & Request("password") & "')"
  Set ez = myConn.Execute(strSQL)
    Session("Brugernavn") = ez("Username")
    Session("login") = "Authed"
    dim temp
    temp = ez("info")
    EZ.Close
    RS.Close
    Conn.Close
  End if
End if

if temp = "A" then
response.redirect("a.asp")
elseif temp = "B" then
response.redirect("b.asp")
end if
%>



<form method="POST" action="default.asp">
<input type="hidden" name="mode" VALUE="Check">
 
<table border="1" align="center" cellpadding="3" cellspacing="0" style="border-collapse: collapse" bordercolor="#000000" height="121" bgcolor="#FFFFFF">
<tr>


    <td><img src="images/top.gif"></td>
</tr>
<tr>
    <td>
    <font face="Tahoma" size="2" color="#264362"><b>Brugernavn:</b></font><br>
    <input class='text' type='text' name='username' size='34' value="<%=strbrugernavn%>"><br>
    <font face="Tahoma" size="2" color="#264362"><b>Adgangskode:</b></font><br>
    <input class="text" type="password" value="<%=strpassword%>" name="password" size="34" ></font><br>
    <div alig="left"><input class="text" type="submit" value="Log ind" name="submit"><font size="1" color="#FFFFFF"></div><br>
   
    <font face="Tahoma" size="2" color="#264362"><center><%=error%></center></font>
    </td>
Avatar billede izemate Nybegynder
20. juni 2003 - 12:55 #2
Jeg for fejl ved  ' Conn.Close ' alså linie 33 og jeg for beskeden:

Fejltype:
Der opstod en Microsoft VBScript-kørselsfejl (0x800A01A8)
Et objekt er obligatorisk: 'Conn'
/test.asp, line 33
Avatar billede tuctoh Nybegynder
20. juni 2003 - 13:03 #3
fjern linien så... en rest fra din egen kode
Avatar billede izemate Nybegynder
24. juni 2003 - 16:55 #4
Det virker bare :) takker for hjælpen
Avatar billede tuctoh Nybegynder
24. juni 2003 - 17:13 #5
any time
Avatar billede nopanic Nybegynder
19. september 2003 - 08:28 #6
kan i ikke lige skrive hele database koden. Jeg mangler slv et script som dette! ?
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
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

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