【下载文档:  适合所有网站的rss和xml聚合功能asp代码.txt 】

---

适合所有网站的rss和xml聚合功能asp代码
rss.asp格式的 下面代码保存为rss.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 "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & strURL & "" & vbcrlf response.write "zh-cn" & vbcrlf response.write "An RSS feed for xxx.comcopyright>" & vbcrlf while not rs.eof response.write "" & vbcrlf response.write "" & vbcrlf response.write ""&strURL"/xxxx.asp?Id="&rs("id")"" & vbcrlf response.write "" & rs("内容字段") & "

]]>" & vbcrlf response.write "" & return_RFC822_Date(rs("时间字段"),"GMT") & "" & vbcrlf response.write "" & vbcrlf rs.movenext wend response.write "" & vbcrlf response.write "" & 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格式的复制代码 代码如下: <% 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 + "" foolcat = foolcat + "" foolcat = foolcat + "" foolcat = foolcat + "" foolcat = foolcat + "" & strURL & "" foolcat = foolcat + "zh-cn" foolcat = foolcat + "An XML feed for xxx.com" do until js.eof foolcat = foolcat + "" foolcat = foolcat + "" foolcat = foolcat + "" & rs("内容字段") & "

]]>" foolcat = foolcat + "" & strURL & "/xxx.asp?Id="&rs("id字段")"" foolcat = foolcat + "" & rs("时间字段") & "" foolcat = foolcat + "" js.movenext loop js.close set js = nothing foolcat = foolcat + "" foolcat = foolcat + "" 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 %>