Elinizin altında Bulunması Gereken Asp kodları

19-11-2006, 21:24:36

Sifreli Mdb'ye Bağlanma :

Acıklama
Kodu vt_baglan.asp sayfası olarak kaydedin ve kullanmak istediğiniz sayfaya include metodu ile ekleyin.
Kullandığınız access veritabanına ms access programını kullanarak ilgili yerden şifre verin...
Not: Veritabanlarınıza server kontrol panelinizden yazma izni vermeyi unutmayın.

kod :

Alıntı

<%
'- Veritabanı Bağlantı Kodu: -----
'---------------------------------------------
cString = "Provider=ODBC;DSN=Pubs"
Set bag = Server.CreateObject("ADODB.Connection")
vt_yol = "driver={Microsoft Access Driver (*.mdb)};" & _
"dbq=" & Server.MapPath("db/veritabani_adi.mdb")
cString = "Pubs"
bag.Open vt_yol, cString, "Parola_Alanı"
'---------------------------------------------
%>

--------------------------------------------------------------
db deki yaıtlaı sıralama :

Acıklama :
Recordset nesnesinin Recordcount methodu ile veritabanındaki kayıt sayısını aşağıdaki örnek kod ile alabilirsiniz.
kod :

Alıntı

<%
set kon=server.createobject("addob.connection") conn.open= "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ= " & server.mappath ("db/data.mdb")

set rs=server.createobject("adodb.recordset") sql = "select * from tablo" conn.open sq,kon,3,3
%>
Veritabanındaki tabloda toplam <% rs.recordcount%> kayıt var.

--------------------------------------------------------------

rastgele veri alma :

Açıklama
dbden rastgele veri cekleme Her yenilemede farklı veri çekme

kod :

Alıntı

<%
Set Kon = Server.CreateObject("ADODB.Connection" )
Kon.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("veritabani yolu" ))
Set Rs = Server.CreateObject("ADODB.Recordset" )
SQL = "SELECT * FROM TblYeni"
Rs.Open SQL,kon,1,3
Randomize
kac = Int((rs.RecordCount * Rnd)+ 0)
Rs.Move(kac)
Soz=Rs("Soz" )
Resim=Rs("Resim" )
AltYazi=Rs("AltYazi" )
Rs.Close
Kon.Close
Set Rs=Nothing
Set Kon=Nothing
%>

--------------------------------------------------------------

Sayfa Yuklenme Süresi :

Sayfanın kaç sn dk de yuklendiğini göterir

kod :

Alıntı

<%

lngTimer=Timer

For lngCnt=1 to 1000000
Next

Response.Write FormatNumber(Timer-lngTimer,2,True) & " saniye."
%>

konuyu tamamlayana kadar konu kitliş kalacak

Gerekli olucak bir çok kod eklicem

19-11-2006, 21:27:01

#2

rnmks

Alıntı

<%
IP = Request.ServerVariables("REMOTE_ADDR" )
%>

simdi biz bunu aldik.mesela diyelim ki ziyaretçinin ip si yasaklanmis ip ise bunu hata sayfasina yönlendirelim.

eger yasak listesinde degil ise

bu sayfaya girebilsin

diyelimki yasak ip 81.133.22.22 (salladim) olsun

gelelim kodlara

'egerki kullanicin ip si 81.133.22.22 ise
if ip="81.133.22.22" then
'hatasayfasina yönlendir
response.redirect "hata.asp"
'degil ise islem yapmasin.sayfada gezebilsin
else
end if

kodlari toplayip derlersek
ip Engelleme :

sitenize giren istediğiniz ipleri engelleme

kod
<%
IP = Request.ServerVariables("REMOTE_ADDR" )
'egerki kullanicin ip si 81.133.22.22 ise
if ip="81.133.22.22" then
'hatasayfasina yönlendir
response.redirect "hata.asp"
'degil ise islem yapmasin.sayfada gezebilsin
else
end if

%>

.................................................. ......
mesela diyelimki elimizde birkaç tane ip adresi var bunlari hata sayfasina yönlendirelim

