'******************************
'文件名：index.asp
'功?能：RSS閱讀器顯示頁面
'日?期：2006-6-19
'編?程：Cloud.L
'******************************
Response.contentType="application/xml;charset=gb2312"
%>






Sql="select?top?20?*?from?[SIHRT_Rss]?order?by?Rss_Date?desc,Rss_ID?desc"
Set?Rs=Server.CreateObject("Adodb.Recordset")
Rs.open?Sql,Conn,1,1
if?Rs.eof?and?Rs.bof?then
??Response.Write?"無列表數據"
else
??Response.Write?""
??do?while?not?Rs.eof
??Rss_Cont=replace(Rs("Rss_Cont"),"
","")
%>
??
???
???
???
???]]>
??
??Rs.movenext
??loop
??Response.Write?""
end?if
RsClose
Connclose
%>

'******************************
'文件名：Conn.asp
'功?能：RSS閱讀程序與數據庫連接文件
'日?期：2006-6-18
'編?程：Cloud.L
'******************************
Dim?ConnStr,Conn
'Create?Connection
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data?Source="&Server.MapPath(DataPath)
Set?Conn=Server.CreateObject("Adodb.Connection")
Conn.open?ConnStr


'Close?Rs
Sub?RsClose
Rs.Close
Set?Rs=nothing
End?Sub

'Close?Conn
Sub?ConnClose
Conn.Close
Set?Conn=nothing
End?Sub
%>

'******************************
'文件名：Const.asp
'功?能：定義RSS閱讀程序常量
'日?期：2006-6-18
'編?程：Cloud.L
'******************************
Const?DataPath="Data/RssData.mdb"
Const?SiteName="SIHRT--RSS閱讀器"
Const?Author="Cloud.L"
Const?Mail="Sihrt@163.com"

%>