Main Page
» iyzi Forum Feeds
| orhan | 11 January 2008 08:43:48 |
iyzi Forum Feeds
iyzi forum Rss feed yapmaya çalıştım ama malesef tarih fonksiyonunu çözemedim. Aşağıdaki örnek çalışıyor ama WordPress Feed gibi olmadı (hiç benzemiyo) tabi ve daha çoook düzenlenmeye ihtiyacı var
<!--#INCLUDE FILE="inc_connection.asp"-->
<!--#INCLUDE FILE="inc_date_functions.asp"-->
<%
Response.ContentType = "text/xml"
Call RenderXMLHeader()
Call RenderXMLContent()
Call RenderXMLFooter()
Sub RenderXMLHeader()
Response.Write("<?xml version=""1.0"" encoding=""ISO-8859-9""?>")
Response.Write("<rss version=""2.0"">")
Response.Write("<channel>")
Response.Write("<title>" & SettingsForumName & "</title>")
Response.Write("<link>" & SettingsForumURL & "</link>")
Response.Write("<description>" & SettingsForumName & "</description>")
Response.Write("<language>""tr""</language>")
End Sub
Sub RenderXMLContent()
Dim sHeader
Dim sContent
Dim iPostID
Dim sTime
Set ForumRecords = Connection.Execute("SELECT TOP 10 * FROM iyzi_" & AdditionalTableWord & "Posts Order By PostedOn DESC")
While Not ForumRecords.EOF
iPostID = ForumRecords(0)
sHeader = ForumRecords(3)
sTime = ForumRecords(8)
sContent = ForumRecords(4)
sHeader = PrepeareTextForXMLUse(sHeader)
sContent = PrepeareTextForXMLUse(sContent)
sTime = DisplayDate(TopicDate)
Response.Write("<item>")
Response.Write("<title>" & sHeader & "</title>")
Response.Write("<description>" & sContent & "</description>")
Response.Write("<pubDate>" & sTime & "</pubDate>")
Response.Write("<link>" & SettingsForumUrl & "topic.asp?TopicID=" & iPostID & "</link>")
Response.Write("</item>")
ForumRecords.MoveNext
Wend
ForumRecords.Close()
Set ForumRecords = Nothing
Connection.Close()
Set Connection = Nothing
End Sub
Sub RenderXMLFooter()
Response.Write("</channel>")
Response.Write("</rss>")
End Sub
Function EscapeSpecialChars(Text)
Dim strText
strText = Text
strText = Replace(strText, "&", "&")
strText = Replace(strText, "<", "<")
strText = Replace(strText, ">", ">")
strText = Replace(strText, "'", "'")
strText = Replace(strText, """", """)
EscapeSpecialChars = strText
End Function
Function PrepeareTextForXMLUse(Text)
Text = Text
Text = EscapeSpecialChars(Text)
PrepeareTextForXMLUse = Text
End Function
%>
 |
ZuLuuuuuu (Admin) | 11 January 2008 17:42:57 |
Re: iyzi Forum Feeds
Eklenti için teşekkürler
Tarih konusunda nerede takıldınız?
| orhan | 12 January 2008 09:06:30 |
Re: iyzi Forum Feeds
Veritabanından çekilen değişik kaydedilmiş tarihi, herhangi bir Rss tarih fonksiyonunu hatta inc_date_functions.asp (yanlış) kullanıyorum sanırım 15.07.2007 Perşembe, 17:54:36 şeklinde yazdıramıyorum.
|
ZuLuuuuuu (Admin) | 12 January 2008 11:18:16 |
Re: iyzi Forum Feeds
Tarihler veritabanında şu şekilde tutuluyor:YılAyGünSaatDakikaSaniye
Mesela:
20071012103000
Yukarıda yazan sayı 12 Ekim 2007, saat 10:30:00'a denk geliyor.
Bu tür tarihleri gösterirken inc_date_functions.asp dosyasındaki DisplayDate() fonksiyonundan yararlanılıyor. Bu fonksiyona yukarıdaki türden bir tarih yolladığınız zaman bunu mesela
12.10.2007 10:30:00
şekline dönüştürüyor. İsterseniz o fonksiyonu kullanabilirsiniz ama o zaman tarih olarak "Today" falan yazabilir forum. Bunu engellemek isterseniz DisplayDate() fonksiyonuna bakarak kendiniz bir fonksiyon yazabilirsiniz belki.
| orhan | 12 January 2008 11:43:06 |
Re: iyzi Forum Feeds
Evet denedim 20071012103000 şeklindeki sayıları 12.10.2007 10:30:00 şeklinde yazan bir fonksiyon yapıyorum ama tarih olarak algılamıyor galiba yine tarihi göstermiyor.| betaparticledesign | 19 July 2008 19:16:00 |
Main Page
» iyzi Forum Feeds