hjælp til login system

kom med noget kode som vi kan se på...

hvor meget vil du have jeg har 3 asp scirpt.

godt spørgsmål...

Kom med den del af koden du benytter til at logge ind med, altså den der finder det brugeren har skrevet ind og tjekker det...

Læs her

http://www.evolt.org/article/Creating_a_login_script_with_ASP/17/28652/
http://www.evolt.org/article/Creating_a_login_script_with_ASP_part_II/17/28674/
http://www.asp101.com/samples/login.asp

Past alle tre sider herinde. Måske kan du bruge noget det her http://www.html.dk/tutorials/asp/lektion12.asp Søg efter Password løsning med session objektet.

<%
if Request.ServerVariables("Request_method") = "post" then

  Set Conn = Server.CreateObject("ADODB.Connection")
  Set rs = Server.CreateObject("ADODB.Recordset")
  Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("login.mdb")
 
  password = Replace(Request.Form("password"),"'","''")
  navn = Replace(Request.Form("navn"),"'","''")
 
  SQL = "SELECT * FROM tblmedlemmer WHERE brugernavn = '" & navn & "' AND adgangskode = '" & password & "'"
  Set rs = Conn.Execute(SQL)
  if NOT rs.EOF then
    Session("login") = "loged_in"
    Session("licensnr") = rs("licensnr")
  else
    Session("login") = ""
  end if
  rs.Close
  Set rs = nothing
  Conn.Close
  Set Conn = nothing
  if Session("login") = "loged_in" then
    'BRUGER ER LOGGET IND SEND HAM VIDRE TIL EN BESKYTTET FIL

    Response.Redirect("side.asp")
  end if
end if
%>
          <form action="" method="post">
<center>
        <table width="230" border="0" align="center">
          <tr><td colspan="2"><strong><font size="3" face="Verdana, Arial, Helvetica, sans-serif"><img src="pic/user.gif" width="23" height="18">
              Login til medlemssider<br>
              <img src="pic/moerkeblaa.gif" width="250" height="2"></font></strong></td>
          </tr>
          <tr>
            <td width="96"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Brugernavn:</font></td>
            <td width="151"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
              <input name="navn" type="text" size="21">
              </font></td>
          </tr>
          <tr>
            <td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Adgangskode:</font></td>
            <td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
              <input name="password" type="password" size="21">
              </font></td>
          </tr>
          <tr>
            <td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;</font></td>
            <td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
              <input name="login" type="submit" class="knap" value="Login">
              </font></td>
          </tr>
        </table>
        </center>
        </form>



Mit problem er at jeg får fejl i denne line her :
if Request.ServerVariables("Request_method") = "post" then

hvilken fejl får du ?

denne fejl


Fejltype:
Der opstod en Microsoft JScript-kompileringsfejl (0x800A03ED)
Tegnet '(' var ventet
/login.asp, line 4, column 3
if Request.ServerVariables("Request_method") = "post" then
--^

prøv lige at ændre din linie til dette i stedet...

if Request.ServerVariables("REQUEST_METHOD") = "POST" then

nope jeg får samme fejl men jeg ved ikke om det kan have noget med at jeg mangler nogle felter inde i min database eller den kommer med den fejl når der ikke er det brugernavn og password.

Jeg har testet din side, men jeg får ikke nogen fejl...

Så, det virker som det skal hos mig...

if (Request.ServerVariables("REQUEST_METHOD") = "POST") then
Du kan eventuelt prøve at sætte den parentes ind som siden gerne vil have med, og så se om det virker...

Men alle felterne du referere til i dit script skal findes i databasen, ellers får du fejl på siden...

tjaaa... så langt så godt nu er jeg kommet til at få denne fejl


Fejltype:
Der opstod en Microsoft JScript-kompileringsfejl (0x800A03ED)
Tegnet '(' var ventet
/retdata.asp, line 5, column 3
if Session("login")<> "loged_in" then
--^

så skal der åbenbart () omkring dine ifer...

if (Session("login")<> "loged_in") then

Prøv det her:

