网站导航     <% types=trim(request("types")) set rst=server.CreateObject("ADODB.RecordSet") sqlt="select * from downtype where tj=1 order by id asc " rst.open sqlt,conn,1,1 i=0 do while NOT rst.EOF if i mod 2 =0 then cc="#ECFBFF" i=0 else cc="#FFFFFF" end if i=i+1 %> <% rst.movenext loop rst.close:set rst=nothing %> <%=split(rst("tname"),"|")(0)%> <% set rsl=server.CreateObject("ADODB.RecordSet") sqll="select * from downtype where (ts like '"&split(rst("ts"),",")(0)&"%' ) and tj=2 order by id desc " rsl.open sqll,conn,1,1 if NOT rsl.EOF then do while not rsl.eof j=1 Do While j<=5 %> <% j=j+1 rsl.MoveNext if rsl.eof then exit do end if loop %> <%for l=0 to 5-j%> <%next%> <% loop end if rsl.close %> &types2=<%=split(rsl("ts"),",")(1)%>" <%if i mod 2=0 then%>class="chengcu_12" <%else%>class="hei_12"<%end if%> target="_blank"><%=split(rsl("tname"),"|")(1)%>