<%
logstatus=request.QueryString("logadm")
if logstatus="true" then
session("user_admin")=""
session.Contents.RemoveAll()
session.Abandon()
'response.Redirect("Cikistamamlaninca yonlenecek sayfa")
end if
action=request.form("action")
if action="login" then
kullanici=trim(request.Form("kullanici"))
sifre=trim(request.Form("sifre"))
if kullanici="yahya" AND sifre="yahya" then
session.Timeout=180
session("user_admin")="admin"
response.Redirect("giristamam.asp")
else
error_msg="Yanl kullanc veya ifre"
end if
end if
%>
Admin giris
<%@language="vbscript"%>
<%'Bu asp kodu emiremiroglu tarafndan yazlmtr.%>
<%
select case hour(now)
case 0,1,2,3,4,5,6
response.write ""
response.write " "
response.write "Gece"
case 7,8,9,10,11
response.write ""
response.write " "
response.write "Sabah"
case 12,13,14,15,16,17,18
response.write ""
response.write " "
response.write "Ogle"
case 19,20,21,22,23
response.write ""
response.write " "
response.write "Akam"
end select
%>
