s7

Do sekce <BODY> umístěte:

<%
' Porovnani udaju z formulare
If Request.Form("login") = "Java Script Library" AND Request.Form("password") = "Test" Then

' Nastaveni session pro overeni prihlaseni na dalsich strankach
session("UzivatelPrihlasen") = 1
%>

<p align="center"><font face="Verdana, Arial" size="2" color="blue">Jste přihlášeni!</font></p>

<div align="center">
<center>
<table border="0" bgcolor="#000000" cellspacing="1" cellpadding="0">
<tr>
<td width="100%">
<table border="0" width="400" bgcolor="#EFEFEF" cellspacing="1">
<tr>
<td width="100%"><font size="2" face="Verdana, Arial">Pokud potřebujete
zabezpečit další WWW stránky, pak vložte do každé tento řádek:<br>
<font color="#808080"></font></font>
<p><font size="2" face="Verdana, Arial">Soubor ochrana.asp vytvořte
dle níže uvedeného kódu:<br>
<font color="#808080"><%<br>
If session("UzivatelPrihlasen") = FALSE Then<br>
Response.Redirect
"script_166_sample.asp"<br>
End If<br>
%></font></font></td>
</tr>
</table>
</td>
</tr>
</table>
</center>
</div>

<% Else %>

<form action="script_166_sample.asp" method="post">
<div align="center">
<center>
<table border="0" bgcolor="#000000" cellspacing="1" cellpadding="0">
<tr>
<td width="100%">
<div align="center">
<center>
<table border="0" bgcolor="#EFEFEF" cellpadding="2">
<tr>
<td align="right"><strong><font face="Arial" size="2">Jméno :</font></strong></td>
<td><input type="text" name="login" size="20" style="border: 1 solid #000000"></td>
</tr>
<tr>
<td align="right"><strong><font face="Arial" size="2">Heslo :</font></strong></td>
<td><input type="password" name="password" size="20" style="border: 1 solid #000000"></td>
</tr>
<tr>
<td align="right"> </td>
<td><input type="submit" value="Přihlásit!"></td>
</tr>
</table>
</center>
</div>
</td>
</tr>
</table>
</center>
</div>
</form>

<p align="center"><font face="Verdana, Arial" size="2">Údaje pro přihlášení: jméno "Java Script Library", heslo "Test".</font></p>

<% End If %>