<%
set rs=server.CreateObject("ADODB.Recordset")
sql="select * from [table_bbs]"
rs.open sql,conn,1,1
if rs.bof or rs.eof then
response.Write "当前没有留言,马上去发表!"
else
rs.movefirst
sum=rs.recordcount
%>
<%
for i=1 to sum
%>
<%
set rs2=server.CreateObject("ADODB.Recordset")
sql2="select * from [table_re] where re_bbs_id="&rs("bbs_id")
rs2.open sql2,conn,1,1
if rs.bof or rs.eof then
sum2=0
else
sum2=rs2.recordcount
rs2.close
set rs2=nothing
end if
%>
<%
rs.movenext
next
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
%>