blog的rss2.0

blog的rss2.0

适合于任何hosin blog版本，使用时先解压后直接上传至blog根目录，修改conn.asp文件的siteurl=rssys("siteurl")上传覆盖即可。   
如果出错，接着修改conn.asp的sitename=rssys("sitename")   
希望大家能喜欢。   
有了rss，大家就可以去如http://www.feedss.com提交您的blog至blog搜索引擎。  

【rss.asp】代码如下： 

<!--#include file="conn.asp" -->  
<%  
Response.ContentType="application/xml"  
Response.Expires=0  
Response.Write("<?xml version=""1.0"" encoding=""UTF-8""?>")  
%>  
<rss>  
<channel>  
<title><%=sitename%></title>  
<link><%=siteurl%></link>  
<Description><%=sitename%></Description>  
<language>zh-cn</language>  
<copyright>Copyright 2003-2004 kuhanzhu</copyright>  
<webMaster>kuhanzhu@sohu.com</webMaster>  
<image>  
 <title><%=sitename%></title>   
 <url><%=siteurl%>/images/logo.gif</url>   
 <link><%=siteurl%></link>   
 <description><%=sitename%></description>   
</image>  
<%  
Dim RS  
Set RS=Server.CreateObject("ADODB.RecordSet")  
 SQL="select top 40 * from content where fid=0 order by id desc"  
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("<link>"&siteurl&"/show.asp?id="&RS("id")&"</link>")  
  Response.Write("<title><![CDATA["&RS("Title")&"]]></title>")  
  Response.Write("<author>"&RS("auther")&"</author>")  
  Response.Write("<category>个人日志</category>")  
  Response.Write("<pubDate>"&rs("Day")&"</pubDate>")  
  Response.Write("<guid>"&siteurl&"/show.asp?id="&RS("id")&"</guid>")  
  Response.Write("<description><![CDATA["&left(RS("article")‚100)&"]]></description>")  
  Response.Write("</item>")  
  RS.MoveNext  
 Loop  
End IF  
RS.Close  
Set RS=Nothing  
Conn.Close  
Set Conn=Nothing  
%>  
</channel>  
</rss>

asp图片验证码2006-3-4

alt 中的注释文字换行的方法[图]2006-3-4

网站推广之网页优化篇/网页设计—文字的格式化2006-3-4

网站推广之网页优化篇/网页设计—网页的排版与布局优化2006-3-4

网站推广之网页优化篇/网页设计—网页导航设计优化2006-3-4

blog的rss2.0 2006-3-4

asp 查看服务器文件2006-3-4

利用ASP打造站内搜索引擎2006-3-4

用ASP建立站内搜索2006-3-4

数据库实现显示、添加、修改、删除的最简单的方法及实例2006-3-4