⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 index.asp

📁 这个程序是卡页连接联盟当前在使用的最新全站程序.本站是一套全新概念的自助友情链接交换系统
💻 ASP
字号:
🔍 
<!--#include file="conn.asp"-->

<html>

<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="keywords" content="站长联盟,网站流量,网站PR值,网站alexa排名,友情链接网站,申请友情链接,自助友情链接" />
<meta name="description" content="卡页连接联盟是中国最大最专业的网址交换平台，交换友情链接、申请友情链接、网站免费登录、网址收录、链接交换尽在卡页连接联盟。" />
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css">
<title>卡页连接联盟 - 站长推广网站有力的平台！</title>
</head>

<body topmargin=0>

<div align="center">
  <center>
  <!--#include file="ky_head.asp"-->
  <table border="0" cellpadding="3" cellspacing="0" style="border-style:solid; border-width:1; border-collapse: collapse; padding-left:4; padding-right:4; padding-top:1; padding-bottom:1" bordercolor="#3399FF" width="760" id="AutoNumber1" height="376">
    <tr>
      <td width="20%" height="186" valign="top">
      <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#3399FF" width="100%" id="AutoNumber2" height="213">
        <tr>
          <td width="100%" height="213" valign="top">
          <table border="0" cellpadding="3" cellspacing="0" style="border-collapse: collapse" onclick="location.href='list.asp?id=1'" bordercolor="#111111" width="100%" id="AutoNumber3">
            <tr>
              <td width="100%" bgcolor="#99CCFF">门户类</td>
            </tr>
            <%
      Set rs= Server.CreateObject("ADODB.Recordset")
sql="select top 15 * from MB_Linkun where L_Class=1 order by L_Date desc"
rs.open sql,my_conn,1,1
 if rs.eof and rs.bof then
 response.write "<p align='center'>没有可排行的对象 </p>"
 else
 filename=1
%>
        <%do while not rs.eof%>
            <tr>
              <td width="100%"><a target="_blank" href="url.asp?ID=<%= CInt(rs("L_ID"))%>" title="点入:<%=rs("L_Goin")%>/点出:<%=rs("L_Hits")%>"><%=left(rs("L_Title"),11)%></a></td>
            </tr>
            <% 
	 rs.movenext
	filename=filename+1
 if filename>15 then Exit Do
	 loop
end if
rs.Close
set rs=nothing
		 %>
          </table>
          </td>
        </tr>
      </table>
      </td>
      <td width="20%" height="186" valign="top">
      <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#3399FF" width="100%" id="AutoNumber2" height="213">
        <tr>
          <td width="100%" height="213" valign="top">
          <table border="0" cellpadding="3" cellspacing="0" style="border-collapse: collapse" onclick="location.href='list.asp?id=2'" bordercolor="#111111" width="100%" id="AutoNumber3">
            <tr>
              <td width="100%" bgcolor="#99CCFF">娱乐类</td>
            </tr>
            <%
      Set rs= Server.CreateObject("ADODB.Recordset")
sql="select top 15 * from MB_Linkun where L_Class=2 order by L_Date desc"
rs.open sql,my_conn,1,1
 if rs.eof and rs.bof then
 response.write "<p align='center'>没有可排行的对象 </p>"
 else
 filename=1
%>
        <%do while not rs.eof%>
            <tr><script src='http://s140.cnzz.com/stat.php?id=852151&web_id=852151' language='JavaScript' charset='gb2312'></script>
              <td width="100%"><a target="_blank" href="url.asp?ID=<%= CInt(rs("L_ID"))%>" title="点入:<%=rs("L_Goin")%>/点出:<%=rs("L_Hits")%>"><%=left(rs("L_Title"),11)%></a></td>
            </tr>
            <% 
	 rs.movenext
	filename=filename+1
 if filename>15 then Exit Do
	 loop
end if
rs.Close
set rs=nothing
		 %>
          </table>
          </td>
        </tr>
      </table>
      </td>
      <td width="20%" height="186" valign="top">
      <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#3399FF" width="100%" id="AutoNumber2" height="213">
        <tr>
          <td width="100%" height="213" valign="top">
          <table border="0" cellpadding="3" cellspacing="0" style="border-collapse: collapse" onclick="location.href='list.asp?id=3'" bordercolor="#111111" width="100%" id="AutoNumber3">
            <tr>
              <td width="100%" bgcolor="#99CCFF">博客类</td>
            </tr>
            <%
      Set rs= Server.CreateObject("ADODB.Recordset")
sql="select top 15 * from MB_Linkun where L_Class=3 order by L_Date desc"
rs.open sql,my_conn,1,1
 if rs.eof and rs.bof then
 response.write "<p align='center'>没有可排行的对象 </p>"
 else
 filename=1
%>
        <%do while not rs.eof%>
            <tr>
              <td width="100%"><a target="_blank" href="url.asp?ID=<%= CInt(rs("L_ID"))%>" title="点入:<%=rs("L_Goin")%>/点出:<%=rs("L_Hits")%>"><%=left(rs("L_Title"),11)%></a></td>
            </tr>
            <% 
	 rs.movenext
	filename=filename+1
 if filename>15 then Exit Do
	 loop
