友情链接

admin

<TABLE cellSpacing=0 cellPadding=0 width="940"
align=center border=0>
8 q* h3 t  E$ S<TBODY>
  e* P% O5 `* n<%
6 B# P" e0 O$ R+ B1 `Set rs=server.CreateObject("adodb.recordset")
sqllink="select * from link order by id desc"
) C5 o9 J( f& [. i. s/ b/ W( nrs.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")%>"
" g3 [5 o2 _, p8 Gtarget=_blank><%=rs("title")%></A></TD>
& A; Y- ]5 E( N1 S/ c<%
7 N3 d# {' X0 P- e+ W! P% Brs.movenext
9 h) ~6 r3 p0 p0 Y1 x, t: r5 y5 P! QLoop
; X; u+ e# T. x# ]rs.close
Set rs=Nothing
+ ?0 G7 h' i. O8 {" [%><TR>
  ^& n" k. Y! Y8 C; Y<TD height=2></TD>
$ N. [% t$ I2 c& i; @1 A6 {</TR>
</TBODY>
</TABLE>




<TABLE cellSpacing=0 cellPadding=0 width="940" align=center border=0>                  
  <TBODY>
        <%
1 |# S5 ]' `& t7 u% R! D        Set rs=server.CreateObject("adodb.recordset")
) e1 ~% D0 t( f        sqllink="select * from link order by id desc"
        rs.open sqllink,conn,1,1
8 C* P* d( n/ f7 V        for i=1 to rs.recordcount
        if i mod 8 <> 0 then
2 r1 F9 R7 q0 ~- e. a        %>
   <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>
! J0 Z: E& d; C9 X4 |0 _                              
7 y6 o$ E4 ^9 ]     </tr><tr>
0 O# S: L- g# n! y( g9 F<%
( N; o% U7 d1 e$ F/ v5 u- T" c0 l& k       end if
, \. `# M+ |6 p/ q- ~/ a       rs.movenext
; p% K7 H0 o% E( @. }. i       next
. `' m6 ^$ t8 K1 z       rs.close
/ W- D" E2 h# Z" `5 |       Set rs=Nothing
      %>
        </TR>
4 |" k! ~; Y; V% K8 d, ?         <TR>
          <TD height=2></TD>
+ ~+ I; I  n; L/ E- d& X; q        </TR>
+ P0 q. ]8 K% x5 U, s      </TBODY>
    </TABLE>