Søg
Avatar billede jespera Nybegynder
27. februar 2002 - 18:40 Der er 27 kommentarer og
1 løsning

Gem oplysning når bruger er logget ind

Hi Alle......

Hvordan kan man gemme oplysninger om en bruger der logget ind ligesom her på eksperten. ????.
Når bruger er logget rigtigt ind skal det gemmes i db som registrer hvem der har logget ind og hvornår....

Ps. Et lille tillægsspg. hvordan sætter man felterne dato & klokken til read only

Håber nogle der kan hjælpe....

Mit Login Script ser foreløbig sådan ud

<!-- #include file = "includes/setup.asp" -->
<%=stylesheet%>
<%
SET RS = Server.CreateObject("ADODB.Connection")
rs.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/db.mdb")

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

  strUsername = Trim(Replace(request.form("username"),"'","''" ))
  strPassword = Trim(Replace(request.form("password"),"'","''" ))

  TempSQL = "SELECT * FROM users WHERE username = '"& strUsername & "' AND password = '" & strPassword & "'"

  Set Temp = RS.Execute(TempSQL)

  if Temp.EOF then
    Session("login") = ""
    error = "FORKERT BRUGERNAVN ELLER ADGANGSKODE"

  else
    Session("login") = true
      response.redirect"administration.asp"
  end if
end if
%><title><%=firmanavn%></title>
<br><form method="POST" action="login.asp">
  <p align="center">&nbsp;</p>
  <p align="center">&nbsp;</p>
  <p align="center">&nbsp;</p>
  <p align="center">&nbsp;</p>
  <p align="center">
    <input type="hidden" name="mode" VALUE="Check">
    <b>LOG IN TIL ADMINISTRATION</b> <br>
    <br>
  </p>
  <table width="29%" border="0" align="center">
    <tr>
      <td width="45%"><b>BRUGERNAVN </b></td>
      <td width="55%">
        <input class='text' type='text' name='username' size='25' style='font-family: Verdana; font-size: 8 pt'>
      </td>
    </tr>
    <tr>
      <td width="45%"><b>PASSWORD </b></td>
      <td width="55%"><font class="header">
        <input class="text" type="password" name="password" size="25" style="font-family: Verdana; font-size: 8 pt">
        </font></td>
    </tr>
    <tr>
      <td width="45%">&nbsp;</td>
      <td width="55%">&nbsp;</td>
    </tr>
    <tr>
      <td width="45%"><b>DATO</b></td>
      <td width="55%"><font class="header">
        <input class="text" type="text" name="dateoflogin" size="25" style="font-family: Verdana; font-size: 8 pt" value="<%response.write date()%>">
        </font></td>
    </tr>
    <tr>
      <td width="45%"><b>KLOKKEN</b></td>
      <td width="55%"><font class="header">
        <input class="text" type="text" name="timeoflogin" size="25" style="font-family: Verdana; font-size: 8 pt" value="<%response.write time()%>">
        </font></td>
    </tr>
    <tr>
      <td colspan="2">
        <center>
          <input class="text" type="submit" value="Login" name="submit" style="font-family: Verdana; font-size: 8 pt">
        </CENTER>
      </td>
    </tr>
  </table>
  <p align="center"><br>
  </p>
  <p>&nbsp; </p>
  <table width="100%" border="0">
    <tr>
      <td align="center"><%=error%></td>
    </tr>
  </table>
</form>

Avatar billede rune_c Nybegynder
27. februar 2002 - 18:58 #1
1.

i:
Session("login") = true
  rs.execute("Insert into [din tabel] (brugernavn, tid) values ('" & strUsername & "', '" & Now() & "')")
  response.redirect"administration.asp"
end if

Er det det du mener??

2.

Hvorfor vil du sætte nogle felter til read-only? Det er jo dig der 100% bestemmer hvad der skal ske i de forskellige felter...
Avatar billede jespera Nybegynder
27. februar 2002 - 19:42 #2
>> Rune C


1) Hvad er de galt her ???????
felterne timelogin, datelogin skal bare opdateres så man ved hvornår brugeren har logget ind men den melder at siden ikke findes

Session("login") = true
   
SQLstmt = "UPDATE DISTINCTROW users SET DateLogin = '" & request.form("dateoflogin") & "', TimeLogin = '" & request.form("timeoflogin") & "' WHERE id = " & Request(temp("ID"))

