Mar
7Bu yazımızda listelenen kayıtların başka bir sayfada detaylarına bakmayı göreceğiz.
Haber Sistemlerinde, Forumlarda, Resim Galerilerinde vb. yerlerde mutlaka görmüşsünüzdür. Başlığa tıklandığında başka bir sayfada başlığa ait olan yazı görüntülenir.
Bu yazımızda aynı onun gibi bir uygulama yapacağız.
a.asp sayfasında kayıtları listeleteceğiz ve b.asp sayfasında detaylarına bakacağız.
Mantığını açıklayayım. A.asp sayfasında başlıklara B.asp?id=5 gibi linkler vereceğiz. Buradaki id başlığın kimliğidir. Sonra B.asp sayfasında bu id'yi çekerek sql sorgusunda where deyiminde sorgulatıcaz. Ve id'ye denk gelen kayıtları yazdıracağız.
Yazilar adında tablo açın. (Başlık, Yazı, Tarih)
Bir kaç kayıt girin.
A.asp
B.asp
Evet, A.asp'de başlıkları listelettik vs Başlığa tıklayınca B.asp'de başlığa ait olan yazıyı ve tarihi gösterdik.
şimdilik bu kadar, Bir sonraki yazıda görüşmek üzere.
İyi çalışmalar...
Bu yazımızda aynı onun gibi bir uygulama yapacağız.
a.asp sayfasında kayıtları listeleteceğiz ve b.asp sayfasında detaylarına bakacağız.
Mantığını açıklayayım. A.asp sayfasında başlıklara B.asp?id=5 gibi linkler vereceğiz. Buradaki id başlığın kimliğidir. Sonra B.asp sayfasında bu id'yi çekerek sql sorgusunda where deyiminde sorgulatıcaz. Ve id'ye denk gelen kayıtları yazdıracağız.
Yazilar adında tablo açın. (Başlık, Yazı, Tarih)
Bir kaç kayıt girin.
A.asp
<%
Set baglanti=server.CreateObject("Adodb.connection")
yol=server.MapPath("database.mdb")
baglanti.open "Provider=microsoft.jet.oledb.4.0; data source="&yol
Set rs=baglanti.execute("select * from yazilar")
While not rs.eof
Response.write "<a href='"
Response.write "B.asp?id=" & rs("id") & "'>"
Response.write "</a>"
rs.movenext:wend
Set rs=nothing
%>
Set baglanti=server.CreateObject("Adodb.connection")
yol=server.MapPath("database.mdb")
baglanti.open "Provider=microsoft.jet.oledb.4.0; data source="&yol
Set rs=baglanti.execute("select * from yazilar")
While not rs.eof
Response.write "<a href='"
Response.write "B.asp?id=" & rs("id") & "'>"
Response.write "</a>"
rs.movenext:wend
Set rs=nothing
%>
B.asp
<%
Set baglanti=server.CreateObject("Adodb.connection")
yol=server.MapPath("database.mdb")
baglanti.open "Provider=microsoft.jet.oledb.4.0; data source=" & yol
id=request("id") 'kimliği çekiyoruz.
Set rs=baglanti.execute("select * from yazilar where id=" & id)
Response.Write rs("yazi")
Response.Write "<br>Eklenme Tarihi: "
Response.Write rs("tarih")
Set rs=nothing
%>
Set baglanti=server.CreateObject("Adodb.connection")
yol=server.MapPath("database.mdb")
baglanti.open "Provider=microsoft.jet.oledb.4.0; data source=" & yol
id=request("id") 'kimliği çekiyoruz.
Set rs=baglanti.execute("select * from yazilar where id=" & id)
Response.Write rs("yazi")
Response.Write "<br>Eklenme Tarihi: "
Response.Write rs("tarih")
Set rs=nothing
%>
Evet, A.asp'de başlıkları listelettik vs Başlığa tıklayınca B.asp'de başlığa ait olan yazıyı ve tarihi gösterdik.
şimdilik bu kadar, Bir sonraki yazıda görüşmek üzere.
İyi çalışmalar...
Etiketler : detay where sorgu sql id ado adodb recordet connection data source open rs execute set close nothing while wend
İçeriği takip etSayfayı YazdırPermalink1 yorum var
#57.-Abdullah DAğLI-07 Mart 2007 Çarşamba
Bunu 404 hilesini kullanarak da yapabiliriz aslında.
http://www.aspogren.net/kaynak-oku/6/404-rewrite---hata-sayfalarina-hukmetmek.html