?
?
?
??Dim?sSQL,?rs,?sCrLf,?sXmlClear,?sRssHead,?sRssEnd?
??sCrLf?=?chr(13)?&?chr(10)??'回車+換行?
??sXmlClear?=?""?&?sCrLf?
??sRssHead?=?"
"?&?sCrLf?
??sRssHead?=?sRssHead?&?""?&?sCrLf?
??sRssHead?=?sRssHead?&?"?Why100000?"?&?sCrLf?
??sRssHead?=?sRssHead?&?"?Why100000?"?&?sCrLf?
??sRssHead?=?sRssHead?&?"http://news.why100000.com/"?&?sCrLf?
??sRssHead?=?sRssHead?&?"zh-cn"?&?sCrLf?
??sRssHead?=?sRssHead?&?"Why100000.COM?News?Center"?&?sCrLf?
??sRssHead?=?sRssHead?&?"Rss?Generator?By?WWW.Why100000.COM"?&?sCrLf?
??sRssEnd?=?""?
??Response.CharSet="gb2312"??'數據集?
??Response.ContentType="text/xml"??'數據流格式定義?
??'輸出:?
??Response.write?sXmlClear?
??Response.write?sRssHead?
??sSQL="select?top?15?*?from?news?order?by?sortid?desc"?
??Set?rs?=?Server.CreateObject("ADODB.Recordset")?
??rs.Open?sSQL,?s_Conn,?1,?1?
??if?not?(rs.eof?and?rs.bof)?then?
????do?while?not?rs.eof?
??????response.write?"
- "?&?sCrLf?
??????response.write?"?"?&?rs("f_topic")?&?"?"?&?sCrLf?
??????response.write?"?"?&?"http://www.why100000.com/_news/show_a_new.asp?autoid=";?&??
rs("f_i_autoid")?&?"?"?&?sCrLf?
??????response.write?"?"?&?rs("f_author")?&?"?"?&?sCrLf?
??????response.write?"?"?&?rs("f_datetime")?&?"?"?&?sCrLf?
??????response.write?" "?&?sCrLf?&?sCrLf?
??????rs.movenext?
????loop?
??end?if?
??rs.close?
??set?rs=nothing?
??Response.write?sRssEnd?
%>?