blogrss2.asp

后台登陆admin.asp

<!--#include file="mdb.asp" -->
<%
Response.ContentType="application/xml"
Response.Expires=0
Response.Write("<?xml version=""1.0"" encoding=""gb2312""?>")
%>
<!--#include file="inc/CONFIG.asp" -->
<!--#include file="inc/function_blog.asp" -->
<rss>
<channel>
<title><%=webName%></title>
<link><%=webURL%></link>
<Description><%=webName%></Description>
<language>zh-cn</language>
<copyright>Copyright 2005-2006 www.ynsky.com.cn</copyright>
<webMaster>[e-mail]</webMaster>
<image>
	<title><%=webName%></title> 
	<url><%=webURL%>/img/logo.gif</url> 
	<link><%=webURL%></link> 
	<description><%=webName%></description> 
</image>
<%
Dim catid
catid=Request.QueryString("cat_id")
IF IsInteger(cate_ID) = False Then
	SQL="SELECT TOP 10 H.blog_ID,H.blog_Title,H.blog_Author,H.blog_PostTime,H.blog_Content,H.blog_IsShow,H.blog_DisSM,H.blog_DisUBB,H.blog_DisIMG,H.blog_AutoURL,H.blog_AutoKEY,X.cate_Name FROM b_Content AS H,b_Cat AS X WHERE blog_IsShow=True AND X.cate_ID=H.blog_cateID ORDER BY blog_PostTime DESC"
Else
	SQL="SELECT TOP 10 H.blog_ID,H.blog_Title,H.blog_Author,H.blog_PostTime,H.b_Content,H.blog_IsShow,H.blog_DisSM,H.blog_DisUBB,H.blog_DisIMG,H.blog_AutoURL,H.blog_AutoKEY,X.cate_Name FROM b_Content AS H,b_Cat AS X WHERE blog_cateID="&catid&" AND blog_IsShow=True AND X.cate_ID=H.blog_cateID ORDER BY blog_PostTime DESC"
End IF
Dim RS
Set RS=Server.CreateObject("ADODB.RecordSet")
RS.Open SQL,Conn,1,1
IF RS.EOF AND RS.BOF Then
	Response.Write("<item></item>")
Else
	Do While NOT RS.EOF
		Response.Write("<item>")
		Response.Write("<link>"&webURL&"/showblog.asp?blog_id="&RS("blog_ID")&"</link>")
		Response.Write("<title><![CDATA["&RS("blog_Title")&"]]></title>")
		Response.Write("<author>"&RS("blog_Author")&"</author>")
		Response.Write("<category>"&RS("cate_Name")&"</category>")
		Response.Write("<pubDate>"&RS("blog_PostTime")&"</pubDate>")
		Response.Write("<guid>"&webURL&"/showblog.asp?blog_id="&RS("blog_ID")&"</guid>")
		Response.Write("<description><![CDATA["&Ubbcode(HTMLEncode(RS("blog_Content")),RS("blog_DisSM"),RS("blog_DisUBB"),RS("blog_DisIMG"),RS("blog_AutoURL"),RS("blog_AutoKEY"))&"]]></description>")
		Response.Write("</item>")
		RS.MoveNext
	Loop
End IF
RS.Close
Set RS=Nothing
Conn.Close
Set Conn=Nothing
%>
</channel>
</rss>