<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<!--#include file="Ex_Cls/Ex_CommonCls.asp"-->
<!--#include file="Ex_Cls/Ex_FsoCls.asp"-->
<%
Dim ExComm
Set ExComm=new Ex_CommonCls
ExComm.CheckInstall
ExComm.IsIpAllow
ExComm.GetConfigCache("*")
Response.ContentType="text/xml"
Response.Expires=60
Response.Write("<?xml version=""1.0"" encoding=""gb2312""?>")
%>
<rss version="2.0">
<channel>
<title><![CDATA[<%=Application(sn&"blogname")%>]]></title>
<link><%=Application(sn&"blogurl")%></link>
<Description><![CDATA[<%=Application(sn&"blogname")%>]]></Description>
<language>zh-cn</language>
<copyright>Copyright 2005 exin</copyright>
<webMaster>webmaster@ex123.net</webMaster>
<image>
	<title><![CDATA[<%=Application(sn&"blogname")%>]]></title> 
	<url><%=Application(sn&"logourl")%></url> 
	<link><%=Application(sn&"blogurl")%></link> 
	<description><![CDATA[<%=Application(sn&"blogname")%>]]></description> 
</image>
<%
Dim classid
classid=cint(request("classid"))
Dim sql,Rs
Set Rs=server.CreateObject("adodb.recordset")
If classid=0 Then 
	SQL="SELECT TOP 10 * from Ex_log where ishide='游客' and (logpass='' or isnull(logpass)) and textnum<>0 ORDER BY id DESC"
Else
	sql="SELECT TOP 10 * from Ex_log where ishide='游客' and (logpass='' or isnull(logpass)) and textnum<>0 and classid="&classid&" ORDER BY id DESC"
End If
RS.open sql,conn,1,1
If not RS.EOF AND Not RS.BOF Then
	Do While NOT RS.EOF
		Response.Write("<item>")
		Response.Write("<link>"&Application(sn&"blogurl")&"/blogview.asp?ID="&RS("ID")&"</link>")
		Response.Write("<title>"&RS("Title")&"</title>")
		Response.Write("<author>"&Application(sn&"showname")&"</author>")
		Response.Write("<description><![CDATA["&rs("content")&"]]></description>")
		Response.Write("<category>"&ExComm.GetClassName(RS("classid"))&"</category>")
		Response.Write("<pubDate>"&RS("submittime")&"</pubDate>")
		Response.Write("<guid>"&Application(sn&"blogurl")&"/blogview.asp?id="&RS("ID")&"</guid>")
		IF RS("Ishide")<>"游客" Then
			Response.Write("<description>这是篇隐藏日志，请到 "&Application(sn&"blogname")&" 的首页查看！</description>")
		End IF
		Response.Write("</item>")
		RS.MoveNext
	Loop
Else
		Response.Write("<item></item>")
End IF
Set RS=Nothing
Conn.Close
Set Conn=Nothing
%>
</channel>
</rss>