<%
if Request.ServerVariables("Request_method") = "post" then

  Set Conn = Server.CreateObject("ADODB.Connection")
  Set rs = Server.CreateObject("ADODB.Recordset")
  Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("login.mdb")
 
  password = Replace(Request.Form("password"),"'","''")
  navn = Replace(Request.Form("navn"),"'","''")
 
  SQL = "SELECT * FROM tblmedlemmer WHERE brugernavn = '" & navn & "' AND adgangskode = '" & password & "'"
  Set rs = Conn.Execute(SQL)
  if NOT rs.EOF then
    Session("login") = True
    Session("licensnr") = rs("licensnr")
  else
    Session("login") = False
  end if
  rs.Close
  Set rs = nothing
  Conn.Close
  Set Conn = nothing
  if Session("login") = True then
    'BRUGER ER LOGGET IND SEND HAM VIDRE TIL EN BESKYTTET FIL

    Response.Redirect("side.asp")
  end if
end if
%>
          <form action="" method="post">
<center>
        <table width="230" border="0" align="center">
          <tr><td colspan="2"><strong><font size="3" face="Verdana, Arial, Helvetica, sans-serif"><img src="pic/user.gif" width="23" height="18">
              Login til medlemssider<br>
              <img src="pic/moerkeblaa.gif" width="250" height="2"></font></strong></td>
          </tr>
          <tr>
            <td width="96"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Brugernavn:</font></td>
            <td width="151"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
              <input name="navn" type="text" size="21">
              </font></td>
          </tr>
          <tr>
            <td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Adgangskode:</font></td>
            <td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
              <input name="password" type="password" size="21">
              </font></td>
          </tr>
          <tr>
            <td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;</font></td>
            <td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
              <input name="login" type="submit" class="knap" value="Login">
              </font></td>
          </tr>
        </table>
        </center>
        </form>

hvor er det det der skal stå henne denne fejl jeg fik denne gang som jeg skræv til dig før er i retdata.asp scriptet

sorry det passer ikke det var i login jeg fik fejlen... denne fejl

Fejltype:
Der opstod en Microsoft JScript-kompileringsfejl (0x800A03ED)
Tegnet '(' var ventet
/login.asp, line 15, column 3
if NOT rs.EOF then
--^

i denne line

if NOT rs.EOF then

jeg har prøvet med  ()  men det virker ikke... men hvad er den line overhovet til.

Det her er et script til login.
Det skulle være rettet til, så det passer til dine informationer:

<%
If Request.ServerVariables("Request_method") = "post" Then

Dim strDbPathAndName
Dim rsBruger

Set adoCon = Server.CreateObject("ADODB.Connection")
strDbPathAndName = "login.mdb"
strCon = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(strDbPathAndName)
Set rsBruger = Server.CreateObject("ADODB.Recordset")
    strSQL = "SELECT * FROM tblmedlemmer WHERE brugernavn = '" & navn & "' AND adgangskode = '" & password & "'"
    rsBruger.Open strSQL, strCon

If Not rsBruger.eof Then
        Session("login") = True
        Session("licensnr") = rsBruger("licensnr")
Else
        Session("login") = False
End If
rsBruger.Close
Set rsBruger = Nothing
  If Session("login") = True Then
    Response.Redirect("side.asp")
  End If
End If
%>

ja det giver også bare en masse fejl... jeg kan ikke forstå hvorfor der er så meget bøvl ver gang jeg skal lave noget.

Hvordan åbner du det... og hvad har du til at stå inde i din database af felter.

Her er min login.asp

