flash和asp分页的一点心得与flash脚本(3)

if Tnum<>0 then rs.AbsolutePage=page 
if log_cat=0 or log_cat="" then 
log_name="[全部分类]" 
else 
log_name="["&rs("cat_name")&"]" 
End if 
'以下输出xml 
'------------------------------------------------ 
response.write("<Tree logname='"&log_name&"' Tnum='"&Tnum&"' Tpage='"&Tpage&"'>") 
if rs.eof then 
rs.close 
else 
do while not rs.eof and pageSize>0 
response.write("<Trees author='"&rs("log_author")&"' Addtime='"&rs("written_time")&"' id='"&rs("log_ID")&"'>") 
response.write("<![CDATA["&rs("log_tittle")&"]]></Trees>") 
pageSize=pageSize-1 
rs.movenext 
loop 
rs.close 
End if 
//关闭rs 
call Tree_rsclose 
call Tree_conclose 
response.write("</Tree>") 
%>