作家
登录

适合所有网站的rss和xml聚合功能asp代码

作者: 来源:www.28hudong.com 2013-03-30 08:23:17 阅读 我要评论

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 %> 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 %>

  推荐阅读

  asp HTTP_X_FORWARDED_FOR和REMOTE_ADDR

在Request.ServerVariables中并没有HTTP_X_FORWARDED_FOR这个变量,只有REMOTE_ADDR这个变量,但是这两个变量都能够取得客户端IP地址。那么他们之间的区别是什么呢? 在ASP中使用 Request.ServerVariables("REMOTE>>>详细阅读


本文标题:适合所有网站的rss和xml聚合功能asp代码

地址:http://www.17bianji.com/kaifa2/ASP/32072.html

关键词: 探索发现

乐购科技部分新闻及文章转载自互联网,供读者交流和学习,若有涉及作者版权等问题请及时与我们联系,以便更正、删除或按规定办理。感谢所有提供资讯的网站,欢迎各类媒体与乐购科技进行文章共享合作。

网友点评
自媒体专栏

评论

热度

精彩导读
栏目ID=71的表不存在(操作类型=0)