end if
rs.Close
set rs=nothing
		 %>
          </table>
          </td>
        </tr>
      </table>
      </td>
      <td width="20%" height="186" valign="top">
      <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#3399FF" width="100%" id="AutoNumber2" height="213">
        <tr>
          <td width="100%" height="213" valign="top">
          <table border="0" cellpadding="3" cellspacing="0" style="border-collapse: collapse" onclick="location.href='list.asp?id=4'" bordercolor="#111111" width="100%" id="AutoNumber3">
            <tr>
              <td width="100%" bgcolor="#99CCFF">IT类</td>
            </tr>
            <%
      Set rs= Server.CreateObject("ADODB.Recordset")
sql="select top 15 * from MB_Linkun where L_Class=4 order by L_Date desc"
rs.open sql,my_conn,1,1
 if rs.eof and rs.bof then
 response.write "<p align='center'>没有可排行的对象 </p>"
 else
 filename=1
%>
        <%do while not rs.eof%>
            <tr>
              <td width="100%"><a target="_blank" href="url.asp?ID=<%= CInt(rs("L_ID"))%>" title="点入:<%=rs("L_Goin")%>/点出:<%=rs("L_Hits")%>"><%=left(rs("L_Title"),11)%></a></td>
            </tr>
            <% 
	 rs.movenext
	filename=filename+1
 if filename>15 then Exit Do
	 loop
end if
rs.Close
set rs=nothing
		 %>
          </table>
          </td>
        </tr>
      </table>
      </td>
      <td width="20%" height="186" valign="top">
      <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#3399FF" width="100%" id="AutoNumber2" height="213">
        <tr>
          <td width="100%" height="213" valign="top">
          <table border="0" cellpadding="3" cellspacing="0" style="border-collapse: collapse" onclick="location.href='list.asp?id=5'" bordercolor="#111111" width="100%" id="AutoNumber3">
            <tr>
              <td width="100%" bgcolor="#99CCFF">文教类</td>
            </tr>
            <%
      Set rs= Server.CreateObject("ADODB.Recordset")
sql="select top 15 * from MB_Linkun where L_Class=5 order by L_Date desc"
rs.open sql,my_conn,1,1
 if rs.eof and rs.bof then
 response.write "<p align='center'>没有可排行的对象 </p>"
 else
 filename=1
%>
        <%do while not rs.eof%>
            <tr>
              <td width="100%"><a target="_blank" href="url.asp?ID=<%= CInt(rs("L_ID"))%>" title="点入:<%=rs("L_Goin")%>/点出:<%=rs("L_Hits")%>"><%=left(rs("L_Title"),11)%></a></td>
            </tr>
            <% 
	 rs.movenext
	filename=filename+1
 if filename>15 then Exit Do
	 loop
end if
rs.Close
set rs=nothing
		 %>
          </table>
          </td>
        </tr>
      </table>
      </td>
    </tr>
    <tr>
      <td width="20%" height="156" valign="top">
      <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#3399FF" width="100%" id="AutoNumber2" height="213">
        <tr>
          <td width="100%" height="213" valign="top">
          <table border="0" cellpadding="3" cellspacing="0" style="border-collapse: collapse" onclick="location.href='list.asp?id=6'" bordercolor="#111111" width="100%" id="AutoNumber3">
            <tr>
              <td width="100%" bgcolor="#99CCFF">公司类</td>
            </tr>
            <%
      Set rs= Server.CreateObject("ADODB.Recordset")
sql="select top 15 * from MB_Linkun where L_Class=6 order by L_Date desc"
rs.open sql,my_conn,1,1
 if rs.eof and rs.bof then
 response.write "<p align='center'>没有可排行的对象 </p>"
 else
 filename=1
%>
        <%do while not rs.eof%>
            <tr>
              <td width="100%"><a target="_blank" href="url.asp?ID=<%= CInt(rs("L_ID"))%>" title="点入:<%=rs("L_Goin")%>/点出:<%=rs("L_Hits")%>"><%=left(rs("L_Title"),11)%></a></td>
            </tr>
            <% 
	 rs.movenext
	filename=filename+1
 if filename>15 then Exit Do
	 loop
end if
rs.Close
set rs=nothing
		 %>
          </table>
          </td>
        </tr>
      </table>
      </td>
      <td width="20%" height="156" valign="top">
      <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#3399FF" width="100%" id="AutoNumber2" height="213">
        <tr>
          <td width="100%" height="213" valign="top">
          <table border="0" cellpadding="3" cellspacing="0" style="border-collapse: collapse" onclick="location.href='list.asp?id=7'" bordercolor="#111111" width="100%" id="AutoNumber3">
            <tr>
              <td width="100%" bgcolor="#99CCFF">生活类</td>
            </tr>
            <%
      Set rs= Server.CreateObject("ADODB.Recordset")
