% Option explicit %>  
!--#include file="Manage/Include/Config.do" --> 
%  
Dim sSQL, rs, sCrLf, sXmlClear, sRssHead, sRssEnd ,Url 
sCrLf = chr(13)  chr(10) '回車+換行  
If Request.ServerVariables("HTTPS") = "on" Then 
URL = "https://" 
Else 
URL = "http://" 
End If 
Url=UrlRequest.ServerVariables("SERVER_NAME")":"Request.ServerVariables("SERVER_PORT") 
sXmlClear = "?xml version='1.0' encoding='gb2312'?>"  sCrLf  
'sRssHead ="rdf:RDF xmlns:rdf='http://www.w3.org/1999/02/22-rdf-syntax-ns##39; xmlns:dc='http://purl.org/dc/elements/1.1/#39; xmlns:sy='http://purl.org/rss/1.0/modules/syndication/#39; xmlns:admin='http://webns.net/mvcb/#39; xmlns='http://purl.org/rss/1.0/#39;>" 
sRssHead = "rss version='2.0'>"  sCrLf  
sRssHead = sRssHead  "channel>"  sCrLf  
sRssHead = sRssHead  "title> " Def_MySiteTitle " /title>"  sCrLf  
sRssHead = sRssHead  "description> " Def_SysTitle " /description>"  sCrLf  
sRssHead = sRssHead  "link>"  url "/link>"  sCrLf  
sRssHead = sRssHead  "language>zh-cn/language>"  sCrLf  
sRssHead = sRssHead  "docs>News Center/docs>"  sCrLf  
'sRssHead = sRssHead  "dc:creator>Yezhan,okhtm@msn.com/dc:creator>"  sCrLf  
sRssHead = sRssHead  "generator>Rss Generator/generator>items>"  sCrLf  

sRssEnd = "/items>/channel>/rss>"  

'Response.CharSet="gb2312" '數據集  
Response.ContentType="text/xml" '數據流格式定義  
Response.ContentType="application/xml" 
Response.Expires=0 
Response.write sXmlClear  
Response.write sRssHead  
Dim Conn 
Set Conn = Server.CreateObject("Adodb.Connection") 
Conn.Open ConnStr 
Dim sql 
Sql="select Top " RssNewsList_PageSize " Title,FilePath,AddTime,KeyWord,Content,Classtitle,EditorTitle From view_NewsInfo where Del=0 Order By addTime DESC" 
Set Rs=Server.CreateObject("ADODB.RecordSet") 
Rs.open sql,conn,1,2 
IF RS.EOF AND RS.BOF Then 
Response.Write("item>/item>") 
Else 
do while not rs.eof  
Response.Write("item>")RS("Title") 
Response.Write("title>![CDATA["Rs("Title")"]]>/title>") 
Response.Write("description>![CDATA["RS("KeyWord")"]]>") 
Response.Write("content>![CDATA["RS("Content")"]]>/content>") 
Response.Write("link>" urlRS("FilePath")"/link>") 
Response.Write("subject>"RS("Classtitle")"/subject>") 
Response.Write("creator>"RS("EditorTitle")"/creator>") 
Response.Write("date>"RS("addtime")"/date>") 
Response.Write("/description>/item>") 
RS.MoveNext 
loop  
end if  
rs.close  
set rs=nothing  
Response.write sRssEnd  
%>