|
<script>ec(2);</script> <% function AddSiteURL(ByVal Str)
If IsNull(Str) Then
AddSiteURL = ""
Exit Function
End If Dim re
Set re=new RegExp
With re
.IgnoreCase =True
.Global=True
.Pattern="<img (.*?)src=""(?!(http|https)://)(.*?)"""
str = .replace(str,"<img $1src=""" & SiteURL & "$3""")
.Pattern="<a (.*?)href=""(?!(http|https|ftp|mms|rstp)://)(.*?)"""
str = .replace(str,"<a $1href=""" & SiteURL & "$3""")
End With
Set re=Nothing AddSiteURL=Str
End Function '==================================
' Feed日志订阅
' 更新时间: 2005-11-19
'==================================
'读取Blog设置信息
getInfo(1) '写入关键字列表
Keywords(1) '写入表情符号
Smilies(1)
Response.Charset = "UTF-8"
Response.ContentType="text/xml"
Response.Expires=60
Response.Write("<?xml version=""1.0"" encoding=""UTF-8""?>")
Dim cate_ID,FeedCate,FeedTitle,memName,FeedRows
cate_ID=CheckStr(Request.QueryString("cateID"))
FeedCate=False
FeedTitle=UnCheckStr(SiteName)
IF IsInteger(cate_ID) = False Then
SQL="SELECT TOP 10 L.log_ID,L.log_Title,l.log_Author,L.log_PostTime,L.log_Content,L.log_edittype,C.cate_Name FROM blog_Content AS L,blog_Category AS C WHERE C.cate_ID=L.log_cateID AND L.log_IsShow=true AND L.log_IsDraft=false and C.cate_Secret=false ORDER BY log_PostTime DESC"
Else
SQL="SELECT TOP 10 L.log_ID,L.log_Title,l.log_Author,L.log_PostTime,L.log_Content,L.log_edittype,C.cate_Name FROM blog_Content AS L,blog_Category AS C WHERE log_cateID="&cate_ID&" AND C.cate_ID=L.log_cateID AND L.log_IsShow=true AND L.log_IsDraft=false and C.cate_Secret=false ORDER BY log_PostTime DESC"
FeedCate=True
End IF
Dim RS,DisIMG,i
Set RS=Conn.ExeCute(SQL)
if RS.EOF or RS.BOF then
ReDim FeedRows(0,0)
else
if FeedCate then FeedTitle=UnCheckStr(SiteName & " - " & RS("cate_Name"))
FeedRows=RS.getrows()
end if
RS.close
set RS=nothing
Conn.Close
Set Conn=Nothing
%>
<rss version="2.0">
<channel>
<title><![CDATA[<%=FeedTitle%>]]></title>
<link><%=SiteURL%></link>
<description><![CDATA[<%=blog_Title%>]]></description>
<language>zh-cn</language>
<copyright><![CDATA[Copyright 2005 PBlog2 v2.4]]></copyright>
<webMaster><![CDATA[<%=blog_email%>(<%=blog_master%>)]]></webMaster>
<generator>PBlog2 v2.4</generator>
<image>
<title><%=SiteName%></title>
<url><%=SiteURL%>images/logos.gif</url>
<link><%=SiteURL%></link>
<description><%=SiteName%></description>
</image>
<%
if ubound(FeedRows,1)=0 then
Response.Write("<item></item>")
else
for i=0 to ubound(FeedRows,2)
%>
<item>
<link><%=SiteURL&"default.asp?id="&FeedRows(0,i)%></link>
<title><![CDATA[<%=FeedRows(1,i)%>]]></title>
<author><%=blog_email%>(<%=FeedRows(2,i)%>)</author>
<category><![CDATA[<%=FeedRows(6,i)%>]]></category>
<pubDate><%=DateToStr(FeedRows(3,i),"w,d m y H:I:S")%></pubDate>
<guid><%=SiteURL&"default.asp?id="&FeedRows(0,i)%></guid>
<%
'IF RS("log_IsShow")=False Then
' Response.Write("<description><![CDATA[这是篇隐藏日志，请到 "&SiteName&" 的首页查看!]]></description>")
'Else
IF FeedRows(5,i)=0 then
Response.Write("<description><![CDATA["&AddSiteURL(UnCheckStr(FeedRows(4,i)))&"]]></description>")
else
Response.Write("<description><![CDATA["&AddSiteURL(UBBCode(HTMLEncode(FeedRows(4,i)),0,0,0,1,1))&"]]></description>")
end if
'End IF
%>
</item>
<%
next
end if%>
</channel>
</rss>
|
