Jag gjorde såhär.
Confirm.asp
<% Session("username") = Request.Form("user")
Session("password") = Request.Form("pass")
If Session("username") = "capoon" AND Session("password") = "cap" Then
Response.Write "Välkommen<br>"
Response.Write "Du är nu inloggad!<br>"
Else
Response.Write "Du måste ha ett giltigt användarnamn och lösenord.<br>"
Response.Write "Var god försök igen!<br>"
Response.Write "<a href=login.asp>Försök igen</a>."
End If %>
Men nu andvänds bara ett username och en sida man kan komma till. Kan man göra så att den öppnar databsen som jag hade innan. Såhär såg den då ut. Men detta är utan sessions!
'Skapa ett server objekt för att koppla mot en Databas
Set dbConn = Server.Createobject("ADODB.connection")
'Öppna databasen
dbConn.Open "DRIVER={Microsoft Access Driver (\*.mdb)}; DBQ=" & Server.Mappath("db34345.mdb")
' Extracting the hits from the database
list = "SELECT \* FROM tbl_members WHERE fld_username='" & userlog & "' AND fld_password='" & passlog & "' "
Set rs = dbConn.Execute(list)
' setting login true or false status
If rs.EOF Then
Session("logged_status") = FALSE
Response.redirect("errorpass.html")
Else
user = rs("fld_userid")
Response.redirect("http://www." & user & " ")
End If
*Suckar djupt*
Om du hållde dig till EN tråd med samma problem så skulle det vara lättare både för dig oss andra att följa med i problematiken.
Vilken tråd i ordningen är detta?
Läs övriga trådar det finns lite tips och förklaringar i dem.
Om du sedan pusslar ihop dessa lite så finner du nog ett svar.
*Drar vidare*
------------------ Windows 9x/Me=32 bit extensions and a graphical shell for a 16 bit patch to an 8 bit operating system originally coded for a 4 bit microprocessor, written by a 2 bit company that can't stand 1 bit of competition.
Oj vad känsliga vi var här då.
Jag fick det inte att fungera med det du sa innan så jag testade såhär istället. Men är det så mycket besvär så får jag väl försöka lösa det själv.
Förutsätter att du har en sida där du fyller i ditt användar namn och ditt lösenord.
Sätta Session sida:
<%
Session("Logintries") = Session("Logintries") + 1
If Session("UserId")="" Then
set my_conn= Server.CreateObject("ADODB.Connection")
my_Conn.Open ConnString
SQLStmt = "SELECT M_Level FROM Members Where M_Name = '" & Request.Form("Login") & "' AND M_Password = '" & Request.Form("Password") & "'"
Set RS = my_Conn.Execute(SQLStmt)
IF RS.Eof Then
Response.Redirect "index.asp"
ELSE
Session("Logintries") = 0
Session("user") = RS("User_ID")
RS.Close
my_Conn.Close
Else
Response.Redirect "index.asp"
End If
End If
End If
%>
Kontroll sida som inkluderas på alla "säkra" sidor:
<%
If Session("UserId") = "" Then
Response.Redirect("index.asp")
End If
%>
Loggut sida:
<% Session.Abandon %>
Ändra så att databas värden och "form" namnen stämmer med din sida.
Sedan tror jag att du kommer att få det att fungera.
P.S du kan sedan använda dig av session("User") för att hämta fler värden eller så lägger du till fler sessioner för de värden du behöver.
/Lycka till
------------------ Windows 9x/Me=32 bit extensions and a graphical shell for a 16 bit patch to an 8 bit operating system originally coded for a 4 bit microprocessor, written by a 2 bit company that can't stand 1 bit of competition.
Tack så mycket men jag lyckades lösa det ändå. Jag andvände min gammla confirm.asp och la till
Session("inloggad") = 1
user = rs("fld_userid")
Response.redirect("http://www." & user & " ")
Åvanför där den redirectar. Det va den kodsnutten jag saknade. Eller snarare så visste jag inte vart jag skulle lägga den.
Kanske var lite oklar i det inlägget.
Men tack för all din hjälp :)
------------------
da main man :-)
294 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