Conn.Execute (SQLstmt)
   
response.redirect(temp("site"))

Set SQLstmt = nothing 


2) Fleterne klokken og dato må ikke kunne ændres af brugeren derfor må der ikke kunne ændres i dem



3) poster lige coden for den tabel hvori pass. login osv indtastes
  <table width="29%" border="0" align="center">
    <tr>
      <td width="45%"><b>BRUGERNAVN </b></td>
      <td width="55%">
        <input class='text' type='text' name='username' size='25' style='font-family: Verdana; font-size: 8 pt'>
      </td>
    </tr>
    <tr>
      <td width="45%"><b>PASSWORD </b></td>
      <td width="55%"><font class="header">
        <input class="text" type="password" name="password" size="25" style="font-family: Verdana; font-size: 8 pt">
        </font></td>
    </tr>
    <tr>
      <td width="45%">&nbsp;</td>
      <td width="55%">&nbsp;</td>
    </tr>
    <tr>
      <td width="45%"><b>DATO</b></td>
      <td width="55%"><font class="header">
        <input class="text" type="text" name="dateoflogin" size="25" style="font-family: Verdana; font-size: 8 pt" value="<%response.write date()%>">
        </font></td>
    </tr>
    <tr>
      <td width="45%"><b>KLOKKEN</b></td>
      <td width="55%"><font class="header">
        <input class="text" type="text" name="timeoflogin" size="25" style="font-family: Verdana; font-size: 8 pt" value="<%response.write time()%>">
        </font></td>
    </tr>
    <tr>
      <td colspan="2">
        <center>
          <input class="text" type="submit" value="Login" name="submit" style="font-family: Verdana; font-size: 8 pt">
        </CENTER>
      </td>
    </tr>
  </table>
Avatar billede rune_c Nybegynder
27. februar 2002 - 21:55 #3
1:

Session("login") = true
   
SQLstmt = "UPDATE DISTINCTROW users SET DateLogin = #" & request.form("dateoflogin") & "#, TimeLogin = #" & request.form("timeoflogin") & "# WHERE id = " & temp("ID")

Conn.Execute (SQLstmt)

Set SQLstmt = nothing
   
response.redirect(temp("site"))

Prøv dette

2:

  <table width="29%" border="0" align="center">
    <tr>
      <td width="45%"><b>BRUGERNAVN </b></td>
      <td width="55%">
        <input class='text' type='text' name='username' size='25' style='font-family: Verdana; font-size: 8 pt'>
      </td>
    </tr>
    <tr>
      <td width="45%"><b>PASSWORD </b></td>
      <td width="55%"><font class="header">
        <input class="text" type="password" name="password" size="25" style="font-family: Verdana; font-size: 8 pt">
        </font></td>
    </tr>
    <tr>
      <td width="45%">&nbsp;</td>
      <td width="55%">&nbsp;</td>
    </tr>
    <tr>
      <td width="45%"><b>DATO</b></td>
      <td width="55%"><font class="header">
        <div class="text" style="font-family: Verdana; font-size: 8 pt"><%
dim d
d = date()
response.write d%></div>
        <input type="hidden" name="dateoflogin" value="<%=d%>">
        </font></td>
    </tr>
    <tr>
      <td width="45%"><b>KLOKKEN</b></td>
      <td width="55%"><font class="header">
        <div class="text" style="font-family: Verdana; font-size: 8 pt"><%
dim t
t = time()
response.write t%></div>
        <input type="hidden" name="timeoflogin" value="<%=t%>">
        </font></td>
    </tr>
    <tr>
      <td colspan="2">
        <center>
          <input class="text" type="submit" value="Login" name="submit" style="font-family: Verdana; font-size: 8 pt">
        </CENTER>
      </td>
    </tr>
  </table>
Avatar billede jespera Nybegynder
27. februar 2002 - 22:09 #4
>> Rune C

Hej igen punkt 1 virker stadigvæk ikke. Jeg tror det er det SQLstmt (update ) der laver fnider, for hvis jeg fjener de 2 sætninger der updater virker det ok.....
Håber du kan se hvad der er galt ??????.

Med hensyn til punkt 2 er det bare ok
Avatar billede rune_c Nybegynder
27. februar 2002 - 22:22 #5
hmm..så prøv dette

SQLstmt = "UPDATE users SET DateLogin = #" & request.form("dateoflogin") & "#, TimeLogin = #" & request.form("timeoflogin") & "# WHERE id = " & temp("ID")

