Forum
Aktif konular
Üyeler
Kurallar
Arama
Kullandığım Fonksiyonla Sayfalama Karışıyor. Kullandığım Fonksiyonla Sayfalama Karışıyor.
-
fonksiyonu kullandığım zaman bütün kayıtları bir sayfada gösterio:
Kullandığım fonksiyon bu:
<%
Function rakam(fiyat)
uzunluk = Len(fiyat) " Fiyatın karakter olarak uzunluğu
bolum = Int(uzunluk / 3) " Fiyatın karakter uzunluğunun 3"e bölümü
carpim = Int(bolum * 3) " Bölüm ile 3"ün çarpımı
kalan = Int(uzunluk - carpim) " Uzunluktan çarpımın çıkarılması..
If kalan = 0 Then " Eğer sayı 0"a tam bölünüyorsa ne olacak
kalan = 3 " Kalan 3 olacak
End If
bolunmus = ""
For i = 1 To kalan
bolunmus = bolunmus & Mid(fiyat,i,1 )
Next
fark2 = Int(uzunluk - kalan) " Uzunluktan kalanı çıkarıyoruz.
bolum2 = Int(fark2 / 3) " Bu yeni sayıyıda 3"e bölüyoruz.
x = kalan + 1
For b = 1 To bolum2
bolunmus = bolunmus &"." & Mid(fiyat,x,3)
x = x + 3
Next
rakam = bolunmus
End function
%>
--------------------------------------------
sayfalama
-------------------------------------------
pg = Request.QueryString("pg") "sayfalama dalgasıdır kendisi...
if pg="" then
pg=1
end if
Engin.pagesize = 10
Engin.absolutepage = pg
page = Engin.pagecount
for i=1 to Engin.pagesize
if Engin.eof then exit for
%>
for y=1 to page
if pg=y then
response.write y
else
if country=0 and costup=0 then
response.write "<b> <a href=""cat.asp?pg="&y&""">"&y&"</a></b>"
else
response.write "<b> <a href=""cat.asp?maxid="&cid&"&pg="&y&""">"&y&"</a></b>"
end if
end if
Şimdiden thanks
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Toplam Hit: 1888 Toplam Mesaj: 1
Cevapla