chat ege.net

Sitenize RSS Desteği Ekleyin

db.gen.tr

Yeni Üye
Katılım
1 Ara 2006
Mesajlar
0
Yaş
39
Konum
<%=istanbul%>
Aşağıdaki kodla veri tabanınızda son girilen 10 veriyi açıklama kısmında 200 karakter göstererek rss formatına dönüştürebilirsiniz. Sistemi yaptıktan sonra çalışıp çalışmadığını;

http://www.haberss.com/?r=http://www.arshiv.net/rss.asp

şeklinde kontrol edebilirsiniz güle güle kullanın :)

PHP:
<%
response.contenttype="text/xml"
  Set conn= Server.CreateObject("ADODB.Connection")
  conn.Open ("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db.mdb"))

response.write "<?xml version=""1.0"" encoding=""ISO-8859-9""?>" & vbcrlf
response.write "<rss version=""2.0"">" & vbcrlf
response.write "<channel>" & vbcrlf
response.write "<title>siteadi.com</title>" & vbcrlf
response.write "<rs>http://www.asiteadi.com/</rs>" & vbcrlf
response.write "<description>Son Eklenen 10 Veri</description> " & vbcrlf
response.write "<language>tr</language>" & vbcrlf
response.write "</channel>" & vbcrlf

set rs = conn.execute("Select top 10 * from tabloadi order by id desc")
do while not rs.eof

Response.Write("<item>" & _
vbCrLf & "<title>" & rs("baslik") & "</title>" & _
vbCrLf & "<link>http://www.siteadi.com/yazi.asp?id="& rs("id") &"</link>" & _
vbCrLf & "<description>"& left(rs("aciklama"),200) &"  " & _
vbCrLf & "</description>" & _
vbCrLf & "<pubdate>" & rs("tarih") & "</pubdate>" & _
vbCrLf & "</item>")

rs.movenext
loop

response.write "</rss>" & vbcrlf
rs.close
%>
 
Türkiye’nin ilk webmaster forum sitesi iyinet.com'da forum üyeleri tarafından yapılan tüm paylaşımlardan; Türk Ceza Kanunu’nun 20. Maddesinin, 5651 Sayılı Kanununun 4. maddesinin 2. fıkrasına göre, paylaşım yapan üyeler sorumludur. iyinet.com sayfalarında yer alan yazı, görsel ve linklerle ilgili hukuki şikayetleriniz için Buradan iletişime geçmeniz durumunda, ilgili kanunlar ve yönetmelikler çerçevesinde en geç 7 gün içerisinde iyinet yönetimince tarafınıza dönüş sağlanacaktır. Betcup Artemisbet
Üst