l_fellow.asp

来自「烈火之家整站程序 本程序集商业娱乐一体,本来是给自己用的但是我的国外空间支持不够」· ASP 代码 · 共 51 行

<%
set rs_links=server.createobject("adodb.recordset")
sqltext4="select top 5 * from links where pic=true order by id desc"
rs_links.open sqltext4,conn,1,1
%>
<table width="168" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td height="25" bgcolor="#CCCCCC"> <div align="center"><font color="#FFFFFF"><b>友情链接</b></font></div></td>
  </tr>
</table><table width="168" border="0" cellpadding="4" cellspacing="1" bgcolor="#999999">
  <tr> 
    <td width="158" bgcolor="#FFFFFF">
	<TABLE bgcolor="#FFFFFF" cellSpacing=0 cellPadding=0 width="100%" border=0>
<%
i=0
do while not rs_links.eof
%>
		<TR vAlign=center>
		 <TD align=center width=175 height=35><a href="<%=rs_links("link")%>" title="<%=rs_links("name")%>"target="_blank"><img src=<%=rs_links("note")%> border=0 width=88 height=31></a></TD>
		</TR>
<%
rs_links.movenext
i=i+1
if i=5 then exit do
loop
rs_links.close 
%>
<%
set rs_links=server.createobject("adodb.recordset")
sqltext4="select top 5 * from links where txt=true order by id desc"
rs_links.open sqltext4,conn,1,1
%>
<%
i=0
do while not rs_links.eof
%>
		<TR vAlign=center>
		 <TD align=center width=175 height=35><a href="<%=rs_links("link")%>" title="<%=rs_links("name")%>"target="_blank"><%=rs_links("name")%></a></TD>
		</TR>
<%
rs_links.movenext
i=i+1
if i=5 then exit do
loop
rs_links.close 
%>
</TABLE></td>
  </tr>
</table>