<%
If Session("login") = False Then
Response.Write vbCrLf & ("<table cellpadding='0' cellspacing='0' class='menu' width='100%'>")
Response.Write vbCrLf & ("<tr>")
Response.Write vbCrLf & ("<td>")
Response.Write vbCrLf & ("<form method='POST' action='tjek.asp'>")
Response.Write vbCrLf & ("Brugernavn<br>")
Response.Write vbCrLf & ("<input type='text' name='Brugernavn' size='20' class='button' value='" & request.cookies("TblBruger")("Brugernavn") & "'><br>")
Response.Write vbCrLf & ("</tr>")
Response.Write vbCrLf & ("</td>")
Response.Write vbCrLf & ("<tr>")
Response.Write vbCrLf & ("<td>")
Response.Write vbCrLf & ("Kodeord<br>")
Response.Write vbCrLf & ("<input type='password' name='Kodeord' size='20' class='button' value='" & request.cookies("TblBruger")("Kodeord") & "'><br>")
Response.Write vbCrLf & ("</tr>")
Response.Write vbCrLf & ("</td>")
Response.Write vbCrLf & ("<tr>")
Response.Write vbCrLf & ("<td>")
Response.Write vbCrLf & ("<INPUT TYPE=CHECKBOX CHECKED name='gem' value='on'>Husk Brugernavn og Kodeord<br>")
Response.Write vbCrLf & ("</tr>")
Response.Write vbCrLf & ("<tr>")
Response.Write vbCrLf & ("<td>")
Response.Write vbCrLf & ("<INPUT TYPE=CHECKBOX CHECKED name='aktiv' value='on'>Tilføj mig til aktiv brugerlisten<br><br>")
Response.Write vbCrLf & ("</tr>")
Response.Write vbCrLf & ("</td>")
Response.Write vbCrLf & ("<tr>")
Response.Write vbCrLf & ("<td>")
Response.Write vbCrLf & ("<input type='Submit' value='Log ind' class='button'>")
Response.Write vbCrLf & ("<hr size='1'><a href='opret.asp' class='SubMenuLink'>Registrer</a>")
Response.Write vbCrLf & ("</tr>")
Response.Write vbCrLf & ("</td></form>")
Response.Write vbCrLf & ("</table>")
End If
%>

Her er tjek.asp

<!-- #include file="common.asp" -->
<%
Dim fejl, Kodeord, Brugernavn
Dim rsBruger

fejl = false
Brugernavn = Trim(Replace(Request.Form("Brugernavn"), "'", "''"))
Kodeord = Trim(Replace(Request.Form("Kodeord"), "'", "''"))

If Brugernavn = "" Then
    Response.Write "<p><font color=red>Indtast venligst dit Brugernavn!</p></font>"
    fejl = true
End If

If Kodeord = "" Then
    Response.Write "<p><font color=red>Indtast venligst dit kodeord!</p></font>"
    fejl = true
End If

If fejl = true Then
    Response.Write "<p><a href=java script:history.back()>Tilbage</a>"
End If

If fejl <> true Then

Set rsBruger = Server.CreateObject("ADODB.Recordset")
    strSQL = "SELECT * FROM TblBruger WHERE Brugernavn='" & Brugernavn & "' and Kodeord = '" & Kodeord & "'"
    rsBruger.Open strSQL, strCon

If Not rsBruger.eof Then
        Session("login") = True
        Session.Timeout = 20
        Session("BrugerID") = rsBruger("BrugerID")
        Session("Brugernavn") = rsBruger("Brugernavn")
        Session("GruppeID") = rsBruger("GruppeID")
        If Request.Form("aktiv") = "on" Then
        Set rsBruger = Server.CreateObject("ADODB.Recordset")
        strSQL = "Update TblBruger Set online=true Where Brugernavn='" & Brugernavn & "'"
        rsBruger.Open strSQL, strCon
        End If
        If request.form("gem") = "on" then
        Response.Cookies("TblBruger")("Brugernavn") = session("Brugernavn")
        Response.Cookies("TblBruger")("Kodeord") = Kodeord
        Response.Cookies("TblBruger").expires = Date+365
        Set rsBruger = Server.CreateObject("ADODB.Recordset")
        strSQL = "UPDATE TblBruger SET Sidstebesøg='" & Now() & "' WHERE BrugerID=" & Session("BrugerID")
        rsBruger.Open strSQL, strCon
    Else   
        Response.Cookies("TblBruger").expires = Date-1000
End If
Response.Redirect "default.asp"
Else
Response.Redirect "bad_login.asp"
End If
rsBruger.Close
Set rsBruger = Nothing
End If
%>

Og tilsidst common.asp

Dim adoCon
Dim strCon
Dim strDbPathAndName

strDatabaseType = "Access"

