友情链接
<TABLE cellSpacing=0 cellPadding=0 width="940"align=center border=0>
<TBODY>
<%
Set rs=server.CreateObject("adodb.recordset")
sqllink="select * from link order by id desc"
rs.open sqllink,conn,3,2
Do While Not rs.eof
%>
<TR>
<TD colspan="2" bgcolor="#F6F6F6"><A class=txt style="TEXT-DECORATION: none"
href="<%=rs("urlto")%>"
target=_blank><%=rs("title")%></A></TD>
<%
rs.movenext
Loop
rs.close
Set rs=Nothing
%><TR>
<TD height=2></TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="940" align=center border=0>
<TBODY>
<%
Set rs=server.CreateObject("adodb.recordset")
sqllink="select * from link order by id desc"
rs.open sqllink,conn,1,1
for i=1 to rs.recordcount
if i mod 8 <> 0 then
%>
<TR>
<TD bgcolor="#F6F6F6"><A class=txt style="TEXT-DECORATION: none" href="<%=rs("urlto")%>" target=_blank><%=rs("title")%></A></TD>
<%else%>
<TD bgcolor="#F6F6F6"><A class=txt style="TEXT-DECORATION: none" href="<%=rs("urlto")%>" target=_blank><%=rs("title")%></A></TD>
</tr><tr>
<%
end if
rs.movenext
next
rs.close
Set rs=Nothing
%>
</TR>
<TR>
<TD height=2></TD>
</TR>
</TBODY>
</TABLE>
页:
[1]