rss2feed.asp

这是一个非常好的留言版程序

<!--#include file="conn.asp"-->
<!--#include file="include/function.asp"-->
<!--#include file="include/setup.asp"-->
<%
dim Csort,Cuser,Ctag
Csort=Trim(Request.QueryString("sort"))
Cuser=Trim(Request.QueryString("u"))
Ctag=Trim(Request.QueryString("t"))
Cp=Trim(Request.QueryString("p"))
if Cp="" then Cp="id"
if Cp=" " then Cp="id"
Response.ContentType="application/xml"
Response.Expires=0
Response.Write("<?xml version=""1.0"" encoding=""GB2312""?>")
Response.Write("<rss version=""2.0"">")
%>
<channel>
<title><%=SiteName%>--全球最大中文娱乐网摘</title>
<description>网摘·网络书签·收藏夹</description> 
<link><%=SiteURL%></link>
<generator> (<%=SiteURL%>)</generator>
<language>zh-cn</language>
<copyright>Copyright 2006 DZHAI.COM </copyright>
<webMaster><%=SiteEmail%></webMaster>
<docs><%=SiteName%></docs>
<image>
	<title><%=SiteName%></title> 
	<url><%=SiteURL%></url> 
	<link><%=SiteURL%></link><description><%=SiteName%></description></image><%
Dim SQL,WHERE
SQL="SELECT TOP 20 ID,UserID,Title,FromURL,Sort,Intro,PostTime FROM zhai"
if Csort<>"" then
	WHERE=" WHERE Sort='"+Csort+"'"
end if
if Cuser<>"" then
	if WHERE <> "" then
		WHERE=WHERE+" AND UserID='"+Cuser+"'"
	else
		WHERE=" WHERE UserID='"+Cuser+"'"
	end if
end if
if Ctag<>"" then
	if WHERE <> "" then
		WHERE=WHERE+" AND Xsort like '%"+Ctag+"%'"
	else
		WHERE=" WHERE Xsort like '%"+Ctag+"%'"
	end if
end if
SQL=SQL+WHERE+" ORDER BY "&Cp&" DESC"
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("<title><![CDATA["&RS("Title")&"]]></title>")
		Response.Write("<link>"&SiteURL&"/zhaishow.asp?id="&RS("ID")&"</link>")
		Response.Write("<description><blockquote><![CDATA["&RS("Intro")&"]]></blockquote></description>")
		Response.Write("<pubDate><![CDATA["&RS("PostTime")&"]]></pubDate>")
		Response.Write("<author>"&RS("UserID")&"</author>")
		Response.Write("<category>"&RS("Sort")&"</category>")		
		Response.Write("<guid>"&SiteURL&"/zhaishow.asp?id="&RS("ID")&"</guid>")		
		Response.Write("</item>")
		RS.MoveNext
	Loop
End IF
RS.Close
Set RS=Nothing
Conn.Close
Set Conn=Nothing
%></channel></rss>