Set adoCon = Server.CreateObject("ADODB.Connection")
strDbPathAndName = "../db/links.mdb"
strCon = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(strDbPathAndName)


Mine felter i databasen kan du se på tjek.asp

Hvis du vil, kan du sende dine filer til mig på flemminghave@mailme.dk og så kan jeg kigge på dem..
Det skal jo selvfølgelig være alle dem der skal bruges:)

Nu har jeg sendt det gider du lige skrive når du har fået det.

Jeg har fået det nu.. Jeg var lige oppe hos en nabo:)

okay... Men nu må vi se om du kan se hvad der er galt for jeg kan ikke :)

er det din egen server eller er det et webhotel ?

det er min egen server jeg bruger.. hvad er forskellen???

prøv lige at genstarte den, og så prøv dit script igen...

Det hjælper tit på min computer!

nope den kommer stadig med denne fejl


Fejltype:
Der opstod en Microsoft JScript-kompileringsfejl (0x800A03ED)
Tegnet '(' var ventet
/login.asp, line 4, column 3
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
--^

gør den da ikke det hjemme ved dig


Har du msn???

Den database du sendte til mig, indeholdt ikke alle de tabeller du skal have defineret..
Ellers er jeg nået til http://www.web-town.dk/test/login.asp
Har prøvet at ændre lidt på det, men jeg kan ikke se om det virker før jeg har den originale(kopi) af databasen..

Du kan logge ind med administrator/admin

Det der skulle ændres var:

<% @language=javascript %>

Til:

<%@ LANGUAGE = "VBScript" %>

Hvad mener du med den originale (kopi) af databasen???

Og vilke felter skal jeg mere have ind i min database???

Jubiiiiii... Nu virker det næsten når jeg lige får de sidste felter lagt i så tror jeg det virker... Men hvad er det for nogle felter jeg mangler???

I den database du sendte var der en tabel der hed login, der var ikke noget der hed licensnr.. og tabellen skulle hedde tblmedlemmer..

sorry den er jeg ikke helt med på...

Jeg har ikke fået en kopi af din egen database, eller siderne.. De stemmer ihvertfald ikke overens..
Eksempel
<%
if Session("login") <> "loged_in" then
    Response.Redirect("login.asp")
else
%>
      <%
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/db/bowling.mdb")
%>
      <% 
SQL = "SELECT * FROM qryoversigt WHERE licensnr = " & Session("licensnr")
Set rs = Conn.Execute(SQL)
%>
      <%
Response.write "Navn : " & rs("navn")
%>
      <br>
      <% 
SQL = "SELECT * FROM tblmedlemmer WHERE licensnr = " & Session("licensnr")
Set rs = Conn.Execute(SQL)
%>
      <%
Response.write "adresse : " & rs("medlem-adresse")
%>
      <p><a href="retdata.asp">Ret min profil</a></p>
      <%
end if
%>
Databasen hedder ikke bowling men login
Tabellen qryoversigt findes ikke ej heller tblmedlemmer

nej okay sorry, det er min fejl... Her :


<% @language=javascript %>


<%
if Session("login") <> "loged_in" then
    Response.Redirect("login.asp")
else
%>

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("login.mdb")

if Request.ServerVariables("REQUEST_METHOD") = "POST" then
 
  password = Replace(Request.Form("password"),"'","''")
  navn = Replace(Request.Form("navn"),"'","''")
  adresse = Replace(Request.Form("adresse"),"'","''")
 
  SQL = "SELECT brugernavn FROM tblmedlemmer WHERE licensnr <> " & Session("licensnr") & " AND brugernavn = '" & navn & "'"
  Set rs = Conn.Execute(SQL)
  if rs.EOF then
 
    SQL = "UPDATE tblmedlemmer SET brugernavn = '" & navn & "', adgangskode = '" & password & "', [medlem-adresse] = '" & adresse & "' WHERE licensnr = " & Session("licensnr")
   
    Conn.Execute(SQL)
    indsat = true
    Conn.Close
    Set Conn = nothing
  else
    indsat = false
    strError = "Brugernavnet findes"
  end if

  if indsat = true then
    Response.Redirect(Request.ServerVariables("SCRIPT_NAME"))
  end if
