<%
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select top 20 * from test where username like '%kiming%' order by id desc"
rs.Open sql,conn,1,3
Response.ContentType = "text/xml"
Response.Expires = -1
Response.Write("")
Response.Write("")
")
Response.Write("
do while not rs.eof
Response.Write("
rs.movenext
loop
Response.Write("
Response.Write("
if Conn.state<>0 then Conn.close
set Conn=nothing
if rs.state<>0 then rs.close
Set rs = Nothing
%>
sql="select top 20 * from test where message like '%kiming%' order by id desc"
sql="select top 20 * from test"