<%
IP = Request.ServerVariables("REMOTE_ADDR" )
'egerki kullanicin ip si 81.133.22.22 veya 81.133.22.19 ise
if ip="81.133.22.22" or ip="81.133.22.19" then
'hatasayfasina yönlendir
response.redirect "hata.asp"
'degil ise islem yapmasin.sayfada gezebilsin
else
end if

%>

--------------------------------------------------------------

23-01-2007, 00:19:05

#3

rnmks

Basit Kategorileme Sistemi

Alıntı

<%

Set kategori = Server.CreateObject("ADODB.Recordset")

sor = "Select * from kategori ORDER BY id" ' kategori tablomuzu id sırasına göre diziyoruz.

kategori.Open sor,Sur,1,3

toplam_kategori=kategori.recordcount

%>

</tr>

<%

While Not kategori.EOF

%>

<tr>

<td width="100%" height="13" bgcolor="#CCCCCC">



-
<a href="kat.asp?katno=<%=kategori("katno")%>"><%=kat egori("kat_adi")%></a></td>

</tr>

<%

If Not kategori.EOF Then

%>

<% kategori.MoveNext

End If

%>

<% Wend %>

28-01-2007, 02:05:01

#4

rnmks

DB deki erileri listBox aAktarma..

Kısa bir uygulama ile konuyu toplamak daha anlaşılır olacaktır. Detaylı anlatım ile konumuza hemen başlayalım.

          <% 
Set bag = Server.Createobject("Adodb.Connection") 
bag.Open "Provider=Microsoft.Jet.Oledb.4.0;Data Source="&server.mappath("data.mdb")&";" 
'Veritabanı bağlantımızı yaptık. Bağlantı adımız bagdir. 
   sql="select adi,soyadi from tabloadi order by adi asc" 
'adi ve soyadı kısmını alarak adi alanını artalan olarak listelettik. 
   set liste=bag.execute(sql) 
'Eğer işlemimizi Execute görüyorsa bu metodu kullanmak hıza etkisi vardır. 
%> 
   <select name="AdSoyad" size="1"> 
'name alanı önemlidir. 
<% Do while not liste.eof %> 'listede olan kadar dön 
<option value="<%=liste("adi")%> <%=liste("soyadi")%>"></option> 
'optiona değerlerimizi atadık. 
<% 
    liste.movenext 'Döngüyü sürdür 
    loop 'bir sonraki kayıtı al 
    liste.close 'listeyi kapat. 
%> 
   </select>

<% bag.close %> 'bag vt baglantımızıda kapattık.bu örneğe göre bir veritabanınıda adi ve soyadi alanı olmalı ve adı ise tabloadi kısmını değitirerek kendi tablo adınızı yazmanız yeterlidir. Veritabanınızı data.mdb olarak kaydederek örneği çalıştırabilirsiniz

dokuman : asp ogren

04-02-2007, 01:01:33

#5

rnmks

listeleilen verileri sırayla renkli yapma

 <%
     a = a + 5
          if int(a/5) = 1 then renk = "#FF0000"
          if int(a/5) = 2 then renk = "#FF00E4"
          if int(a/5) = 3 then renk = "#0084FF"
          if int(a/5) = 4 then renk = "#7EFF00"
          if int(a/5) = 5 then renk = "#FFAE00"
     response.write renk
%>

teşekkurler srcnckr

22-09-2007, 00:42:22

#6

rnmks

Alıntı

<% url = Request.ServerVariables("HTTP_HOST")
if not Instr(url,"domain.com") > 0 then
Response.Write "Kullandığınız Yazılım Lisanssızdır. Lütfen Bizimle İletişime Geçiniz!.."
Response.End
end if
%>

bu kodları her sayfanın en üstüne eklersen domain.com yerine yazdığın alanadı dışında hiçbir sitede çalışmayacaktır kodların. fakat bunun başkaları tarafından değiştirilmesini engellemek için kodlarını gizlemelisin

3en azından bir alternetif

forumda yayınlayan cesur