<%sqlBigClass="select * from BigClass order by BigClassID"
Set rsBigClass= Server.CreateObject("ADODB.Recordset")
rsBigClass.open sqlBigClass,conn,1,1
if rsBigClass.bof and rsBigClass.eof then
response.Write "栏目正在建设中……"
else
rsBigClass.movefirst
BigClassNum=rsBigClass.recordcount
i=1
do while not rsBigClass.eof
if i
<%SmallClassNum=rsClass.recordcount
j=1
do while not rsClass.eof
rsClass.movenext
j=j+1
loop
response.write strTree
rsBigClass.movenext
i=i+1
loop
rsClass.close
set rsClass=nothing
end if%>
<%sql="select * from main"
Set rs_main1= Server.CreateObject("ADODB.Recordset")
rs_main1.open sql,conn,1,1
if not rs_main1.eof then%>
<%=left(rs_main1("About"),460)%>...
<%
end if
rs_main1.close
set rs=nothing%>
