<%if request.Cookies("ibrav")("mevcut")<>"evet" then%>
Uye Giriş
<%
gir=request.QueryString("gir")
if gir="" then
gir="giris"
end if
%>
<%select case gir%>
<%case "giris"%>
Kullanıcı Adınızı ve Şifrenizi Yazarak
Sisteme Giriniz
| |
Sisteme girmek için kullanıcı adı=admin sifre=admin yazmalısınız.
Lütfen İlk girişinizden sonra şifrenizi değiştirin.
İBRAV uyelik sistemi v1.0 Hazırlayan: İbrahim Avcıoğlu
E-mail : kazaam@hotpop.com
ibrav uyelik sistemi v1.0 © 2004
|
<%case "kontrol"%>
<%
kulladi=request.form("k_adi")
sifre=request.form("sifre")
%>
<%
set rs=server.createobject("adodb.recordset")
SQL="Select * from uyeler where k_adi='"& kulladi &"' and sifre='"& sifre &"' "
rs.open SQL, baglan, 1, 3
if not rs.eof then
rs("son_tarih")=now()
rs("ziyaret")=rs("ziyaret")+1
rs("u_ip")=ip
rs("u_system")=system
rs("u_browser")=browser
rs.update
session("burada")="evet"
session("k_adi")=rs("k_adi")
session("yonetici")=rs("yonetici")
session("ad")=rs("ad")
session("soyad")=rs("soyad")
Response.Cookies("ibrav")("k_adi") = Rs("k_adi")
Response.Cookies("ibrav")("yonetici") = Rs("yonetici")
Response.Cookies("ibrav")("mevcut") = "evet"
Response.Cookies("ibrav").Expires = Date() + 7
response.redirect("giris.asp")
%>
<%else%>
<%response.redirect("hata.asp?hata=2")%>
<% end if %>
<%
rs.close
Set rs=nothing
baglan.close
Set baglan=nothing
%>
<%end select%>
<%
else
response.redirect("giris.asp")
end if
%>