看过的朋友可帮忙顶哦,这些代码都是第一次发的,外面很多要不就是很复杂,看不懂,要不就是不能用的,下面的我写时候已经尽量简洁明了
为你的网站,博客等添加rss聚合功能,现先给出rss.asp的聚合代码,看大家反应如何,如不错的话再给出生成xml的聚合代码
方便你调试,给出演示 http://www.nbpda.com/rss.asp
以经测试,支持大部分聚合阅读器
下面代码保存为rss.asp
以下是代码片段：
| 以下是代码片段： <!--#include file="conn.asp"--> <% strURL = "http://" & request.servervariables("server_name") & _ left(request.servervariables("script_name"),len(request.servervariables("SCRIPT_NAME"))-len("/rss.asp")) //中的/rss.asp为你的该文件名 sql="select top 100 * from [表名] order by id desc" //根据自己实际修改,top 100 为最新100条,自己修改,同时可以增加查询条件,如where xxx=1.... set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 response.contenttype="text/xml" response.write "<?xml version=""1.0"" encoding=""gb2312"" ?>" & vbcrlf response.write "<rss version=""2.0"">" & vbcrlf response.write "<channel>" & vbcrlf response.write "<title>xxx.com RSS feed</title>" & vbcrlf response.write "<link>" & strURL & "</link>" & vbcrlf response.write "<language>zh-cn</language>" & vbcrlf response.write "<copyright>An RSS feed for xxx.comcopyright>" & vbcrlf while not rs.eof response.write "<item>" & vbcrlf response.write "<title><![CDATA[" & rs("title") & "]]></title>" & vbcrlf response.write "<link>"&strURL&"/xxxx.asp?Id="&rs("id")&"</link>" & vbcrlf response.write "<description><![CDATA[" & rs("主题字段") & "<br />" & rs("内容字段") & "<br /><br />]]></description>" & vbcrlf response.write "<pubDate>" & return_RFC822_Date(rs("时间字段"),"GMT") & "</pubDate>" & vbcrlf response.write "</item>" & vbcrlf rs.movenext wend response.write "</channel>" & vbcrlf response.write "</rss>" & vbcrlf rs.close set rs=nothing Function return_RFC822_Date(byVal myDate, byVal TimeZone) Dim myDay, myDays, myMonth, myYear Dim myHours, myMinutes, mySeconds
myDate = CDate(myDate) myDay = EnWeekDayName(myDate) myDays = Right("00" & Day(myDate),2) myMonth = EnMonthName(myDate) myYear = Year(myDate) myHours = Right("00" & Hour(myDate),2) myMinutes = Right("00" & Minute(myDate),2) mySeconds = Right("00" & Second(myDate),2)
return_RFC822_Date = myDay&", "& _ myDays&" "& _ myMonth&" "& _ myYear&" "& _ myHours&":"& _ myMinutes&":"& _ mySeconds&" "& _ " " & TimeZone End Function Function EnWeekDayName(InputDate) Dim Result Select Case WeekDay(InputDate,1) Case 1:Result="Sun" Case 2:Result="Mon" Case 3:Result="Tue" Case 4:Result="Wed" Case 5:Result="Thu" Case 6:Result="Fri" Case 7:Result="Sat" End Select EnWeekDayName = Result End Function Function EnMonthName(InputDate) Dim Result Select Case Month(InputDate) Case 1:Result="Jan" Case 2:Result="Feb" Case 3:Result="Mar" Case 4:Result="Apr" Case 5:Result="May" Case 6:Result="Jun" Case 7:Result="Jul" Case 8:Result="Aug" Case 9:Result="Sep" Case 10:Result="Oct" Case 11:Result="Nov" Case 12:Result="Dec" End Select EnMonthName = Result End Function %> |