admin 发表于 2017-4-21 18:07:52

友情链接

<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]
查看完整版本: 友情链接