<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <%dbdns = ""%> <% 'Response.Charset = "gb2312" Response.ContentType="text/xml" Sql="select top 20 * from Ok3w_Article where IsPass=1 order by ID desc" Rs.Open Sql,Conn,1,1 Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("zh-cn") Do While Not rs.Eof Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") rs.MoveNext() Loop Response.Write("") Response.Write("") Rs.Close Set Rs = Nothing Call CloseConn() %>