links.asp

九酷网络个人主页系统破解版

<table width="778" border="0" align="center" cellpadding="5" cellspacing="1">
  <tr>
    <td class="showtitle1"><strong>友情链接</strong>
    [<a href=javascript:void(0) onClick="javascript:open_win('add_link.asp','',500,270,'no')">申请加入</a>]</td>
  </tr>
  <tr>
    <td bgcolor="#FFFFFF"><table width="100%"  border="0" align="center" cellpadding="2" cellspacing="1">
      <tr>
        <td bgcolor="#FFFFFF"><%
Set rslink=conn.Execute("select * from links where pass=True and linktype=2")
do while not rslink.eof
if rslink("logo")=empty then
link1=link1+"<a title='"&rslink("name")&"' href="&rslink("link")&" target=_blank>"&rslink("name")&"</a>　"
else
link2=link2+"<a href="&rslink("link")&" target=_blank><img src="&rslink("logo")&" border=0 width=88 height=31 alt='"&rslink("name")&"'></a> "
end if
rslink.movenext
loop
rslink.close
set rslink=nothing
Response.Write link2
%>
        </td>
      </tr>
      <tr>
        <td bgcolor="#FFFFFF"><%=link1%></td>
      </tr>
    </table></td>
  </tr>
</table>