rss1.asp

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

<?xml version="1.0" encoding="gb2312"?>
<!--#INCLUDE FILE="conn.asp" -->
<!--#INCLUDE FILE="log_lib.asp" -->
<!--#include file="ubbcode.asp" -->

<rdf:RDF xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:sy="http://purl.org/rss/1.0/modules/syndication/" xmlns:admin="http://webns.net/mvcb/" xmlns="http://purl.org/rss/1.0/">
<channel rdf:about="http://www.IAMTING.com/">
<title>IAMTING 2004VER3</title> 
<link>http://www.IAMTING.com</link> 
<description>IAMTING 2004VER3</description>
<dc:language>gb2312</dc:language>
<dc:creator>[e-mail]</dc:creator>
</channel>

<%
'=========================================定义日记本网址变量
        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><![CDATA[此处一篇隐藏的日记]]></title>"
	response.write "<dc:creator>"&rs("log_author")&"</dc:creator>"
	response.write "<dc:subject>隐藏分类</dc:subject>"
	response.write "<dc:date>"&rs("written_time")&"</dc:date>"
	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><![CDATA["&rs("log_tittle")&"]]></title>"
	response.write "<dc:creator>"&rs("log_author")&"</dc:creator>"
    response.write "<dc:subject>"&incat&"</dc:subject>" 
	response.write "<dc:date>"&rs("written_time")&"</dc:date>"

   realcontent=rs("log_content")
   realcontent=unhtml(realcontent)
   'if rs("allows")=0 then realcontent=Smilies(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

%>


</rdf:RDF>