13 svar · 254 visningar · startad av rollo
Hej!
Jag håller på att bygga ett intranät och behöver ett inloggningsscript. Jag har redan ett, det från MikroDatorn, men jag tycker att det inte fungerar tillräckligt bra för att man skall kunna köra det fullt ut!
Jag har sökt bland inläggen och inte hittat något som jag som jag tyckte passa mina ändamål.
Det skall vara för ca 150 användare som skall logga in och sedan kunna styra utseendet på sin första bild.
(behöver ej finnas i scriptet!)
Jag håller på att gå igenom alla ASP-resurser jag kan hitta, men har hittils gått bet på det!
Så, jag söker alltså ett inloggningsscript som är stabilt och bra och dessutom är lätt att applicera på befintlig lösning.
tackar!
rollo
Vet inte ifall detta är intressant.
Jag har ett enkelt login script som styrs mot en databas. Beroende på vad man loggar in med så styrs man till en viss sida.
Sidan dit man ska komma och username/pass anger man i Accees.
Man kan köra hur många users och sidor som helst.
Du kan ju bygga om det så man styrs till ett ID nummer istället så du bara behöver köra en sida.
Svara om du är intresserad så ska ja posta koden.
Mvh
[Redigerat av Steveking den 31 aug 2001]
Hej!
Jag är tacksam för all hjälp och alla lösningsförslag!
Så jag blir "skedaglau", skitglad på skånska, om du vill posta den!
rollo
Okej.
confirm.asp
<%
'importing variables from loginpage
userlog = Request.Form("userlog")
passlog = Request.Form("passlog")
'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("dindatabas.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.asp")
Else
Session("inloggad") = 1
user = rs("fld_userid")
Response.redirect("http://www." & user & " ")
End If
%>
Databasen har en tabell som heter tbl_members
sen har jag 4 kollumner.
fld_username, fld_password, fld_name, fld_email
Du skriver destination url'n i
fld_username
sen lösenordet i fld_password kollumnen och usernamet fld_username (doh!)
Sen fld_email har ja bara så man har koll på personerna men den behövs inte.
Sen om du vill kolla så dom är inloggade kör du med en vanliga session.
högst upp på sidan
<%@ LANGUAGE="VBSCRIPT" %>
<%
If session("inloggad") = 1 Then
%>
Längst ner på sidan
<%
Else
response.Redirect("errorpass.asp")
End If
%>
[Redigerat av Steveking den 31 aug 2001]
Provade på skriptet men det funkar inte för mig. Jag kan ha rört något som jag inte skulle. :l
<%
name = Request.Form("namn")
pass = Request.Form("pass")
Set dbConn = Server.Createobject("ADODB.connection")
dbConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("medlem.mdb")
list = "SELECT * FROM medlem WHERE namn='" & namn & "' AND pass='" & pass & "' "
Set rs = dbConn.Execute(list)
If rs.EOF Then
Session("logged_status") = FALSE
Response.redirect("error.asp")
Else
Session("inloggad") = 1
Response.Redirect ("sida1.asp")
end if
%>
------------------
Forumledare, webForum
Låter väldigt skumt.
Jag testade för säkerthets skulle och det fungerade.. ja gjorde en login sida på detta vis
<HTML>
<HEAD>
<TITLE>Untitled Document</TITLE> <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
</HEAD>
<BODY BGCOLOR="#FFFFFF" TEXT="#000000">
<FORM NAME="form1" METHOD="post" ACTION="confirm.asp"><P><INPUT TYPE="text" NAME="userlog"></P><P><INPUT TYPE="PASSWORD" NAME="passlog"></P><P><INPUT TYPE="submit" NAME="Submit" VALUE="Submit"></P></FORM>
</BODY>
</HTML>
sen confirm ser ut såhär.
<%
'importing variables from loginpage
userlog = Request.Form("userlog")
passlog = Request.Form("passlog")
'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("db/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.asp")
Else
Session("inloggad") = 1
user = rs("fld_userid")
Response.redirect("http://www." & user & " ")
End If
%>
Vet inte ifall den krockar om du har samma namn på form som kollumnen.
För du har ju döpt om passformen till pass och pass kollumnen till pass
[Redigerat av Steveking den 31 aug 2001]
Få testa och göre exakt som du har gjort, men det får vänta. Dags att bege sig hem. :)
Fridens!
------------------
Forumledare, webForum
Härligt