loginsystem til hjemmeside!

Går ud fra det er noget i den retning du efterlyser. Denne her koster dog ca. kr.400,-, men hvis det er vigtig for dig, er det vel ikke galt.:-)
http://www.xigla.com/absolutecp/index.htm

her ligger et system som virker ok:
http://activedeveloper.dk/download/default.asp?mode=showdownload&id=312

iøvrigt flere at vælge imellem her :
http://activedeveloper.dk/download/default.asp?mode=kategori&id=5&page=14

Du kan scripte det selv... ved at lægge brugernavne og passwords i en database
og scripte login-formlar som opretter en session. På hver enkelt side checkes der om session'en findes... ellers føres brugeren tilbage til logon-fomularen.

-> jeg har ikke arbejdet med sessions, så hvis du har et eksempel der kan tilpasse min opgave ville det hjælpe meget.
felterne i databasen er:
tabel 1: UserID,UserName,Password,UrlID
tabel 2: UrlID,Url

Men du er vandt til ASP?

Fremgangsmåde:
a)
Formen har action="log.asp"
log.asp indeholder:
strSQL= "SELECT * FROM liste WHERE (UserName = '" & username & "' AND Password='" & password & "');"
Set rs = connect.Execute(strSQL)

if not rs.EOF then
  session("verified") = "ind"
  session("brugerID") = rs("UserID")
  session("brugerNavn") = rs("UserName")
  Session.Timeout = 60
  connect.Close
End if
Response.redirect "main.asp"

b)
på alle sider ligger dette i toppen:
<%
If session("verified")<> "ind" then
        response.redirect("formular.asp")
end if
%>
På den måde bliver brugeren smidt til login-formularen hvis ikke han/hun er logget ind.

Jeg har noget kode jeg selv har skrevet til min side, men kommer an på hvor erfaren du er til ASP... kan du selv rette det til og tilføje ekstra ting tror du?

-> blaatand
Jeg kan godt læse kode og rette til, så jeg vil gerne kigge på dit forslag, hvis du kan maile på xess66@hotmail.com

Sider på skolen pt. og mailserveren til udgående post er blevet lukket af sys adminen. Men du får koden her:


<%
If Request.Querystring("login") = "tjeklogin" Then

if request.form("F_USERNAME")="" or request.form("F_PASSWORD")="" then
Response.Redirect("login.asp?login=nologin")
end if
strM_USERNAME = replace(request.form("F_USERNAME"),"'","''")
strM_PASSWORD = SHA256(replace(request.form("F_PASSWORD"),"'","''"))
%>
<!--#include file="dbconn.asp"-->
<%
strSQL = "SELECT * FROM FORUM_MEMBERS WHERE M_NAME ='"&strM_USERNAME&"' and M_PASSWORD = '"&strM_PASSWORD&"'"
Set rs = Conn.Execute(strSQL)

If rs.EOF Then
Response.Redirect("login.asp?login=nologin")

Else
strM_ID= rs("MEMBER_ID")
strM_USERLEVEL = rs("M_LEVEL")

' Sætter sessions ID, Loginname og Password til det som bliver indtastet.
Session("S_ADMIN") = strM_USERLEVEL
Session("S_LOGINID") = strM_ID
Session("S_LOGINNAME") = Request.Form("F_USERNAME")
Session("S_PASSWORD") = Request.Form("F_PASSWORD")
Session.Timeout = 60

' Re-directer til default.asp
Response.Redirect("default.asp?login=login")

End if
%>
<!--#include file="dbclose.asp"-->
<%
End if
%>



Her kan du så tjekke for om brugeren er logget ind i sessionen med denne kode:

<%
    if session("S_ADMIN") <> "3" or session("S_ADMIN") = "" then

        response.redirect("default.asp?login=lost")

            else       
       
    end if
%>

eller hvis der skal være til bruger + admin level:

<%
    if session("S_ADMIN") < "1" or session("S_ADMIN") = "" then

        response.redirect("default.asp?login=lost")

            else       
       
    end if
%>

hej Blaatand
Ville du have noget imod at sende det samlede script ?? Jeg synes at der er en del ting jeg kan benytte, og jeg ville gerne se det i helhed.
Det er ok hvis du ikke ønsker at give det. I al fald kan du maile på xess66@hotmail.com
Takker for nu !

Det er sådan set det samlede script, af naturlige årsager kan jeg ikke sende hele filer 8-)

jeg kan sende dig krypteringsfilen, og prøve og cutte login ud til dig, selvom du ikke behøver at have krypteret password vil jeg tro?

meget gerne :-)

Hej Blaatand
Kan du ikke sende et svar her på spørgsmålet, så får du nogle points.
Jeg har nogle andre sp. må jeg maile til dig ??

*Svar*

Du må gerne maile til mig, men er ikke sikkert jeg kan svare på dem jo ;)

Men du skyder bare løs

Tak for points

er du på messenger ??

-> blaatand

silenthilldk@hotmail.com