<%
set rs=server.createobject("adodb.recordset")
sql="select * from link where zx=1 and lx=1 order by cs desc"
rs.open sql,conn,1,1
k=1
do while Not rs.eof and k<100
%>
<%
for n=1 to 4
%>
|
<%
rs.movenext
if rs.eof then exit for
if rs.eof then exit do
Next
%>
<%
k=k+1
Loop
rs.close
set rs=nothing
%>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from link where zx=1 and lx=0 order by cs desc"
rs.open sql,conn,1,1
k=1
do while Not rs.eof and k<100
%>
<%
for n=1 to 7
%>
|
<%
rs.movenext
if rs.eof then exit for
if rs.eof then exit do
Next
%>
<%
k=k+1
Loop
rs.close
set rs=nothing
%>
|
|
|