asp動態生成RSS完整版代碼

–
<%@LANGUAGE=”VBSCRIPT” CODEPAGE=”65001″%>
<%
Response.Charset=”UTF-8″
Session.CodePage=65001

Dim db,Conn,Rs
Set Conn=Server.CreateObject(“Adodb.Connection”)
db=”db1.mdb”
Conn.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=”&Server.MapPath(db)
‘Conn.Open “Driver={Microsoft Access Driver (*.mdb)};DBQ=”&Server.MapPath(db)

‘//轉換時間為GMT(RFC822)格式
Function DateTimeToGMT(sDate)
   Dim dWeek,dMonth
   Dim strZero,strZone
   strZero=”00″
   strZone=”+0800″
   dWeek=Array(“Sun”,”Mon”,”Tue”,”Wes”,”Thu”,”Fri”,”Sat”)
   dMonth=Array(“Jan”,”Feb”,”Mar”,”Apr”,”May”,”Jun”,”Jul”,”Aug”,”Sep”,”Oct”,”Nov”,”Dec”)
   DateTimeToGMT = dWeek(WeekDay(sDate)-1)&”, “&Right(strZero&Day(sDate),2)&” “&dMonth(Month(sDate)-1)&” “&Year(sDate)&” “&Right(strZero&Hour(sDate),2)&”:”&Right(strZero&Minute(sDate),2)&”:”&Right(strZero&Second(sDate),2)&” “&strZone
End Function
‘//截取標題長度
Public Function Cut(Str, StrLen)
 Dim l, t, c, I
 l = Len(Str)
 t = 0
 For I = 1 To l
  c = AscW(Mid(Str, I, 1))
  If c < 0 Or c > 255 Then t = t + 2 Else t = t + 1
  If t >= StrLen Then
   Cut = Left(Str, I) & “…”
   Exit For
  Else
   Cut = Str
  End If
 Next
End Function
%>
<%
Dim sRssHead,sRssBody,sRssEnd,sSql
Response.ContentType = “text/xml”
sRssHead = “<rss version=””2.0″”>” & vbNewLine
sRssHead = sRssHead &”<channel>”& vbNewLine
‘頻道(channel)名稱
sRssHead = sRssHead &”<title>Rss頻道標題</title>”& vbNewLine
‘頻道所用語言
sRssHead = sRssHead & “<language>zh-cn</language>” & vbNewLine
‘響應該頻道的網站的URL
sRssHead = sRssHead &”<link>http://www.QQView.com/WebRss.Asp</link>”& vbNewLine
‘與頻道一起顯示的圖片地址
sRssHead = sRssHead &”<image>”& vbNewLine
‘是GIF、JPEG或PNG圖像文件的URL地址，該圖像代表整個頻道
sRssHead = sRssHead &”<url>/XrssFile/2007-12/8/2007128112855344.png</url>”& vbNewLine
‘響應該頻道的網站的URL
sRssHead = sRssHead &”<link>http://www.QQView.com/WebRss.Asp</link>”& vbNewLine
‘頻道(channel)名稱
sRssHead = sRssHead &”<title>Rss頻道標題</title>”& vbNewLine
‘圖片結束
sRssHead = sRssHead &”</image>”& vbNewLine
 
‘內容的發布時間
sRssHead = sRssHead &”<pubDate>”&DateTimeToGMT(Now())&”</pubDate>”& vbNewLine
‘指向rss格式文檔的url地址?
sRssHead = sRssHead &”<docs>http://www.QQView.com/WebRss.Asp</docs>”& vbNewLine
‘技術人員的Email
sRssHead = sRssHead &”<webMaster>Xbell@163.com</webMaster> “& vbNewLine
‘關于該頻道的描述
sRssHead = sRssHead &”<description>頻道描述</description>” & vbNewLine
‘生成該頻道的程序的名稱
sRssHead = sRssHead & “<generator>Rss Generator By 網絡大本營</generator>” & vbNewLine
sSql = “Select Top 10 ID,Title,Content,Time,Url From [Article] Order By ID Desc”
Set Rs=Conn.Execute(sSql)

Do While Not Rs.Eof
sRssBody = sRssBody & “<item>” & vbNewLine
‘item(節點)的標題
sRssBody = sRssBody & “<title><![CDATA[“&Rs(“title”)&”]]></title>” & vbNewLine
‘item(節點)的概要
sRssBody = sRssBody & “<description><![CDATA[“&Cut(Rs(“content”),150)&”]]></description>” & vbNewLine
‘item(節點)的URL
sRssBody = sRssBody & “<link>”&Rs(“Url”)&”</link>” & vbNewLine
‘item(節點)作者的Email
sRssBody = sRssBody & “<author>Xbell@163.com</author>” & vbNewLine
‘內容的發布時間
sRssBody = sRssBody &”<pubDate>”&Rs(“Time”)&”</pubDate>”& vbNewLine
‘item(節點)結束
sRssBody = sRssBody &”</item>”
Rs.MoveNext
Loop
Rs.Close
Set Rs=Nothing
sRssEnd = “</channel></rss>”
Response.Write(sRssHead)
Response.Write(sRssBody)
Response.Write(sRssEnd)
Conn.Close
Set Conn=Nothing
%