Du kan evt. bruge FSO (File System Object)
Hvordan passordbeskytte sider ved hjelp av FileSystemObject
-------------------------------------------------------------
'<%Session Abandon%>
<html>
<head>
<title>Untitled</title>
</head>
<body>
'<SCRIPT TYPE="text/javascript">
<!--hide
function checkPass()
{
if(document.login.pwd.value != document.login.verifypwd.value)
{
alert('Passordene stemmer ikke !')
return false;
}
else
{
return true;
}
}
//end hide -->
</SCRIPT>
'<FORM METHOD="POST" NAME="login" ACTION="passord.asp" onSubmit="return checkPass()">
<INPUT TYPE="mail" NAME="email">
<INPUT TYPE="text" NAME="pwd">
<INPUT TYPE="text" NAME="verifypwd">
<INPUT TYPE="submit" VALUE="submit">
</FORM>
</body>
</html>
---------------------------------------------------------------------------
Denne filen sjekker om brukernavn og passord stemmer overens med innholdet i passordfilen(ett vanlig .txtdokument).
Det er lurt å gjemme denne filen på en annen Drive feks.
'<%
Dim mailaddress, userkey
mailadress = request.form("email")
userkey = request.form("pwd")
Session("user")= mailadress
Session("id")=userkey
Const ForReading = 1, ForWriting = 2, ForAppending = 8
set fso = server.CreateObject("Scripting.FileSystemObject")
set f = fso.GetFile("E:/prove.txt")
set ts = f.OpenAsTextStream(ForReading, -2)
myText = ts.ReadLine
Do While not ts.AtEndOfStream
myText = ts.ReadLine
Loop
If myText <> (Session("user") & " " & Session("id")) Then
Response.Redirect("
http://www.whitehouse.gov")
Else
Response.Redirect("
http://www.vatikan.ve")
End if
%>
--------------------------------------------------------------------------
Denne kodesnuten legges øverst i alle dokumenter som skal beskyttes
'<%If Session("user") or Session("id")= "" Then
Response.Redirect("enter.asp")
End if
%>
------------------------------------------------------------------
Dette er ett eksempel på en Loginside db :
Det forutsetter at det benyttes en database som inneholder feks. brukernavn og passord
<html>
<head>
<title>Login</title>
</head>
<body>
<br>
<br>
<br>
<br>
<div align=center>
<form action = sjekk.asp method=post>
<table>
<tr>
<td>
<b>Brukernavn :</b>
</td>
<td>
<Input type=text size=12 Maxlength=50 name=bruker>
</td>
</tr>
<tr>
<td>
<b>Passord :</b>
</td>
<td>
<Input type=password size=12 Maxlength=50 name=pwd>
</td>
</tr>
<tr>
<td colspan=2 align=right>
<input type=submit value=Login>
</td>
</tr>
</table>
</form>
</div>
</body>
</html>
-----------------------------------------------------------------------
Dette er dokumentet som sjekker om brukeren har tilgang til siten/mappen
"Sjekk.asp"
'<%
Dim Sql, Data, Brukernavn, Passord, Conn
Brukernavn= Request.Form("bruker")
Passord= Request.Form("pwd")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Min database")
Sql = "SELECT Count(*) AS confrm FROM Brukere "
Sql = Sql & "WHERE (Brukernavn='" & Brukernavn & "') AND (Passord='" & Passord & "') "
Set data =Conn.Execute(sql)
If data("confrm") = "0" OR (Request.Form("bruker")="") OR (Request.Form("pwd")="")Then
Response.Redirect("beklager.htm")
Else
Session ("din session") = True
Response.Redirect ("ok.*")
End if
%>
----------------------------------------------------------------------------
I tillegg må følgende kode legges inn i alle dokumenter som skal passordbeskyttes
'<%
If Session("din session")= False Then
Response.Redirect("beklager.htm")
End if
%>
Ny bruger
Nybegynder
Opret
Preview
