Hermed hele koden, så jeg sikker du du modtager alt.
<body oncontextmenu="return false" ondragstart="return false" onselectstart="return false">
<script language="JavaScript">
<!--
/*
Slowly coming together status bar scroller
Written by BengalBoy (
www.angelfire.com/nt/bengaliboy/index.html)
Visit
http://javascriptkit.com for this script and more
*/
//set message:
msg = "Velkommen til";
timeID = 10;
stcnt = 16;
wmsg = new Array(33);
wmsg[0]=msg;
blnk = " ";
for (i=1; i<32; i++)
{
b = blnk.substring(0,i);
wmsg[i]="";
for (j=0; j<msg.length; j++) wmsg[i]=wmsg[i]+msg.charAt(j)+b;
}
function wiper()
{
if (stcnt > -1) str = wmsg[stcnt]; else str = wmsg[0];
if (stcnt-- < -40) stcnt=31;
status = str;
clearTimeout(timeID);
timeID = setTimeout("wiper()",100);
}
wiper()
// -->
</script>
<%
'********************************************************
'oprettet en funktion - det er nemmest
'kald den når du vil skrive i loggen
'1 paramter - navnet på brugeren
function writeLog(sname)
Dim Fobj
Set Fobj = Server.CreateObject("Scripting.FileSystemObject")
Dim Fstat
Set Fstat = Fobj.OpenTextFile("c:\hotel\hjemmeside.dk\www\_private\logon.log", 8)
Fstat.WriteLine(now & " Name:[" & sname & "]")
Fstat.Close
Set Fstat = Nothing
Set Fobj = Nothing
end function
'*********************************************************
'Her siger jeg: Hvis der er noget data i en post-form og login-formen ikke er tom, så skal den begynde at indlæse dette.
if Request.ServerVariables("REQUEST_METHOD") = "POST" AND Request.form("login") <> "" then
'Her åbner jeg database forbindelsen (husk at erstatte ******** med din adgangskode til databasen, under PWD=)
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("../_private/database.mdb") & "; PWD=xxx"
Conn.Open DSN
'Her trimmer og erstatter vores qourt med ' og '' sammentidig med at form-dataerne bliver lagt i variabler.
Dim strBrugernavn, strAdgangskode
strBrugernavn = Trim(Replace(request.form("feltBrugernavn"),"'","'" ))
strAdgangskode = Trim(Replace(request.form("feltAdgangskode"),"'","''" ))
'På de følgende to linjer (under kommentaren) bliver rs defineret, og vi spørger om der er et brugernavn og en
'adgangskode passer sammen med noget af vores data i databasen.
SQL = "SELECT * FROM [Brugere] where Brugernavn = '" & strBrugernavn & "' AND Adgangskode = '" & strAdgangskode & "'"
Set rs = Conn.Execute(SQL)
'Her spørger vi; Hvis brugernavn og adgangskoden ikke findes i databasen, så...
if rs.eof then
'Bliver brugeren sendt tilbage, med en lille besked i røven (LoginMessage)
response.redirect "../login/login.asp?LoginMessage=Hus nr. eller adgangskode var forkert"
'Her siger vi så; Ellers hvis ikke databasen er tom for det brugernavn og den adgangskode, så..
elseif Not (rs.BOF Or rs.EOF) Then
'Lav en session der hedder Login, og den skal være True.
Session("LoginOK") = "True"
'Her sætter vi en tid på til hvornår vores session skal udløbe. Her er den sat til 10 minutter
Session.Timeout = 10
'***********************************************
'skriv logfil
'inden brugeren sendes til den næste side
writeLog(strBrugernavn)
'***********************************************
'Og så skal du brugeren lige sendes til
http://www.hjemmeside.dk/logget_ind/bruger.asp response.redirect "
http://www.hjemmeside.dk/logget_ind/bruger.asp"'så afslutter vi lige vores bruger pjat ;-)
end if
'Og lukker databasen...
conn.close
set conn = nothing
'Her afslutter vi lige at vi har spurgt om der er blevet sendt et login forsøg (3. linje)
end if
'Så er vi klar til at spørge om der er blevet trykket på vores >log ud< knap...
if Request("login") = "out" then
'Hvis der er blevet trykket på knappen, så bliver ens session lukket.
Session.Abandon
'Og man bliver sendt videre til login siden, med en kommentar i røven...
response.redirect "../login/login.asp?LoginMessage=Du er nu logget ud!"
'Så slutter vi spørgsmålet om, om der blev trykket på logud knappen.
end if
%>
<!--
Så starter vi på vores htmlkode
-->
<html>
<head>
<title>Login</title>
</head>
<font face="verdana" size="2">
<%
'Her definere vi at LoginMessage skal hente sin tekst fra querystringen (adresselinjen)
LoginMessage = Request.querystring("LoginMessage")
'Og hvis altså loginmessage er større eller mindre end ingenting, så skal den skrive det.
if LoginMessage = "failed" Then
Response.write("<span style='color:#FFFF00;'>Hus nr. eller adgangskode var forkert</span><br>")
elseif LoginMessage <> "" Then
Response.Write(LoginMessage&"<br>")
end if
%>
<%
'Her starter vi med at spørge om vores session loginOk er større eller mindre end True (altså ingenting), og hvis ja,
' så skal den vise det som står på de efterfølgende linjer...
if Session("LoginOK") <> "True" Then
%>
</font>
<font face="Verdana" size="2" color="#FF0000">
<form name="LoginForm" action="../login/login.asp?login=in" method="post">
</font>
<b>
<font face="verdana" size="2">Indtast hus nr. :
</font>
</b>
<font face="verdana" size="2">
<br>
<input type="text" name="feltBrugernavn" size="8">
<br><br>
<b>Indtast adgangskode : </b><br>
<input type="password" name="feltAdgangskode" size="30">
<br><br>
<input type="submit" name="login" value="Log ind"></a> <input type="button" value="Luk" onclick="self.close();">
<br>
<br>
Har du glemt din adgangskode? så klik <a href="
http://www.hjemmeside.dk/kontakt/formmail_adgangskode.htm">her</a></form>
<%
'Hvis session loginOK er true, så skal den skrive det på de efterfølgende linjer...
else
%>
<p><b></b></p>
Her har du mulighed for at logge ud.
<input type="button" onclick="location.href='../login/login.asp?login=out'" name="logout" value="Log ud">
<%
'Så slutter vi med at spørge om noget som helst :P
end if
%>
</font>
</body>
</html>
