asp 生成feed文件代码

  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("")
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
%>



<%=SiteURL%>
]]>
zh-cn

(<%=blog_master%>)]]>
PBlog2 v2.4

 
 <%=SiteURL%>images/logos.gif
 <%=SiteURL%>
 <%=SiteName%>

<%
if ubound(FeedRows,1)=0 then
   Response.Write("")
 else
 for i=0 to ubound(FeedRows,2)
  %>
   
   <%=SiteURL&"default.asp?id="&FeedRows(0,i)%>
   
   <%=blog_email%>(<%=FeedRows(2,i)%>)
   ]]>
   <%=DateToStr(FeedRows(3,i),"w,d m y H:I:S")%>
   <%=SiteURL&"default.asp?id="&FeedRows(0,i)%> 
  <%
   'IF RS("log_IsShow")=False Then
   ' Response.Write("")
   'Else
            IF FeedRows(5,i)=0 then
                Response.Write("")
               else
                Response.Write("")
      end if
   'End IF
  %>
  
  <%
 next
end if%>