<%set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from category order by categoryorder",conn,1,1
dim follows
if rs.EOF and rs.BOF then
response.Write "
还没有分类"
follows=0
else
do while not rs.EOF
%>
<%rs.MoveNext
loop
follows=rs.RecordCount
end if%>