rss2.asp

blog 程序 DIV BLOG 0.6 Readme [ http://www.IamTing.com ] DIV BLOG 0.6版更新说明 =====================

<?xml version="1.0" encoding="gb2312"?>
<!-- RSS generated by Poorfish on 11/26/2003 ; 感谢LeXRus提供 RSS 2.0 文档; 此文件可自由使用，但请保留此行信息 --> 
<!-- Source download URL: http://www.IAMTING.com/rss2.rar-->
<!--#INCLUDE FILE="conn.asp" -->
<!--#INCLUDE FILE="log_lib.asp" -->
<!--#include file="ubbcode.asp" -->
<rss version="2.0">
	<channel>
		<title>IAMTING 2004VER3</title> 
		<link>http://www.IAMTING.com</link> 
		<description>IAMTING 2004VER3</description>
		<copyright>IAMTING.com</copyright>
		<lastBuildDate>TUS, 20 May 2004 09:17:00 +0800</lastBuildDate>
		<generator>TING</generator>
		<webMaster>[e-mail]</webMaster>

<%
'=========================================定义日记本网址变量
        dlog_url="http://www.IAMTING.com"
'===========================================================

        cat_id=request("cat_id")
        if cat_id<>"" then 
           bycat="where cat_id="&cat_id
        else
           bycat=""
        end if

	dim rs
	dim SQL
	set rs = Server.CreateObject("ADODB.Recordset")
	SQL = "Select top 10 * from log "&bycat&" order by log_id desc"
	rs.open SQL,conn,1,1

	if rs.Eof or rs.Bof then
	   response.write "<item></item>"
	end if
	do until rs.Eof or total = 20

checkhide(rs("cat_id"))
if noneshow="true" then
	Response.Write "<item>"
	response.write "<link>"&dlog_url&"showlog.asp?log_id="&rs("log_id")&"</link>"
	Response.write "<title>此处一篇隐藏的日记</title>"
	response.write "<creator>"&rs("log_author")&"</creator>"
	response.write "<PubDate>"&rs("written_time")&"</PubDate>"
	response.write "<description>内容不可见</description>"
	response.write "</item>"
else
    response.Write "<item>"
	response.write "<link>"&dlog_url&"showlog.asp?log_id="&rs("log_id")&"</link>"
	Response.write "<title>"&rs("log_tittle")&"</title>"
	response.write "<creator>"&rs("log_author")&"</creator>"
	response.write "<PubDate>"&rs("written_time")&"</PubDate>"

   realcontent=rs("log_content")
   realcontent=unhtml(realcontent)
   if rs("allowubb")=0 then realcontent=ubb(realcontent)

	response.write "<description><![CDATA["&realcontent&"]]></description>"
	response.write "</item>"

end if
	
	rs.MoveNext          
	i = i + 1
	total = total + 1
	loop                  
	
	
	set rs=nothing
	conn.Close
	set conn = nothing

%>

	</channel>
</rss>