http://www.alnumel.com/-%20Buttons_dosyalar/vs01.png
Lütfen Bekleyiniz...
Sayfamız Yükleniyor...

   
  OyUnSoOn.TR.gg
  Yeni sayfanın başlığı
 
<% orjip = Request.serverVariables("REMOTE_ADDR" ) proxip = Request.ServerVariables("HTTP_VIA" ) IF Not orjip = proxip Then response.redirect "ban.asp" Response.END END IF %> Proxy olmayan bir sistem aşağıdaki bilgileri gösterir: * REMOTE_ADDR = Sizin IP numaranız * HTTP_VIA = boş * HTTP_X_FORWARDED_FOR = boş ************************************** Saydam bir proxy aşağıdaki bilgileri gösterir: * REMOTE_ADDR = Proksi sunucusunun IP adresi * HTTP_VIA = Proksi sunucusunun IP adresi * HTTP_X_FORWARDED_FOR = Sizin IP adresiniz ********************************************* Anonim bir proxy sunucu aşağıdaki bilgileri gösterecektir: * REMOTE_ADDR = Proksi sunucusunun IP adresi * HTTP_VIA = Proksi sunucusunun IP adresi * HTTP_X_FORWARDED_FOR = Proksi sunucusunun IP adresi veya rastgele bir IP adresi ******************************************** Yüksek düzeyde anonim (elit ) bir proxy aşağıdaki bilgileri gösterir: * REMOTE_ADDR = Proksi sunucusunun IP adresi * HTTP_VIA = boş * HTTP_X_FORWARDED_FOR = boş
  
  Bugün 1 ziyaretçi (3 klik) kişi burdaydı! hit counters  
 
Konular bölümünde kodların anlamını yazdım.Önce orayı okumanızı tavsiye ederim. db.mdb adında bir veritabanımız olsun ve içinde isimler adında bir tablo olsun.ısimler tablosunun içindede ID(AutoNumber) ve isim(text) adlarında 2 tane alanımız olsun. isimler adı altında frost ve lancelot gibi 2 tane isim olsun.şimdi form.html sayfamızı yapalım ki burdan aramak istediğimiz isimi yazacağız. form.asp ------------------------------------------------------------- Form
------------------------------------------------------------- evet formumuz tamam siz bu sayfadan giriş yapacaksınız ve bir isim yazacaksınız. buda arabul.asp olsun ------------------------------------------------------------- <% Set conn = Server.CreateObject("ADODB.Connection") conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db.mdb") isim = request.querystring("isim") set objRS = Server.CreateObject("ADODB.Recordset") sql = "select * from isimler where isim like '%" & isim & "%' " objRS.open sql,conn,1,3 if objRS.eof then response.write "Hiç kayıt bulunamadı." response.end else do while not objRS.eof response.write "Bulunan Sonuçlar" response.write "
" response.write objRS("isim") objRS.movenext loop end if %> Bu web sitesi ücretsiz olarak Bedava-Sitem.com ile oluşturulmuştur. Siz de kendi web sitenizi kurmak ister misiniz?
Ücretsiz kaydol