02. april 2004 - 18:21Der er
9 kommentarer og 1 løsning
Hjælp til konstruktion af login
Hejsa,
Jeg er igang med at lave et login som skal kunne gøre nogle forskellige ting:
Den skal, når man logger ind, skrive til databasen tidspunktet man er logget ind på, og automatisk opdatere databasen med hvor mange gange man er logget ind. Det kunne jeg forestille mig at man gjorde sådan at der stod et tal i databasen, som den hentede ud og plussede med 1.. hvorefter den opdaterer databasen igen.
Er der en der kan hjælpe med det?
min login.asp
<!-- #include file="conn.asp" --> <% If Request.Form("Action") = "Login" Then
Støv, fibre og metalliske partikler kan påvirke både uptime, levetid og driftssikkerhed. Derfor arbejder flere datacentre systematisk med contamination control.
Du kan tilføje noget inde i then delen af denne if-sætning:
If Not (rs.BOF Or rs.EOF) Then
intUID = rs("UserID") Else strERR = "Du blev ikke godkendt af systemet" End If
Sådan her, da det er her folk er logget ind. Antager du har en kolonne som hedder antalLogin:
If Not (rs.BOF Or rs.EOF) Then
intUID = rs("UserID") strSQL = "update Users set antalLogin = antalLogin + 1 where UserID = " & intUID connection.Execute(strSQL) Else strERR = "Du blev ikke godkendt af systemet" End If
Jeg får en fejlmeddelse.. Fejltype: Microsoft OLE DB Provider for ODBC Drivers (0x80004005) [Microsoft][ODBC Microsoft Access-driver] Feltet "Users.Username" kan ikke indeholde en Null-værdi, fordi egenskaben Required til dette felt er angivet til True. Indtast en værdi i dette felt. /workspace/login/login.asp, line 30
Fejltype: Microsoft OLE DB Provider for ODBC Drivers (0x80004005) [Microsoft][ODBC Microsoft Access-driver] Feltet "Users.Username" kan ikke indeholde en Null-værdi, fordi egenskaben Required til dette felt er angivet til True. Indtast en værdi i dette felt. /workspace/login/login.asp, line 30
Min kode:
<!-- #include file="conn.asp" --> <% If Request.Form("Action") = "Login" Then
intUID = rs("UserID") strSQL = "update Users set LoginTimes = LoginTimes + 1, LastLogin=Now() where UserID = " & intUID connection.Execute(strSQL) Else strERR = "Du blev ikke godkendt af systemet" End If
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.