sql="select top 15 * from MB_Linkun where L_Class=7 order by L_Date desc"
rs.open sql,my_conn,1,1
 if rs.eof and rs.bof then
 response.write "<p align='center'>没有可排行的对象 </p>"
 else
 filename=1
%>
        <%do while not rs.eof%>
            <tr>
              <td width="100%"><a target="_blank" href="url.asp?ID=<%= CInt(rs("L_ID"))%>" title="点入:<%=rs("L_Goin")%>/点出:<%=rs("L_Hits")%>"><%=left(rs("L_Title"),11)%></a></td>
            </tr>
            <% 
	 rs.movenext
	filename=filename+1
 if filename>15 then Exit Do
	 loop
end if
rs.Close
set rs=nothing
		 %>
          </table>
          </td>
        </tr>
      </table>
      </td>
      <td width="20%" height="156" valign="top">
      <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#3399FF" width="100%" id="AutoNumber2" height="213">
        <tr>
          <td width="100%" height="213" valign="top">
          <table border="0" cellpadding="3" cellspacing="0" style="border-collapse: collapse" onclick="location.href='list.asp?id=8'" bordercolor="#111111" width="100%" id="AutoNumber3">
            <tr>
              <td width="100%" bgcolor="#99CCFF">商业类</td>
            </tr>
            <%
      Set rs= Server.CreateObject("ADODB.Recordset")
sql="select top 15 * from MB_Linkun where L_Class=8 order by L_Date desc"
rs.open sql,my_conn,1,1
 if rs.eof and rs.bof then
 response.write "<p align='center'>没有可排行的对象 </p>"
 else
 filename=1
%>
        <%do while not rs.eof%>
            <tr>
              <td width="100%"><a target="_blank" href="url.asp?ID=<%= CInt(rs("L_ID"))%>" title="点入:<%=rs("L_Goin")%>/点出:<%=rs("L_Hits")%>"><%=left(rs("L_Title"),11)%></a></td>
            </tr>
            <% 
	 rs.movenext
	filename=filename+1
 if filename>15 then Exit Do
	 loop
end if
rs.Close
set rs=nothing
		 %>
          </table>
          </td>
        </tr>
      </table>
      </td>
      <td width="20%" height="156" valign="top">
      <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#3399FF" width="100%" id="AutoNumber2" height="213">
        <tr>
          <td width="100%" height="213" valign="top">
          <table border="0" cellpadding="3" cellspacing="0" style="border-collapse: collapse" onclick="location.href='list.asp?id=9'" bordercolor="#111111" width="100%" id="AutoNumber3">
            <tr>
              <td width="100%" bgcolor="#99CCFF">导航类</td>
            </tr>
            <%
      Set rs= Server.CreateObject("ADODB.Recordset")
sql="select top 15 * from MB_Linkun where L_Class=9 order by L_Date desc"
rs.open sql,my_conn,1,1
 if rs.eof and rs.bof then
 response.write "<p align='center'>没有可排行的对象 </p>"
 else
 filename=1
%>
        <%do while not rs.eof%>
            <tr>
              <td width="100%"><a target="_blank" href="url.asp?ID=<%= CInt(rs("L_ID"))%>" title="点入:<%=rs("L_Goin")%>/点出:<%=rs("L_Hits")%>"><%=left(rs("L_Title"),11)%></a></td>
            </tr>
            <% 
	 rs.movenext
	filename=filename+1
 if filename>15 then Exit Do
	 loop
end if
rs.Close
set rs=nothing
		 %>
          </table>
          </td>
        </tr>
      </table>
      </td>
      <td width="20%" height="156" valign="top">
      <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#3399FF" width="100%" id="AutoNumber2" height="213">
        <tr>
          <td width="100%" height="213" valign="top">
          <table border="0" cellpadding="3" cellspacing="0" style="border-collapse: collapse" onclick="location.href='list.asp?id=0'" bordercolor="#111111" width="100%" id="AutoNumber3">
            <tr>
              <td width="100%" bgcolor="#99CCFF">其他类</td>
            </tr>
            <%
      Set rs= Server.CreateObject("ADODB.Recordset")
sql="select top 15 * from MB_Linkun where L_Class=0 order by L_Date desc"
rs.open sql,my_conn,1,1
 if rs.eof and rs.bof then
 response.write "<p align='center'>没有可排行的对象 </p>"
 else
 filename=1
%>
        <%do while not rs.eof%>
            <tr>
              <td width="100%"><a target="_blank" href="url.asp?ID=<%= CInt(rs("L_ID"))%>" title="点入:<%=rs("L_Goin")%>/点出:<%=rs("L_Hits")%>"><%=left(rs("L_Title"),11)%></a></td>
            </tr>
            <% 
	 rs.movenext
	filename=filename+1
 if filename>15 then Exit Do
	 loop
end if
rs.Close
set rs=nothing
		 %>
          </table>
          </td>
        </tr>
      </table>
      </td>
    </tr>
  </table>
  <!--#include file="ky_end.asp"-->
  </center>
</div>

</body>

</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -