asp动态生成RSS

使用时注意编码设置,如果出现”文本内容中发现无效字符。”请查看编码设置
<%
response.Charset=”utf-8″
session.codepage = 65001
%>
<!–#include file=”../conn.asp”–>
<%
dim strTemp
strTemp=”<?xml version=””1.0″” encoding=””utf-8″”?>”&vblf
‘strTemp=strTemp&”<?xml-stylesheet type=””text/xsl”” title=””XSL Formatting”” href=””/show_new_final.xsl”” media=””all””?>”&vblf
strTemp=strTemp&”<rss version=””2.0″”>”&vblf
strTemp=strTemp&” <channel>”&vblf
strTemp=strTemp&” <title>”&vblf
strTemp=strTemp&” <![CDATA[“&SiteName&”-最新新闻]]>”&vblf
strTemp=strTemp&” </title>”&vblf
strTemp=strTemp&” <image>”&vblf
strTemp=strTemp&” <title>”&vblf
strTemp=strTemp&” <![CDATA[“&SiteName&”]]>”&vblf
strTemp=strTemp&” </title>”&vblf
strTemp=strTemp&” <link><![CDATA[http://”&request.ServerVariables(“Http_Host”)&”/”&SiteVirtualCatalog()&”/<!–未加案例–>]]></link>”&vblf
strTemp=strTemp&” <url>http://www.sinaimg.cn/book/shouye/images/book004.gif</url>”&vblf
strTemp=strTemp&” </image>”&vblf
strTemp=strTemp&” <description>”&vblf
strTemp=strTemp&” <![CDATA[“&SiteName&”-最新新闻<br/>2222]]>”&vblf
strTemp=strTemp&” </description>”&vblf
strTemp=strTemp&” <link></link>”&vblf
strTemp=strTemp&” <language>zh-cn</language>”&vblf
strTemp=strTemp&” <generator>”&request.ServerVariables(“Http_Host”)&”/”&SiteVirtualCatalog()&”/</generator>”&vblf
strTemp=strTemp&” <ttl>5</ttl>”&vblf
strTemp=strTemp&” <copyright>”&vblf
strTemp=strTemp&” <![CDATA[Copyright 1996 – 2008 “&SiteName()&” Inc. All Rights Reserved]]>”&vblf
strTemp=strTemp&” </copyright>”&vblf
strTemp=strTemp&” <pubDate>”&DateTimeToGMT(time())&”</pubDate>”&vblf
strTemp=strTemp&” <category>”&vblf
strTemp=strTemp&” <![CDATA[最新新闻]]>”&vblf
strTemp=strTemp&” </category>”&vblf
set rs=server.CreateObject(“adodb.recordset”)
rs.open findALLInformationByClassId(15,””,0,0),conn,3,2

do until rs.eof

strTemp=strTemp&” <item>”&vblf
strTemp=strTemp&” <title>”&vblf
strTemp=strTemp&” <![CDATA[“&rs(“title”)&”]]>”&vblf
strTemp=strTemp&” </title>”&vblf
strTemp=strTemp&” <link></link>”&vblf
strTemp=strTemp&” <author></author>”&vblf
strTemp=strTemp&” <guid></guid>”&vblf
strTemp=strTemp&” <category>”&vblf
strTemp=strTemp&” <![CDATA[“&rs(“class_id”)&”]]>”&vblf
strTemp=strTemp&” </category>”&vblf
strTemp=strTemp&” <pubDate>”&rs(“input_date”)&”</pubDate>”&vblf
strTemp=strTemp&” <comments></comments>”&vblf
strTemp=strTemp&” <description>”&vblf
strTemp=strTemp&” <![CDATA[  ]]>”&vblf
strTemp=strTemp&” </description>”&vblf
strTemp=strTemp&” </item>”&vblf
rs.movenext
loop
strTemp=strTemp&” </channel>”&vblf
strTemp=strTemp&”</rss>”
Response.ContentType = “text/XML”
response.Write(strTemp)

‘//转换时间为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
%>

« »