Conn.Execute (SQLstmt)

sqlstmt.close()
Set SQLstmt = nothing
   
response.redirect(" & temp("site") & ")
Avatar billede jespera Nybegynder
27. februar 2002 - 22:37 #6
det virker heller ikke det må være SQLstmt. altså de linier mellem :
Session("login") = true    &        response.redirect(temp("site"))

Hvis jeg fjerner de linier melle ovenstående så virker det ok.....Hvad pokker kan der være galt der er en ganske almindelig update...

her er coden igen:


Session("login") = true
   
    SQLstmt = "UPDATE users SET DateLogin = #" & request.form("dateoflogin") & "#, TimeLogin = #" & request.form("timeoflogin") & "# WHERE id = " & temp("ID")
    RS.Execute(SQLstmt)
   
    SQLstmt.close()
    Set SQLstmt = nothing
Avatar billede rune_c Nybegynder
27. februar 2002 - 22:40 #7
er det egentligt dato felter datelogin og timelogin
Avatar billede jespera Nybegynder
27. februar 2002 - 22:43 #8
jeg poster lige hele code igen:

<!-- #include file = "includes/setup.asp" -->
<%=stylesheet%>

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

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

  strUsername = Trim(Replace(request.form("username"),"'","''" ))
  strPassword = Trim(Replace(request.form("password"),"'","''" ))

  TempSQL = "SELECT * FROM users WHERE username = '"& strUsername & "' AND password = '" & strPassword & "'"

  Set Temp = RS.Execute(TempSQL)

  if Temp.EOF then
    Session("login") = ""
    error = "FORKERT BRUGERNAVN ELLER ADGANGSKODE"

  else
    Session("login") = true
   
    SQLstmt = "UPDATE users SET DateLogin = #" & request.form("dateoflogin") & "#, TimeLogin = #" & request.form("timeoflogin") & "# WHERE id = " & temp("ID")
    RS.Execute(SQLstmt)
   
    SQLstmt.close()
    Set SQLstmt = nothing
   
    response.redirect(temp("site"))

   
  end if
end if
%><title><%=firmanavn%></title>
<br><form method="POST" action="login.asp">
  <p align="center">&nbsp;</p>
  <p align="center">&nbsp;</p>
  <p align="center">&nbsp;</p>
  <p align="center">&nbsp;</p>
  <p align="center">
    <input type="hidden" name="mode" VALUE="Check">
    <b>LOG IN TIL ADMINISTRATION</b> <br>
    <br>
  </p>
  <table width="29%" border="0" align="center">
    <tr>
      <td width="45%"><b>BRUGERNAVN </b></td>
      <td width="55%">
        <input class='text' type='text' name='username' size='25' style='font-family: Verdana; font-size: 8 pt'>
      </td>
    </tr>
    <tr>
      <td width="45%"><b>PASSWORD </b></td>
      <td width="55%"><font class="header">
        <input class="text" type="password" name="password" size="25" style="font-family: Verdana; font-size: 8 pt">
        </font></td>
    </tr>
    <tr>
      <td width="45%">&nbsp;</td>
      <td width="55%">&nbsp;</td>
    </tr>
    <tr>
      <td width="45%"><b>DATO</b></td>
      <td width="55%"><font class="header">
        <div class="text" style="font-family: Verdana; font-size: 8 pt"><%
dim d
d = date()
response.write d%></div>
        <input type="hidden" name="dateoflogin" value="<%=d%>">
        </font></td>
    </tr>
    <tr>
      <td width="45%"><b>KLOKKEN</b></td>
      <td width="55%"><font class="header">
        <div class="text" style="font-family: Verdana; font-size: 8 pt"><%
dim t
t = time()
response.write t%></div>
        <input type="hidden" name="timeoflogin" value="<%=t%>">
        </font></td>
    </tr>
    <tr>
      <td colspan="2">
        <center>
          <input class="text" type="submit" value="Login" name="submit" style="font-family: Verdana; font-size: 8 pt">
        </CENTER>
      </td>
    </tr>
  </table> <p align="center"><br>
  </p>
  <p>&nbsp; </p>
  <table width="100%" border="0">
    <tr>
      <td align="center"><%=error%></td>
    </tr>
  </table>
