Kayıtları 2'şerli sıralama

Kayıtları 2'şerli sıralama...

<%
data = Server.MapPath("data.mdb")
Set Bag = Server.CreateObject("Adodb.Connection")
Bag.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source = "& data & ";"
Set rs = Server.CreateObject("Adodb.RecordSet")
rs.Open "Seletc* From tablo"
if rs.Eof then
response.write "<center>Kayıt Yok</center>"
else
do until rs.Eof
listeleme = 0
if Eval(listeleme\2 = listeleme/2) then
response.write rs("Kayit")
else
response.write rs("Kayit") & "<br>"
end if
listeleme = listeleme + 1
rs.Movenext
loop
end if
%>

Artık 2'şerli olarak kayıtlarınızı listeletebilirsiniz..

Bir Tablodaki Kayıt Sayısını Buldurmak

Bir Tablodaki Kayıt Sayısını Buldurmak

Aşağıdaki örnekler yardımıyla tablolarınızdaki kayıtların sayısını kolaylıkla elde edebilirsiniz...

ÖRNEK

<'--1. Yöntem (RecordCount ile)>
<%
'-- Değişkenler tanımlandı.
Dim cnnDB, Rs, kayitsayisi, mySQL
'-- cnnDB isimli veritabanı bağlantı nesnesi oluşturuldu.
Set cnnDB=Server.CreateObject("ADODB.Connection")
'-- Rs isimli recordset nesnesi oluşturuldu.
Set Rs =Server.CreateObject("ADODB.Recordset")
'-- ODBC'den MyDSN isimli veritabanı açıldı.
cnnDB.Open "MyDSN"
'-- SQL oluşturuldu.
mySQL="Select TblOrnek.* FROM TblOrnek;"
'-- SQL bağlantı nesnesi üzerinde çalıştırıldı, sonucu Rs recordset nesnesine aktarıldı.
Rs.open mySQL,cnnDB,3
'-- RS'de bulunan kayıtların sayısı kayitsayisi değişkenine atandı.
kayitsayisi=Rs.recordcount
'-- Kayıt sayısı ekrana yazdırıldı.
response.write kayitsayisi
'-- Recordset kapatıldı.
Rs.Close
'-- Bağlantı kapatıldı.
cnnDB.Close
'-- Bağlantı bellekten silindi.
Set cnnDB=Nothing
%>
<center>ORNEK</center>
<'--2. Yöntem (SQL ile)>
<%
'-- Değişkenler tanımlandı.
Dim cnnDB, Rs, kayitsayisi, MySQL
'-- cnnDB isimli veritabanı bağlantı nesnesi oluşturuldu.
Set cnnDB=Server.CreateObject("ADODB.Connection")
'-- ODBC'den MyDatabase isimli veritabanı açıldı.
cnnDB.Open "MyDatabase"
'-- SQL oluşturuldu.
mySQL="Select COUNT(*) FROM TblOrnek;"
'-- SQL bağlantı nesnesi üzerinde çalıştırılarak Rs isimli recordset nesnesine aktarıldı.
Set Rs =cnnDB.execute(mySQL)
'-- Rs'in 0. Alanı kayıt sayısını bize verdi.
kayitsayisi=Rs(0)
'-- Kayıt sayısı ekrana yazdırıldı.
response.write kayitsayisi
'-- Recordset kapatıldı.
Rs.Close
'-- Bağlantı kapatıldı.
cnnDB.Close
'-- Bağlantı bellekten silindi.
Set cnnDB=Nothing
%>

Hangisi işaretli Kontrol edelim

Hangisi işaretli Kontrol edelim

--------------------------
form.htm adında bir formumuz ve bu forum işletildiğinde hangi RadioButton kutularının işaretli olduğunu bulacağımız form_isle.asp dosyamız olsun.

form.htm
--------
<FORM ACTION="form_isle.asp" METHOD="POST">
<INPUT TYPE="Checkbox" NAME="IsaretKutusu" VALUE="Isaret1">İşaret Kutusu 1<BR>
<INPUT TYPE="Checkbox" NAME="IsaretKutusu" VALUE="Isaret2">İşaret Kutusu 2<BR>
<INPUT TYPE="Checkbox" NAME="IsaretKutusu" VALUE="Isaret3">İşaret Kutusu 3<BR>
<INPUT TYPE="Submit" VALUE="Gönder"> <INPUT TYPE="RESET" VALUE="Sil">
</FORM>

form_isle.asp
-------------

<%
if Request.Form("Radyo") = "Tercih1" then
response.write("Birinci Tercih İşaretli")
response.write("<BR>")
elseif Request.Form("Radyo") = "Tercih2" then
response.write("İkinci Tercih İşaretli")
response.write("<BR>")
else
response.write("Üçüncü Tercih İşaretli")
response.write("<BR>")
end if
%>

İstenen karakter sayısının görüntülenmesi

İstenen karakter sayısının görüntülenmesi

Bazı sayfalarda, belirli metinlerin bir kısmının gösterildiğini ve geri kalan kısmının ... şeklinde görüntülendiğini muhakkak hepimiz görmüşüzdür. Aslında bunu sizin de yapmanız hiç zor değil.Bu dersimizde bununla ilgili örnek kodları vereceğim. Bir budama nesnesi aşağıdaki örnekte görüldüğü şekilde çalışmaktadır.
*************************************************

<%
metin = "Budama denemesi amacıyla yazılmış olan metinin bu olduğunu varsayıyoruz"
'aşağıda verilen fonksiyon metni budamaktadır.
Function buda(str,max)
max_karakter = max
istif = "..."
if Len(str)>max_karakter then
budamastr = Mid(str,1,max_karakter - Len(istif))
budamastr = budamastr + istif
else
budamastr = str
end if
buda = budamastr
end Function ' buda
response.write buda(metin,10) ' ilk on harf alınacak sonra ... nokta koyucak
%>

************************
Tabi siz bu örnekteki "gösterilecek karakter" sayısını 10 değil de başka bir rakama ayarlayabilirsiniz..

Request: Ziyaretçiden Alınan Bilginin Gösterilmesi

Request: Ziyaretçiden Alınan Bilginin Gösterilmesi

Bir Formdan nasıl bilgi alındığına dair bir örnek yapalım. Öncelikle Kullanıcının gireceği arabirimi aşağıdaki gibi oluşturalım ve bunu index.htm adı ile kaydedelim

<title>ÖRNEK</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<body bgcolor="#FFFFFF">
<center>
<form method="Post" action="icra.asp" name="fname">
<table width="37%" border="0" cellspacing="0" cellpadding="0">
<tr bgcolor="#0000FF">
<td colspan="2">
<center>
<font size="2" face="Verdana"><b><font color="#FFFFFF">Bilgileri Alacagimiz
Bölüm</font></b></font>
</center>
</td>
</tr>
<tr>
<td width="46%"> </td>
<td width="54%"> </td>
</tr>
<tr>
<td width="46%"><font size="2" face="Verdana"><b>Ad</b></font></td>
<td width="54%"><b><font size="2" face="Verdana">:
<input type="text" name="ad" size="20" maxlength="25">
</font></b></td>
</tr>
<tr>
<td width="46%"><font size="2" face="Verdana"><b>Soyad</b></font></td>
<td width="54%"><b><font size="2" face="Verdana">:
<input type="text" name="soyad" size="20" maxlength="25">
</font></b></td>
</tr>
<tr>
<td width="46%"> </td>
<td width="54%"> </td>
</tr>
<tr>
<td width="46%">
<input type="reset" name="temizle" value="Temizle">
<input type="submit" name="goster" value="Göster">
</td>
<td width="54%"> </td>
</tr>
</table>
</form>
</center>

---------------------------------------------------------------------------------
Bu işlemi gerçekleştirdikten sonra aldığımız bilgileri Kullanıcıya gösterebilmek amacıyla yeni bir ara birim oluşturup, gösterelim. Ve bunun adınada icra.asp adını verelim.
---------------------------------------------------------------------------------

<title>Sonuçlar...</title>
<meta http-equiv="Content-Type" content="text/html; charset=">
<body bgcolor="#FFFFFF">
<%
Ad=Request.Form("ad")
Soyad=Request.Form("soyad")
%>
<center>
<table width="38%" border="0" cellspacing="0" cellpadding="0">
<tr bgcolor="#0000FF">
<td colspan="2">
<center>
<font size="2" face="Verdana"><b><font color="#FFFFFF">Bilgilerin Gösterildigi
Bölüm</font></b></font>
</center>
</td>
</tr>
<tr>
<td width="57%"><font size="2" face="Verdana">"Ad" alanindan alinan
bilgi</font></td>
<td width="43%"><font size="2" face="Verdana">:<%=Request.Form("ad")%></font></td>
</tr>
<tr>
<td width="57%"><font size="2" face="Verdana">"Soyad" alanindan
alinan bilgi</font></td>
<td width="43%"><font size="2" face="Verdana">:<%=Request.Form("soyad")%></font></td>
</tr>
<tr>
<td width="57%"> </td>
<td width="43%"> </td>
</tr>
<tr>
<td colspan="2"><font face="Verdana" size="2">Geri Dönmek için <a href="index.htm">Tiklayiniz.</a></font></td>
</tr>
</table>
</center>

-------------------------------------------------------------------------------
Böylece kullanıcıdan aldığımız bilgilerin neler olduğunuda göstermiş olduk. Bu işlemleri ASP kodlarınızın büyük bölümünde değişik metodlarla kullanabilirsiniz.