Forum
Aktif konular
Üyeler
Kurallar
Arama
Asp De Sayfalama... Asp De Sayfalama...
-
arkadaslar merhaba ben yenı yenı asp ye basladım ve bı form var bu formdan gelen degerler
db e kaydoluyor ben bu db ye gelen verılerın once 1 sutununu lıstelemek ıstıyorum
yanı dıyelım site adları war once sıte adlarını lıstelıycem sanırım buda ID ıle olck (yanlıs dusunms olablrm)
sonra o verıye tıklyncada dıger ozellıkler sutunlardan verıler cekılck
ben bıkac ornek ınceledm beceremedım sızler ornek kodlar paylasırmısınız sımdıden tesk...
-
mesela isim sütununu çek (rs olsun kayıtseti)
sql : "select id, isim from uyeler order by id asc"<% do while not rs.eof %>
<a href= "sorgu.asp?id=<%=rs("id")%>"><%=rs("isim")%> adlı üyenin bilgileri için tıkla </a>
<%
rs.movenext
loop%>sonra sorgu asp sayfasında da
id = request.querystring("id") şeklinde id değişkenini al
yeni bi sql ile sorgula
sql="select * from uyeler where id="& id &""şeklinde
-
db bağlantısı yap burda
<!------------------------Listele Başlangııç------------------------->
db bağlantısı yap burda
<%
set rec = server.createobject("adodb.recordset")
sql="select * from fikralar"
rec.open sql,conn,3,3
pg=Request.Querystring("pg")
if pg="" Then
pg=1
End if
%>
<%
rec.Pagesize = 15
rec.absolutepage = pg
sayfalama = rec.pagecount
%>
<%for x = 1 to rec.Pagesize
if rec.eof Then exit for
%>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="95%" bordercolor="#C0C0C0">
<tr>
<td>
<b>
<a href="<% ="fikra-oku.asp?id=" & rec("id") %>" title="<% =rec("baslik") %>">
<font color="#1A7CA9"><% =rec("baslik")%>.</font></a><font color="#1A7CA9">
</font></b>
</td>
<td width="141" bgcolor="#C0C0C0"> <font color="#FF0000">Hit : <%=rec("hit")%></font></td>
</tr>
</table><br>
<%
rec.movenext
next
%>
<%
For y=1 to sayfalama
if pg=y Then
response.write y
else
response.write "<a href=fikralar.asp?pg="&y&"><b>"&y&"</b></a> "
end if
%>
<%next%>
<!------------------------Listeleme Bitiş-------------------------><!------------------------Fikraoku.asp Başlangç ------------------------->
<%
else
Set rec = Server.CreateObjecT("ADODB.RecordSet")
rSQL = "Select * FROM fikra WHERE id=" & id & ""rec.open rSQL,Connection,3,3
rec("hit")=rec("hit")+1
rec.update
%>
<%end if%><%=rec("baslik")%>
<%=rec("detay")%>
<%=rec("hit")%>
<%=rec("tarih")%>
<%=rec("vs")%>
<!------------------------FıkraOku.asp Bitiş------------------------->
Al Bak Burda Herşey Var Bunları Değiştir Kendine Göre Kullan fıkra Oku ya girdiğinde fıkraya + 1 hit katıyo oda benden :D
hadi kolay gelsin sorun olursa yaz buraya
-
hoca adamın istediği o değil. konunun adı şüpheli. Adamın Mesajını okursan o olmadığını anlarsın..
-
tmm alp detaylı okudum yazıyı :D adamın istediği asp den başka kodlamaları ilgilendirio js filan bilen kişiler yardımcı olur
-
aynı anda sütunların açılması gerekmez tıklanınca başka bi sayfada açılacak diyo sanırsam js'e de gerek yok aslında
-
tmm başka sayfada acılcaksa bnm ki olur işte birinle listeletsin istediklerini diğerinde tüm ayrıntılarla göstersin
-
peki hoca peki :) Yalnız fıkra scriptinin kodlarını yapıştırmışsın adam onu düzenleyene kadar kendisi yazar :) Sanırım mantığını sormuş gerçi eleman da yok ortalıkta.
-
hyr o scrip değil az önce kendi sitem için portal kodluyodum ondan yapışdırdım adam gelsin bakarız istediğine
-
evet mangıtı sordum alp hocam senın verdıgınde bı amatör ıcın biraz zorlu olsa grek:)
<%
veritabaniyolu = "depo.mdb"
Set baglantimiz = Server.CreateObject("ADODB.Connection")
baglantimiz.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("depo.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from depotablo"
rs.Open sql, baglantimiz,1,3
if rs.eof then
response.write "Kayıt bulunamadı."
else
do while not rs.eof
response.write rs("siteadi")
response.write rs("isim")
response.write "<br>"
rs.movenext
loop
rs.Close
set rs = nothing
%>
ben sunu yaptım ama :S -
tamam hoca her şeyi yapmışsın bi tek html kısmı kalmış :) en basit yerini yapamamışsın zaten
İlgili yeri aldım
<%
veritabaniyolu = "depo.mdb"
Set baglantimiz = Server.CreateObject("ADODB.Connection")
baglantimiz.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("depo.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from depotablo"
rs.Open sql, baglantimiz,1,3
if rs.eof or rs.bof then
response.write "Kayıt bulunamadı."
else
do while not rs.eof
%>
<a target="_blank" href= "hangisayfaolucaksa.asp?id="<%=rs("id")%>"><%=rs("siteadi")%></a><br>
<%
rs.movenext
loop
rs.Close
set rs = nothing
%>Şimdi bu kodlar listeleme kodları "hangisayfaolacaksa.asp" yerine istediğin bi sayfa adı yaz mesela "sorgu.asp" sonra sorgu.asp sayfasını oluştur ve şu kodları yaz.
veritabaniyolu = "depo.mdb"
Set baglantimiz = Server.CreateObject("ADODB.Connection")
baglantimiz.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("depo.mdb")
id = request.querystring("id")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from depotablo where id="& id &""
rs.Open sql, baglantimiz,1,3
if rs.eof or rs.bof then
response.write "böyle bir kayıt yok"
else
%>
<%=rs("siteadi")%> <%=rs("diğersütununadı")%> <%=diğersütununadı%>
<%
end if
rs.close
set rs = nothing
%>koyu yazdığım yerlerdeki rs("") içindeki değerleri kendine göre yazarsın veritabanında neyi listeleyeceksen, ya da daha fazla ekleyebilrsin kafana göre ayarlamaları yaparsın bundan sonra.
Biraz acele yazdım hata verirse haber ver halledelim
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Cevapla