</form>
Avatar billede rune_c Nybegynder
27. februar 2002 - 22:47 #9
er kolonerne datelogin og timelogin datofelter i din database eller er det bare tekst felter
Avatar billede jespera Nybegynder
27. februar 2002 - 22:47 #10
det er bare tekst
Avatar billede rune_c Nybegynder
27. februar 2002 - 22:55 #11
okay så prøv lige med:

SQLstmt = "UPDATE users SET DateLogin = '" & Cstr(request.form("dateoflogin")) & "', TimeLogin = '" & cstr(request.form("timeoflogin")) & "' WHERE id = " & temp("ID")

RS.Execute(SQLstmt)
Avatar billede jespera Nybegynder
27. februar 2002 - 23:01 #12
Neejjjjjjjjjjjj Was is das problem......... :-) det er sku da for mærkeligt det her.........det virkede heller ikke...........
Avatar billede rune_c Nybegynder
27. februar 2002 - 23:04 #13
hmm..., hvilken fejl får du???

"Operation must use an updateable query."???
Avatar billede jespera Nybegynder
27. februar 2002 - 23:08 #14
Siden kan ikke vises..........

prøv følgende:

bla
bla


HTTP 500 - Intern serverfejl
Internet Explorer
Avatar billede rune_c Nybegynder
27. februar 2002 - 23:12 #15
hvad sker der hvis du kommenterer linien med response.redirect
Avatar billede jespera Nybegynder
27. februar 2002 - 23:13 #16
skal den slettes
Avatar billede rune_c Nybegynder
27. februar 2002 - 23:19 #17
sæt en ' foran linien så bliver linien ikke udført
Avatar billede jespera Nybegynder
27. februar 2002 - 23:20 #18
det hjalp ikke den sagde samme fejl igen
Avatar billede rune_c Nybegynder
27. februar 2002 - 23:27 #19
SQLstmt = "UPDATE users SET DateLogin = 1 & "', TimeLogin = 2 WHERE id = " & temp("ID")

hvis det ikke virker er det altså pænt skummelt
Avatar billede rune_c Nybegynder
27. februar 2002 - 23:29 #20
rettelse

SQLstmt = "UPDATE users SET DateLogin = 1, TimeLogin = 2 WHERE id = " & temp("ID")
Avatar billede jespera Nybegynder
27. februar 2002 - 23:29 #21
er der ikke noget galt efter 1& '' er resten af teksten kommenteret ud
Avatar billede jespera Nybegynder
27. februar 2002 - 23:30 #22
ok
Avatar billede jespera Nybegynder
27. februar 2002 - 23:34 #23
nej nej nej og nej ......... det virkede heller ikke med denne sætning

SQLstmt = "UPDATE users SET DateLogin = 1, TimeLogin = 2 WHERE id = 14"
Avatar billede jespera Nybegynder
27. februar 2002 - 23:44 #24
NÅÅÅÅÅÅ JEG DRIBLER I SENG.........

HÅBER VI KAN FINDE EN LØSNING I MORGEN.....

TAK FOR HJÆLPEN SÅ LANGT
Avatar billede jespera Nybegynder
01. marts 2002 - 12:07 #25
rune c >> havde du evt et svar på det
Avatar billede rune_c Nybegynder
01. marts 2002 - 15:08 #26
hvilket system bruger du nt/2000/xp??
Avatar billede rune_c Nybegynder
01. marts 2002 - 15:09 #27
har du sørget for at IUSR_xxxxxxxx har rettigheder til at skrive til din db
Avatar billede jespera Nybegynder
11. marts 2002 - 15:49 #28
hej rune tak for hjælpen jeg søgte hjælp hos en kammerat og fandt fejlen men du får da lige lidt point alligevel.......

100 Point...Here u goo
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
ASP classic kopiere database fil på server Af bsn i ASP 7 31/10/202610:20 I går 20:28
Persits.Upload Af bsn i ASP 9 17/09/202611:37 21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
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 01:00 Problemer med software til Power Walker UPS - Nødstrømsbatteri Af ErikHg i Andet software
I går 20:16 Snapchat Af made18 i Apps til iOS
31/1013:01 Måned og år på graf Af mort1 i Excel
31/1012:28 2 diske Af dcedata1977 i Andet hardware
31/1012:06 Ekstra til TV 2 : "Tilkøb" + "TV2 Ude" Af Ikke-ekspert i Fjernsyn & projektorer
White papers
Flere white papers »