Merhaba Arkadaşlar !
Bir adet firma rehberi sitemiz var.Bu firma rehberinde varolan reklamları ve tanıtılan firmaların sırasını raslantısal (Randomize ) yapmak istiyoruz.
Asp den anlayan ve bu işi yapabilcek biri lütfen pm atsın veya istesin.Ücretli ücretsiz yardım istiyoruz.
Raslantısal Yapmak |
12 Mesajlar | 2.653 Okunma | ||
- Üyelik 15.12.2011
- Yaş/Cinsiyet - / E
- Meslek
- Konum
- Ad Soyad ** **
- Mesajlar 228
- Beğeniler 13 / 80
- Ticaret 5, (%100)
- Üyelik 02.03.2012
- Yaş/Cinsiyet 48 / E
- Meslek Bilgisayar, Server, Web Tasarım ve Programlama
- Konum İstanbul Avrupa
- Ad Soyad ** **
- Mesajlar 183
- Beğeniler 39 / 49
- Ticaret 6, (%100)
Yardımcı olmaya çalışayım. Reklam verilerini çektiğiniz kodları buraya yazarsanız size örnek kodu yazarım. Lakin aspx ise yardımcı olamam
- Üyelik 15.12.2011
- Yaş/Cinsiyet - / E
- Meslek
- Konum
- Ad Soyad ** **
- Mesajlar 228
- Beğeniler 13 / 80
- Ticaret 5, (%100)
aspx değil asp.Msn pm attım eklerseniz memnun olurum.
- Üyelik 02.03.2012
- Yaş/Cinsiyet 48 / E
- Meslek Bilgisayar, Server, Web Tasarım ve Programlama
- Konum İstanbul Avrupa
- Ad Soyad ** **
- Mesajlar 183
- Beğeniler 39 / 49
- Ticaret 6, (%100)
msn veya pm den yardımcı olamam. kodlarınızı burada paylaşın ki bizde buradan yardımcı olalım zira başkaların da ihtiyacı olabilir. Veya pm den kodlarınızı bana gönderin bende örnek kodu buraya yazayım.
- Üyelik 15.12.2011
- Yaş/Cinsiyet - / E
- Meslek
- Konum
- Ad Soyad ** **
- Mesajlar 228
- Beğeniler 13 / 80
- Ticaret 5, (%100)
tamam hocam kodları pm attım.Yardımcı olduğun için çok teşekkür ederim.
- Üyelik 02.03.2012
- Yaş/Cinsiyet 48 / E
- Meslek Bilgisayar, Server, Web Tasarım ve Programlama
- Konum İstanbul Avrupa
- Ad Soyad ** **
- Mesajlar 183
- Beğeniler 39 / 49
- Ticaret 6, (%100)
Size örnek kod hazırladım:
<%
sor = "select * from reklamtablosu "
cnet.Open sor,Sur,1,3
if cnet.eof or cnet.bof then ' Kayıt kontrolü yapıyoruz
'kayıt yok ise burada alan boş çıkar buraya reklam alanı vs gibi bir image eklenebilir
else
toplam = cnet.RecordCount 'Kayıt var ise burada randomize kodumuz başlıyor
Randomize
id = Int((toplam * Rnd ) +0)
cnet.Move(id)
%>
">
" border="0" >
<%end if
cnet.close%>
Bağlantı kodlarınızı ve veritabanı yapınızı bilmediğimden böyle basit bir örnek kod hazırladım. Sanırım bu istediğiniz tüm alanlarda gerekli yerleri değiştirerek işinizi görecektir.
Test edilmiştir...
Bu arada cnet bizim değişkenimizdir yani ÇağdaşNeT in kısaltması gibi. Bu kısmı siz kendi yapınıza göre değiştireceksiniz.
Ek Olarak: Durum ne dir !
<%
sor = "select * from reklamtablosu "
cnet.Open sor,Sur,1,3
if cnet.eof or cnet.bof then ' Kayıt kontrolü yapıyoruz
'kayıt yok ise burada alan boş çıkar buraya reklam alanı vs gibi bir image eklenebilir
else
toplam = cnet.RecordCount 'Kayıt var ise burada randomize kodumuz başlıyor
Randomize
id = Int((toplam * Rnd ) +0)
cnet.Move(id)
%>
">
<%end if
cnet.close%>
Bağlantı kodlarınızı ve veritabanı yapınızı bilmediğimden böyle basit bir örnek kod hazırladım. Sanırım bu istediğiniz tüm alanlarda gerekli yerleri değiştirerek işinizi görecektir.
Test edilmiştir...
Bu arada cnet bizim değişkenimizdir yani ÇağdaşNeT in kısaltması gibi. Bu kısmı siz kendi yapınıza göre değiştireceksiniz.
Ek Olarak: Durum ne dir !
- Üyelik 02.03.2012
- Yaş/Cinsiyet 48 / E
- Meslek Bilgisayar, Server, Web Tasarım ve Programlama
- Konum İstanbul Avrupa
- Ad Soyad ** **
- Mesajlar 183
- Beğeniler 39 / 49
- Ticaret 6, (%100)
Sorununuz çözüldü mü ! Bir konu açtığınızda cevaplayın ki bundan başkaları da yararlanabilsin.
- Üyelik 15.12.2011
- Yaş/Cinsiyet - / E
- Meslek
- Konum
- Ad Soyad ** **
- Mesajlar 228
- Beğeniler 13 / 80
- Ticaret 5, (%100)
hocam malesef yapamadık.Msn adresini pm atda sana ftp bilgilerini filan verelim.
- Üyelik 11.12.2010
- Yaş/Cinsiyet 37 / E
- Meslek Emekçi
- Konum Edirne
- Ad Soyad H** K**
- Mesajlar 6013
- Beğeniler 3911 / 3920
- Ticaret 6, (%100)
Nedir bu msn ve pm merakı anlamıyorum. Sorularınızı ve bilgilerinizi buradan paylaşınki aynı soruna sahip diğer webmasterlarda bu bilgilerde yararlansın.
Hatalıysam telefon etme, idare et (?)
- Üyelik 02.03.2012
- Yaş/Cinsiyet 48 / E
- Meslek Bilgisayar, Server, Web Tasarım ve Programlama
- Konum İstanbul Avrupa
- Ad Soyad ** **
- Mesajlar 183
- Beğeniler 39 / 49
- Ticaret 6, (%100)
Tekrar Merhaba...
Sitenize ana sayfada bulunan "Son Eklenen Özel Firmalar" istediğiniz gibi raslantsal yaptım lakin veri çektiğiniz bir reklam bölümü göremedim.
Son Eklenen Özel Firmalar bölümünde yazdığım kodlar aşağıdaki gibidir:
Umarım başkaların da işine yarar...
Sitenize ana sayfada bulunan "Son Eklenen Özel Firmalar" istediğiniz gibi raslantsal yaptım lakin veri çektiğiniz bir reklam bölümü göremedim.
Son Eklenen Özel Firmalar bölümünde yazdığım kodlar aşağıdaki gibidir:
<%
sorgum=" Bu alana sorgunuzu belirtin"
Rs.Open Sorgum, Baglantim, 1, 3
if rs.eof or rs.bof then
Else
toplam = rs.RecordCount
Randomize()
sinirlar = toplam
rasgele = sinirlar * Rnd()
rasgele = rasgele
If rasgele=0 Or rasgele="" Then rasgele=1 End if
git = Int(rasgele)
rs.Move(git)
%>
<%do while not rs.eof
if rs.eof then exit do
if ListelenecekAdet< 10 then%>
Veri çekilecek alanlar
<%
ListelenecekAdet=ListelenecekAdet+1
If ListelenecekAdet mod ListelenecekAdet = 0 Then
Response.Write ""
End If
End if
rs.MoveNext
Loop
End If
rs.Close %>
Umarım başkaların da işine yarar...