rs.asp

本系统为ASP版 1

<!--#include file="mdb_path_info.asp"-->
<?xml version="1.0" encoding="gb2312"?>
<?xml-stylesheet type="text/css" href="http://www.stock01.com/images/rss.css"?>
<rss version="2.0">
	<channel>
	<title>证券第一</title>
	<link>http://www.stock01.com</link>
	<discription>证券第一-投资策略报告及宏观市场研究</discription>
	<language>zh-cn</language>
	<image>
		<title>www.stock01.com - 证券第一</title>
		<url>http://www.stock01.com/images/logo.gif</url>
		<link>http://www.stock01.com</link>
	</image>
<% 
		dim sCrLf,topsql,toprs 
		 topsql="select top 90 * from info order by id desc; "     
		set toprs=server.createobject("adodb.recordset")                                                    
		 toprs.open topsql,conn,1,1                                                         
		do while not toprs.EOF                     
		Response.Write "<item>" & sCrLf
		Response.Write "<title>"&toprs("title")&"</title>" & sCrLf
		Response.Write "<link>http://www.stock01.com/stock/"&toprs("id")&".asp</link>" & sCrLf
		Response.Write "<description><![CDATA["&left(toprs("info"),150)&"]]></description>" & sCrLf
		Response.Write "<pubDate>"&toprs("date")&"</pubDate>" & sCrLf
		Response.Write "</item>" & sCrLf
		toprs.MoveNext  
		loop 
		toprs.Close 
		set toprs=nothing 
  %>
   </channel>
</rss>