jeg havde lidt problemer med min IIS i XP.. så det tog noget længere tid..
her er scriptet så..
*** login.asp (siden hvor der logges ind fra)
<%
' tving programmøren til at definere variablerne for at undgå stavefejl
option explicit
' da vi arbejder med cookies, som behandles FØR siden sendes til browseren/klienten,
' skal HELE siden laves FØR den sendes:
response.buffer = true
%>
<a href="login.asp">login</a>
<a href="test1.asp">test1</a>
<a href="logout.asp">logout</a>
<br><br>
<!--
Vi har så vores form her..
Jeg bruger feltet "mode" til at vælge om beskeden "logget ind" skal vises
beskeden skal jo ikke vises når man går ind på siden.. kun når man logger
ind.
Det er sikkert en underlig måde at gøre det på, men det virker.
//-->
<form name="frmLogin" action="login.asp" method="post"
onSubmit="document.forms['frmLogin'].mode.value='user_is_logging_in';">
<input type="text" name="username" value="hello">
<input type="password" name="password">
<input type="hidden" name="mode" value="">
<input type="submit" value="Login..">
</form>
<%
' har brugeren forsøgt på at logge på?
if request.form("mode") <> "" then
' definer af variabler der skal bruges:
dim Conn, DSN, strSQL, rs
dim strUser, strPass
' opsætning af variabler:
strUser = request.form("username")
strPass = request.form("password")
strSQL = "Select * from tblLogin"
' opret fobindel til database
' database filen her hedder "db1.mdb"
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db1.mdb")
Conn.Open DSN
' udfør vores SQL
Set rs = Conn.Execute(strSQL)
' gå til første record/indlæg i databasen
rs.movefirst
' start en loop
do
' hvis username findes:
if strUser = rs("username") then
' kontroller om passwordet passer til det fundne username
if strPass = rs("password") then
' username og password er korrekt.
' vis besked til brugeren om at han/hun er logget in
response.write "Username, " & strUser & ", logged in."
' sæt cookie
Response.Cookies("logged_in")= "true"
' luk forbindelsen
Conn.close
' frigør Conn
Set Conn = nothing
' afslut output til html
response.end
else
' fejlmeddelse på både username og/eller password.. for at narre
fjenden :)
response.write "Forket brugernavn eller password"
' afslut output til html
response.end
end if
else
' username var ikke den samme som den valgte i database.
' gå videre til den næste for at sammenligne
rs.movenext
end if
' loopen skal fortsætte så længe vi ikke har nået sidste record/indlæg
loop while not rs.eof
' luk fobindelsen
Conn.Close
' frigør Conn
Set Conn = Nothing
end if
%>
*** test1.asp (test side for at se om det virker)
<%
' tving programmøren til at definere variablerne for at undgå stavefejl
option explicit
' definer variable
dim strStatus
' sæt variablens værdi til cookiens værdi
strStatus = Request.Cookies("logged_in")
' hvis cookiens værdi IKKE er true (adgang forbudt)
if strStatus <> "true" then
' vis besked om at man skal være logget ind for at se siden, og
' henvis til login siden.
response.write "Du skal være logget ind for at se denne side!"
response.write "<br>Gå til <a href='login.asp'>login</a> siden."
' afslut output til html
response.end
end if
%>
dette er en tekst man skal være logget ind for at se.
<br><br>
<a href="logout.asp">Log ud</a>
*** logout.asp (logger brugeren ud, sletter cookie)
<%
' reset værdien af "logged_in"
' dette sletter muligheden for at logge ind
Response.Cookies("logged_in") = ""
%>
du er nu logget ud..
<br><br>
<a href="login.asp">login siden</a>
*** db1.mdb (database fil) layout:
tabel: "tblLogin"
felt : "username", type: tekst
felt : "password", type: tekst
Ny bruger
Nybegynder
Opret
Preview
