SERSERİDUMAN60

(KOD) DENEME MERKEZİ

BURAYA WMA MÜZİK YAPILACAOK NOT

 

 

---

pg"/>

---

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.

Açıklamalarınızı Ekleyin

Açıklamalarınızı gönderdikten sonra, kütüğe eklediklerinizi görmek için bu sayfayı tarayıcınızla yeniden yüklemeniz gerekir.

---

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 %>    

Kullanıcı Adı	:
Şifre	:

Üye Kaydı

<% 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") %>   

Kullanıcı Adı	:
Şifre	:

Geri Dön

<% 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" response.end end if If trim(guvenlik(request.form("sifre")))="" then Response.Write "






UYARI:

Şifrenizi yazınız!

Geri Dön" response.end end if %> <% Set rs = Server.CreateObject("Adodb.Recordset") Sorgu = "select id, kullanici_adi, sifre from uyeler where kullanici_adi = '" & guvenlik(request.form("kullanici_adi")) & "' and sifre = '" & guvenlik(Request.form ("sifre")) & "'" rs.Open Sorgu, Baglanti, 1, 3 If rs.BOF And RS.EOF Then Response.Write "






UYARI:

Kullanıcı Adınız & Şifreniz Yanlıştır!

Geri Dön" Else Session("durum") = "giris_yapmis" Session("id") = rs("id") Session("kullanici_adi") = rs("kullanici_adi") Response.Cookies("TekTech")("kullanici_adi") = Request.Form("kullanici_adi") Response.Cookies("TekTech")("sifre") = Request.Form("sifre") Response.Cookies("TekTech").Expires = Now()+15 Response.Redirect "Gir.asp" End If %> <% Set baglanti = Server.CreateObject("ADODB.Connection") baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Data.mdb") %> <% if Session("durum")="giris_yapmis" then %> <% Set rs = Server.CreateObject("Adodb.Recordset") id = Session("id") Sorgu = "Select * from uyeler where id= " & id rs.Open Sorgu, Baglanti, 1, 3 if rs.eof then Response.Write "Üye bilgisi bulunmamaktadır!" else %> Kullanıcı Adı: <%=rs("kullanici_adi")%> Sistemden Çıkış <% end if %> <%else %>

UYARI:

Lütfen giriş yapınız!

Ana Sayfa <% end if %>