<?xml version="1.0" encoding="gb2312"?>
<s>
<sucai>
<!--#include file="conn.asp"-->
<%
Set rst=Server.CreateObject("ADODB.RecordSet") 
Set oFSO = Server.CreateObject("Scripting.FileSystemObject") 
host=Request.ServerVariables("HTTP_HOST")
set rs=server.CreateObject("adodb.recordset")
sql="select * from sucai"
rs.open sql,conn,1,3
Response.Buffer = flase
rs.MoveLast		
While Not rs.BOF
%>
<rar>
    <t1><%=rs(1)%></t1>
    <t2><%=rs(2)%></t2>
    <t3><%=rs(3)%></t3>
    <t4><%=rs(4)%></t4>
    <t5>r.asp?t=<%=rs(5)%></t5>
</rar>
<% 
rs.MovePrevious	
Wend
rs.close
set rs=nothing
%>
</sucai>
</s>