Forum
Aktif konular
Üyeler
Kurallar
Arama
Asp İle Listeleme Sorunu Asp İle Listeleme Sorunu
-
hocam şimdi şu şekilde veri tabanına bağlıyorum olayı
<%
Set karma = Server.CreateObject( "ADODB.Recordset" )
karma.ActiveConnection = Baglanti
karma.CursorType= adOpenStatic
karma.Open " SELECT * FROM tabloadi Where onay=1 Order by ktarih DESC"'------------------------------
Function kat_yaz_yeni(kat)
SQL_Kategori3_Info= " SELECT * FROM kategori Where id="&karma("ana_kategori_id")&" "
SET Kategori3_Info=Baglanti.Execute(SQL_Kategori3_Info)
kat_yaz_yeni = Kategori3_Info("kategori_adi")
End Function%>
sonrada alta burdan veriyi alıyorum
<%
i=1
'-----------------------------------------------------------------------------------------------------------------------
If karma.EOF Then
msg_ana_kat="Veritabanında Kayıt Yok.
"
Else
syf=trim(Request("syf"))If syf="" Then syf=1
karma.pagesize=10
karma.AbsolutePage=syf
WHILE not karma.eof and rowcount < karma.pagesize rowcount=rowcount+1
'-----------------------------------------------------------------------------------------------------------------------If i mod 2 then RENK="#f6f6f6" Else RENK="#ffffff" End If
i=i+1
%>
" width="85" height="62">
&VeterinerBuL=firmadetay" style="width: 100%; cursor:hand; cursor:pointer" align="center" bgcolor="<%=RENK%>" onMouseOver="this.style.backgroundColor='#d8e4f1';" onMouseOut="this.style.backgroundColor='<%=RENK%>';" cellpadding="0" class="ana_kat_goster_12">
<%=karma("firma_adi")%>
<%=Left(karma("faaliyet_alani"), 99)%> ...
<%=karma("sehir")%> | Tlf: <%=firmaliste_yeni("telefon")%>
<%=kat_yaz_yeni(kat)%>
<%
karma.MoveNext
WEND
End If
%>
Toplam 10 Liste
<%=msg_ana_kat%>
---------------------------------------------------------------şimdi iki sorum olacak ben 10 tane karışık firma göstermek istiyorum ama en son kayıttaki firmaları gösteriyor
If syf="" Then syf=1
karma.pagesize=10 ' buraya 25 yazıyorum 25 tane kayıt gösteriyor ama 10 yazdığımda 4 tane gösteriyor
karma.AbsolutePage=syfyani ben 10 tane kayıt göstermek istiyorum ne yapmam lazım yardımcı olurmusunuz teşekürler.
-
.baska bi yontemi var bunun aspnin kendi sayfalama zımbırtısını kullanmadan yapılıyo. Bı gun kendi aklımla bulmuştum ama varmis aynı mantık daha onceden. Telefondan girmeseydim şakadanak bi örnek kod patlatırdım sana ama telden o kadar şeyı yazmayı yemıyo simdı... Baskası yardımcı olmazsa pcden grınce hallederim ben :)
-
bekliyoruz Blitz
-
saygılar yukarı
-
ne iş asp ye mi başladın
-
ajan1111 bunu yazdı:
-----------------------------
ne iş asp ye mi başladın
-----------------------------
banamı sordun -
kendim şu an yazıyorum örenği :
<%
'whichpageareyouon hangi sayfada olduğumuzu söylüyor :)
'querystringe eşitliyorum ordan kaçıncı sayfadayız onu tayin etcez
whichpageareyouon = int(request.querystring("page"))
'eğer değer boşsa 0 yapıp ilk sayfaya gönderiyoruz
if whichpageareyouon = "" then
whichpageareyouon = 0
end if
'conn burda veritabanı bağlantısının adı
myrecords = conn.execute("select * from posts")
'kaç tanke kayıt var onu buluyoruz
Set total = conn.Execute("select count(*) as records from posts")
'10 demiştin kayıt sayısına
sizeofpage = 10
'burda elimizdeki kayıtları bir sayfadaki kayıt sayısına bölüp kaç tane sayfamız olucak toplam onu buluyoruz
pagecount = cint(int(total("records")) / sizeofpage)
' queryle bildirilen sayfa toplam sayfa sayımızdan büyükse anasayfaya def ediyoruz
if whichpageareyouon > pagecount then
response.redirect("/")
end ifresult = int(whichpageareyouon) * int(sizeofpage)
myrecords.move(result)
for i=1 to sizeofpage
if myrecords.eof then
exit for
end if%>
buraya işte neleri yazdırcaksan kayıt setiyle ilgi onlar işte
<%
myrecords.movenext
next
%>umarim işine yarar )
-
anladıgım kadarıyla böyle bi şey soruyorsun. eğer yanlı$ anlamadıysam.
alttaki sayfayı her yenilediginde 10 tane markadan birini çıkarır.
<% dim markalar(10)
randomize
markalar(1)="nike"
markalar(2)="adidas"
markalar(3)="puma"
markalar(4)="mahmut jeans"
markalar(5)="tommy hilfiger"
markalar(6)="lacoste"
markalar(7)="umbro"
markalar(8)="le coq sporte"
markalar(9)="diadora"
markalar(10)="lotto"
upperbound=ubound(markalar)
lowerbound=0
lrandom = Int((upperbound - lowerbound + 1) * rnd + lowerbound)
response.write (markalar(lrandom))
%>en basitinden markaları array'a alıp yani bu sekilde kullanabilirsin. istersen veritabanına bağlayıp da kullanırsın.
veritabanlı da bi örnek yapabilirim istersen :|
-
hoca rast gele kayıt nasıl gösterecek
-
ben okumadım yukarsını :D :) normal bütün kayıtları listeliyorsun sandım :)
nurkynin dedğini yap o zaman :)
-
<%
Set vt = Server.CreateObject("ADODB.Connection") ' tanımalama
vt.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Veritabani.mdb") ' malum veritabanı olayları
set rs = server.createobject("ADODB.Recordset") ' tanımalama
sql = "select * from tabloadi where tur=" &" 'sutunadi' " ' sql komutumuz
rs.open sql,vt,1,3 ' baglantı açıyoruz
Randomize ' randomize ye giriyoruz
rastgele = Int((Rnd*Rs.RecordCount)+0) ' kayıtlara göre ayar çektiriyoruz
Rs.Move(rastgele) ' rastgele veri belirleniyor
%><%response.write Rs("adi")%> ' rastgele veriyi yazdiriyoruz.
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Cevapla