<%@ Language="VBScript.Encode" CODEPAGE="1252"%>
<%
Response.Buffer = True

gorevli = "*****"
sifre = "****"
Function ayikla(temiz)
temiz=Replace(temiz,"`","",1,-1,1)
temiz=Replace(temiz,"=","",1,-1,1)
temiz=Replace(temiz,"&","",1,-1,1)
temiz=Replace(temiz,"%","",1,-1,1)
temiz=Replace(temiz,"!","",1,-1,1)
temiz=Replace(temiz,"#","",1,-1,1)
temiz=Replace(temiz,"<","",1,-1,1)
temiz=Replace(temiz,">","",1,-1,1)
temiz=Replace(temiz,"*","",1,-1,1)
temiz=Replace(temiz,"/","",1,-1,1)
temiz=Replace(temiz,"\","",1,-1,1)
temiz=Replace(temiz,"And","",1,-1,1)
temiz=Replace(temiz,"","",1,-1,1)
temiz=Replace(temiz,Chr(34),"",1,-1,1)
temiz=Replace(temiz,Chr(39),"",1,-1,1)
ayikla = temiz
End Function
if ayikla(Request.QueryString("giris"))="yapti" then
admin=ayikla(request.form("admin"))
sifre2=ayikla(request.form("sifre"))
if admin=gorevli and sifre2=sifre then
session(gorevli) = sifre
Else
Response.write "Hata bilgiler gecerli degil!"
Response.End
End if
End if
If session(gorevli) <> sifre Then
Call login
Response.End
End if
Sub login
%>
<table bgcolor="#6D8796" width="100%" height="100%" border="0" cellspacing="0" cellpadding="0" class="tablo_cevre">
<tr>
<td>
<p align="center"><font class="tablo_font">Admin Panel</font></p>
<div align="center">
<form name="form1" method="post" action="?giris=yapti">
<font class="tablo_font">Administrator : </font><input type="text" name="admin" class="form"><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<font class="tablo_font">Password : </font> <input type="password" name="sifre" class="form"><br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp ;&nbsp;&nbsp;&nbsp;
<INPUT TYPE="submit" VALUE="&nbsp;&nbsp;&nbsp;&nbsp;Login&nbsp;&nbsp;&n bsp;&nbsp;" class="buton">
</form>
</div>
</td>
</tr>
</table>
<% End sub %>