link.asp

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

<!--#include file="top.asp"-->
<TABLE class=tableborder cellSpacing=0 cellPadding=0 width=778 align=center 
border=0>
  <TBODY>
    <TR>
      <TD bgColor=#efefef height=22>
        <TABLE cellSpacing=2 cellPadding=0 width="100%" border=0>
          <TBODY>
            <TR>
              <TD align=middle width="4%"><IMG height=13 
            src="images/class_ar.gif" width=13></TD>
              <TD width="74%">您当前的位置：<A href="<%=siteurl%>"><%=site%></A> -&gt; <a href="news.asp">友情链接</a>
                  <%
		  if request("typename")="" then
		  else
		  Response.Write "-&gt; "&request("typename")
		  end if
		  %></TD>
              <TD align=middle width="22%">&nbsp;</TD>
            </TR>
          </TBODY>
      </TABLE></TD>
    </TR>
    <TR>
      <TD bgColor=#d9d9d9 height=1></TD>
    </TR>
    <TR>
      <TD height=5></TD>
    </TR>
  </TBODY>
</TABLE>
<table width="778" height="400" border="0" align="center" cellpadding="0" cellspacing="0" class="tableborder">
  <tr>
    <td valign="top" class="tableleft"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td class="titleback2">网站分类</td>
      </tr>
      <tr>
        <td height="100" valign="top"><table width="90"  border="0" align="center" cellpadding="4" cellspacing="0" class=tabmenubar>
            <tr>
              <td class=tdmenubar><img src="images/plus.gif"> <a href="?">所有链接</a></td>
            </tr>
            <%
			Set rstp=conn.Execute("select * from [siteclass]") 
do while not rstp.eof
%>
            <tr>
              <td class=tdmenubar><%
response.write "<img src=""images/plus.gif""> <a href=?type="&rstp("id")&">"&rstp("sitetype")&"</a>"
%></td>
            </tr>
            <%
  rstp.movenext
loop
rstp.close
set rstp=nothing
%>
        </table></td>
      </tr>
      <tr>
        <td height="2" bgcolor="#FFFFFF"></td>
      </tr>
    </table></td>
    <td valign="top" class="tableright"><table width="96%"  border="0" align="center" cellpadding="2" cellspacing="1">
      
      <tr>
        <td bgcolor="#FFFFFF"><%
if request("type")<>empty and isNumeric(request("type")) then
whereto="and linktype="&cint(request("type"))&" "
end if
sql="select * from links where pass=True "&whereto&"order by id desc"
rs.open sql,conn,1,1
do while not rs.eof
if rs("logo")=empty then
link1=link1+"<a title='"&rs("name")&"' href="&rs("link")&" target=_blank>"&rs("name")&"</a>　"
else
link2=link2+"<a href="&rs("link")&" target=_blank><img src="&rs("logo")&" border=0 width=88 height=31 alt='"&rs("name")&"'></a> "
end if
rs.movenext
loop
rs.close
set rs=nothing
Response.Write link1
%></td>
      </tr>
      <tr>
        <td bgcolor="#FFFFFF"><%=link2%></td>
      </tr>
      <tr>
        <td bgcolor="#FFFFFF">[<strong><a href=javascript:void(0) onClick="javascript:open_win('add_link.asp','',500,300,'no')" title="直接申请加入">申请加入</a></strong>]</td>
      </tr>
    </table>
    </td>
  </tr>
</table>
<!--#include file="links.asp"-->
<!--#include file="bottom.asp"-->