(KOD) DENEME MERKEZİ
BURAYA WMA MÜZİK YAPILACAOK NOT
Web sitemiz hakkında ne düşündüğünüzü bilmek isteriz. Lütfen görüşlerinizi ortak konuk defterine yazın; böylece düşüncelerinizi diğer ziyaretçilerle paylaşabiliriz.
YAZILARII BURALARA YAZA BILIRSINIZ.
MUSTAFA DUMAN © 2009 DÜZENLEME...
.
<%
Session("durum")=""
Response.Cookies("TekTech")("kullanici_adi")=""
Response.Cookies("TekTech")("sifre")=""
Session("id")=""
%>
<% Response.Redirect "Gir.asp" %>
<%
Vt_Yolu=Server.Mappath("Data.mdb")
Cumle= "DBQ="& Vt_Yolu &";Driver={Microsoft Access Driver (*.mdb)}"
%>
<% Response.Redirect ("Gir.asp") %>
<% if Session("durum")="giris_yapmis" then %>
<% Response.Redirect "Tamam.asp" %>
<%else %>
<% end if %>
<%
kullanici=request.form("kullanici_adi")
parola=request.form("sifre")
Set Baglanti = Server.Createobject("ADODB.Connection")
Baglanti.Open (Cumle)
Set rs = Server.Createobject("ADODB.Recordset")
sql = "select * from uyeler"
rs.open sql, Baglanti, 1, 3
rs.addnew
Rs("kullanici_adi")=kullanici
RS("sifre")=parola
rs.update
rs.close
set rs=nothing
Baglanti.close
set Baglanti=nothing
Response.Write ("Kayıt Başarıyla Tamamlandı")
Response.Redirect ("Gir.asp")
%>
<%
Set baglanti = Server.CreateObject("ADODB.Connection")
baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("Data.mdb")
%> <%
function guvenlik(data)
data = Replace (data ,"`","",1,-1,1)
data = Replace (data ,"=","",1,-1,1)
data = Replace (data ,"&","",1,-1,1)
data = Replace (data ,"%","",1,-1,1)
data = Replace (data ,"!","",1,-1,1)
data = Replace (data ,"#","",1,-1,1)
data = Replace (data ,"<","",1,-1,1)
data = Replace (data ,">","",1,-1,1)
data = Replace (data ,"*","",1,-1,1)
data = Replace (data ,"And","",1,-1,1)
data = Replace (data ,"'","",1,-1,1)
data = Replace (data ,"Chr(34)","",1,-1,1)
data = Replace (data ,"Chr(39)","",1,-1,1)
data = Replace (data ,"select","",1,-1,1)
data = Replace (data ,"join","",1,-1,1)
data = Replace (data ,"union","",1,-1,1)
data = Replace (data ,"where","",1,-1,1)
data = Replace (data ,"insert","",1,-1,1)
data = Replace (data ,"delete","",1,-1,1)
data = Replace (data ,"update","",1,-1,1)
data = Replace (data ,"like","",1,-1,1)
data = Replace (data ,"drop","",1,-1,1)
data = Replace (data ,"create","",1,-1,1)
data = Replace (data ,"modify","",1,-1,1)
data = Replace (data ,"rename","",1,-1,1)
data = Replace (data ,"alter","",1,-1,1)
data = Replace (data ,"cast","",1,-1,1)
guvenlik=data
end function
%> <%
If trim(guvenlik(request.form("kullanici_adi")))="" then
Response.Write "UYARI:
Kullanıcı adınızı yazınız!
Geri Dön
UYARI:
Şifrenizi yazınız!
Geri Dön
UYARI:
Kullanıcı Adınız & Şifreniz Yanlıştır!
Geri Dön
UYARI:
Lütfen giriş yapınız!
Ana Sayfa