blogrss1.asp

1、日志增加首页显示调用index_show.asp 2、日志增加用户的修改和删除权利 3、日志增加文件上传大小修改和限制 4、时间的动态修改 5、增加日志的日志推荐功能 6、用户的ip查询

<!--#include file="commond.asp" -->
<%
Response.contentType="application/xml;charset=utf-8"
Response.Expires=0
Response.Write("<?xml version=""1.0"" encoding=""UTF-8""?>")
%>
<!--#include file="include/function.asp" -->
<!--#include file="include/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:content="http://purl.org/rss/1.0/modules/content/" xmlns="http://purl.org/rss/1.0/">
<channel rdf:about="<%=SiteURL%>">
<title><%=SiteName%></title>
<link><%=SiteURL%></link>
<description><%=SiteName%></description>
<dc:language>
zh-cn</dc:language>
<dc:creator>[e-mail]</dc:creator>
<items>
<rdf:Seq>
<%
Dim cate_ID
cate_ID=Request.QueryString("cateID")
IF IsInteger(cate_ID) = False Then
	SQL="SELECT TOP 10 L.log_ID,L.log_Title,l.log_Author,L.log_PostTime,L.log_Intro,L.log_Content,L.log_IsShow,L.log_DisSM,L.log_DisUBB,L.log_DisIMG,L.log_AutoURL,L.log_AutoKEY,C.cate_Name FROM blog_Content AS L,blog_Category AS C WHERE log_IsShow=True AND C.cate_ID=L.log_cateID ORDER BY log_PostTime DESC"
Else
	SQL="SELECT TOP 10 L.log_ID,L.log_Title,l.log_Author,L.log_PostTime,L.log_Intro,L.log_Content,L.log_IsShow,L.log_DisSM,L.log_DisUBB,L.log_DisIMG,L.log_AutoURL,L.log_AutoKEY,C.cate_Name FROM blog_Content AS L,blog_Category AS C WHERE log_cateID="&cate_ID&" AND log_IsShow=True AND C.cate_ID=L.log_cateID ORDER BY log_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 rdf:about="""&SiteURL&"/blogview.asp?logID="&RS("log_ID")&""">")
		Response.Write("<title><![CDATA["&RS("log_Title")&"]]></title>")
		Response.Write("<description><![CDATA["&RS("log_Intro")&"]]></description>")
		Response.Write("<content:encoded><![CDATA["&Ubbcode(HTMLEncode(RS("log_Content")),RS("log_DisSM"),RS("log_DisUBB"),RS("log_DisIMG"),RS("log_AutoURL"),RS("log_AutoKEY"))&"]]></content:encoded>")
		Response.Write("<link>"&SiteURL&"/blogview.asp?logID="&RS("log_ID")&"</link>")
		Response.Write("<dc:subject>"&RS("cate_Name")&"</dc:subject>")
		Response.Write("<dc:creator>"&RS("log_Author")&"</dc:creator>")
		Response.Write("<dc:date>"&RS("log_PostTime")&"</dc:date>")
		Response.Write("</item>")
		RS.MoveNext
	Loop
End IF
RS.Close
Set RS=Nothing
Conn.Close
Set Conn=Nothing
%>
</rdf:Seq>
</items>
</channel>
</rdf:RDF>