<!--#include file="inc/Config.asp" -->
<%
Dim xmlString,Url,Info
UserTrue=True
response.ContentType = "text/xml"
xmlString="<?xml version=""1.0"" encoding=""gb2312""?>" & Chr(13)
xmlString=xmlString&"<rss version=""2.0"">"& Chr(13) &"<channel>" & Chr(13)
IF CblogObj.QueryStringPage("blogname",True)<>"" Then
	xmlString=xmlString&" <title>"& WebName &"--"& CblogObj.QueryStringPage("blogname",True) &" Rss订阅</title>" & Chr(13) 
Else
	xmlString=xmlString&" <title>"& WebName &" 文章 RSS</title>" & Chr(13) 
End IF
xmlString=xmlString&"<copyright><![CDATA[Powered by CixiBlog V3.0CityBlogV1.0]]></copyright>" & Chr(13)
IF CblogObj.QueryStringPage("userid",True)<>"" Then
	IF ISnumeric(CblogObj.QueryStringPage("userid",True)) Then
		Set Rs=Conn.Execute("Select Top 100 Article_ID,User_ID,Article_Time,Article_Title,Article_Zy From Article Where Article_Hid<>1 And User_ID="& CblogObj.QueryStringPage("userid",True) &" Order By Article_ID Desc")
	Else
		Set Rs=Conn.Execute("Select Top 100 Article_ID,User_ID,Article_Time,Article_Title,Article_Zy From Article Where Article_Hid<>1 Order By Article_ID Desc")
	End IF
Else
	Set Rs=Conn.Execute("Select Top 100 Article_ID,User_ID,Article_Time,Article_Title,Article_Zy From Article Where Article_Hid<>1 Order By Article_ID Desc")
End IF
If Not Rs.Eof Then
	Do While Not Rs.Eof
		Info=Rs(4)
		Url=Territory & CblogObj.GetDir(Rs(1)) & "/Show.asp?/_articleid/" & Rs(0) & ".html"
		xmlString=xmlString&"<item>" & Chr(13)
		xmlString=xmlString&"<pubDate><![CDATA["& Rs(2) &"]]></pubDate>" & Chr(13)
		xmlString=xmlString&"<title><![CDATA["& Rs(3) &"]]></title>" & Chr(13)
		xmlString=xmlString&"<link><![CDATA["& Url &"]]></link>" & Chr(13)
		xmlString=xmlString&"<description><![CDATA["& Info &"]]></description>" & Chr(13)
		xmlString=xmlString&"</item>" & Chr(13)
	Rs.MoveNext
	Loop
Else
	xmlString=xmlString&"<item>" & Chr(13)
	xmlString=xmlString&"<title><![CDATA[没有任何日志]]></title>" & Chr(13)
	xmlString=xmlString&"</item>" & Chr(13)
End IF
xmlString=xmlString&"</channel>" & Chr(13) & "</rss>"
Rs.Close:Set Rs=Nothing
Response.Write xmlString
Set CblogObj=Nothing
%>