end if
   
SQL = "SELECT * FROM tblmedlemmer WHERE licensnr = " & Session("licensnr")
Set rs = Conn.Execute(SQL)
%>
<center>
        <table>
          <form action="" method="post">
            <tr>
              <td>Brugernavn:</td>
              <td><input type="text" name="navn" value="<%=rs("brugernavn")%>"></td>
            </tr>
            <tr>
              <td>Password:</td>
              <td><input type="text" name="password" value="<%=rs("adgangskode")%>"></td>
            </tr>
            <tr>
              <td>adresse</td>
              <td><input type="text" name="adresse" value="<%=rs("medlem-adresse")%>"></td>
            </tr>
            <tr>
              <td colspan=2><input type="submit" name="Gem" value="Gem"></td>
            </tr>
          </form>
        </table>
        <% if strError <> "" then Response.write strError %><br>
        <p><a href="side.asp">Tilbage til profil</a></p></center>

<%
rs.Close
Set rs = Nothing
Conn.Close
Set Conn = Nothing
end if
%>

Men vilke felter skal der være inde i min database

Der er Navn, og password Skal der være flere.

Hej igen, fik besøg så jeg havde ikke tid til at svare..:)
Du skal bare bruge et login script, med hvilke som helst oplysninger, eller skal der specielle informationer med??

Det jeg gerne vil er at der er en login side...

1. Hvis brugernavn og password er rigtig så skal den gå om på den side som er min (index)

2. hvis brugernavn og password er forkert så skal den komme med en medelse om at det ikke er rigtigt

3. så vil jeg gerne have en knap hvor man kan rigistrer sig og det skal så ligge sig ind i databasen hvor login.asp henter fra og tjekker om det er rigtigt.

Okay..
Jeg har desværre ikke så meget tid til at hjælpe idag :(
Jeg har dog lidt mere tid i morgen..
Imellemtiden har jeg selv et brugersystem på min side, du kan prøve at registrer dig osv og så sende en mail til mig om det er sådan noget i den stil du vil have..:)

Ups glemte url'en..
Det er http://www.web-town.dk/

Jep det er sårdan noget jeg gerne ville have.

Er der en muglig hed for at du kan sende det til mig du skulle gerne have min mail hvis det er, håber du gider :)

Jeg kan ikke sende det jeg har da det er en del af min side, men jeg kan lave noget lignede..:)
Skal brugerne registreres med brugernavn og kodeord..??

sorry jeg er lidt langsom til at svare men jeg går på efterskole så det er ikke så nemt at komme til en comp.

Men ja man skal rigistrer med brugernavn, password, msn, navn osv.

ligesom din hvis du gider... og hvis det ikke er for bølvet må du godt skrive inde i scriptet hvad den gør så jeg kan få lidt forståelse for hvad der sker hvornår.

Det er skam helt i orden.. Har gået rundt med mega hovedpine de sidste par dage, så jeg har faktisk ikke været ved pc'en..
Jeg laver lige et script til dig, varer måske en dag eller 2, jeg er ikke så meget hjemme som jeg ville.
Men det bliver med access 2000. Oprettelse og redigering af profil.. Men send din mail til mig på flemminghave@mailme.dk så skriver jeg når det er færdigt..

Daw ville bare lige høre hvordan det går med login scriptet

Håber ikke det er for bølvet for dig.

det går..:)
Du kan følge med på www.web-town.dk/choco/
Du logger ind med Administrator/admin..
Har du en css fil eller noget javascript du bruger til at definere farver med??

det ser fame godt ud... Det er du squ god til.

ville lige høre om du havede msn.

ville lige høre om en ting mere

Er det mugligt at lave en gif fil inde i adobe photo shop og så lave et script så det bliver til en tæller eller er det helt umuligt.

Jo jeg har msn.. Men send en mail hvis du vil have min adresse..
Gif til besøgstæller?? Det kan sagtens lade sig gøre..

har du fået dette til at virke, eller skal jeg se på det igen ...?

lukketid...??