<%@LANGUAGE="VBSCRIPT" CODEPAGE="1254"%> ..:: SİTE YÖNETİMİ GİRİŞ PANELİ ::..

<% if islem="login" and Request.Form("user")<>"" and Request.Form("pass")<>"" and Request.Form("fkodu")="" then user=postkontrol(Request.Form("user")) pass=postkontrol(Request.Form("pass")) sorgum="select * from admin where kadi='"&user&"' and sifre='"&pass&"'" rs.open sorgum,baglantim,1,3 if not rs.eof then Session("adminmi")="evet" Session("girdimi")="evet" Session("yol")="/Editor_Multimedia/" Response.Redirect("giris.asp") else hata "Üzgünüm Hata Yaptınız",64 end if end if %> <% function karaktertemizle(veri ) veri = Replace (veri ,"`","" ) veri = Replace (veri ,"=","" ) veri = Replace (veri ,"&","" ) veri = Replace (veri ,"%","" ) veri = Replace (veri ,"!","" ) veri = Replace (veri ,"#","" ) veri = Replace (veri ,"<","" ) veri = Replace (veri ,">","" ) veri = Replace (veri ,"*","" ) veri = Replace (veri ,"And","" ) veri = Replace (veri ,"'","" ) veri = Replace (veri ,"Chr(34 )","" ) veri = Replace (veri ,"Chr(39 )","" ) karaktertemizle=veri end function %>

 

Kullanıcı Adı :
Şifre :