<% Response.Write "document.write("""");" Response.Write "document.write("""");" Response.Write "document.write("""");" Response.Write "document.write(""
"");" '·ÖÀ࿪ʼ set rs=server.createobject("adodb.recordset") sqltxt="select * from d_InfoClass where InfoClassNum=12 order by InfoClassTime desc " rs.open sqltxt,conn,1,1 Dim i,sqltxts,rss,count i=1 if rs.eof then response.write "document.write(""
 no type!
"");" Else do while not rs.eof Response.Write "document.write("""");" Response.Write "document.write(""
   "&rs("InfoClassName")&" "");" count=0 sqltxts="select * from pub_info where InfoClassID_root='12' and InfoClassID='12' and InfoClass='"&rs("ID")&"' order by InputTime desc" set rss=server.createobject("adodb.recordset") rss.open sqltxts,conn,3,1 response.write "document.write(""("&rss.recordcount&")"");" rss.close set rss=nothing Response.Write"document.write(""
"");" rs.movenext i=i+1 Loop end if rs.close %>