适合所有网站的rss和xml聚合功能asp代码
2009-02-20 00:00
519 查看
rss.asp格式的
下面代码保存为rss.asp
rss.xml格式的
下面代码保存为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 %>
rss.xml格式的
<!--#include file="conn.asp"--> <% strURL = "http://" & request.servervariables("SERVER_NAME") & _ left(request.servervariables("SCRIPT_NAME"),len(request.servervariables("SCRIPT_NAME"))-len("/rss.asp")) dim foolcat,js set js = server.CreateObject("ADODB.RecordSet") sql = "select * from [表名] order by id asc" set js = conn.execute (sql) foolcat = foolcat + "<?xml version=""1.0"" encoding=""UTF-8"" ?>" foolcat = foolcat + "<rss version=""2.0"">" foolcat = foolcat + "<channel>" foolcat = foolcat + "<title>xxx.com XML feed</title>" foolcat = foolcat + "<link>" & strURL & "</link>" foolcat = foolcat + "<language>zh-cn</language>" foolcat = foolcat + "<copyright>An XML feed for xxx.com</copyright>" do until js.eof foolcat = foolcat + "<item>" foolcat = foolcat + "<title><![CDATA[" & rs("主题字段") & "]]></title>" foolcat = foolcat + "<description><![CDATA[" & rs("主题字段") & "<br />" & rs("内容字段") & "<br /><br />]]></description>" foolcat = foolcat + "<link>" & strURL & "/xxx.asp?Id="&rs("id字段")"</link>" foolcat = foolcat + "<pubDate>" & rs("时间字段") & "</pubDate>" foolcat = foolcat + "</item>" js.movenext loop js.close set js = nothing foolcat = foolcat + "</channel>" foolcat = foolcat + "</rss>" foolcat = "" + foolcat + "" foolcat = "" & foolcat & "" FolderPath = Server.MapPath("/") Set fso = Server.CreateObject("Scripting.FileSystemObject") Set fout = fso.CreateTextFile(FolderPath"\rss.xml") fout.writeLine foolcat fout.close set fout = nothing conn.close set conn = nothing %>
相关文章推荐
- 适合所有网站的rss和xml聚合功能asp代码
- 解决聚合网站发布全文RSS Feed的问题
- 专访AJAX发明人:AJAX并不适合所有网站
- Firefox拟用API让所有网站获得网页通话聊天功能
- 一个学习html(dom),js,css,xml等所有web技术的好网站
- ASP.NET的SEO:Linq to XML---网站地图和RSS Feed
- 用PHP生成RSS Feed,并给网站添加RSS Feed功能
- 在网站内加入RSS功能
- Linq to XML---网站地图和RSS Feed
- http://www.miuo.com 我的网站.密友地带,RSS Home,密友,RSS,XML
- Linq to XML---网站地图和RSS Feed(ASP.NET的SEO)
- 使用JWebUnit应注意的2个问题,并不是所有的网站都适合用JWebUnit的!
- 如何给网站添加rss功能
- 简单PHP搜索引擎源代码,需要开启PHP的cURL扩展。功能:对某一网址进行检索,获取网站基本信息,同时提取网站的所有连接。
- 关于代码阅读问题的小技巧 脚本之家原创(适合所有网站)不定时更新
- jquery cookie实现的简单换肤功能适合小网站
- 获取网站的RSS聚合到自己的网页
- 文件上传的实现 (马马 2001年09月28日 17:14) PHP同样支持上传文件的功能,但并不是所有支持PHP的网站都支持此功能,特别是免费的网站。 实现上传,首先要在HTML上加入上传文件的“<FORM>”表格。 <form me
- 获取网站的RSS聚合到自己的网页!