link.asp

适适合做个人、学校、公司、政府等站点 一个灵活性很好的网站原代码

<!--#include file="Gaobei_head.asp" -->
<%
sub navigation()
response.write " &gt;&gt; "
response.write "友情链接"
end sub
%>
<div align="center">
	<table border="0" cellpadding="0" cellspacing="0" width="778" height="50" bgcolor="#EFEFE7">
		<tr>
			<td width="218" valign="top">
<% call Gaobei_userlogin() %>
<% call Gaobei_Search() %>
<% call Gaobei_vote() %>
</td>
			<td width="560" valign="top">
<div align="center">
	<table border="0" cellpadding="0" cellspacing="0" width="550" height="160">
		<tr>
			<td width="100%">   
<!--新闻文章开始-->

<TABLE width=550 border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
        <TR> 
          <TD width="100%"> 
            <TABLE cellSpacing=0 cellPadding=0 width=550 border=0>
        <TBODY>
        
<TR> 
<TD vAlign=top align=left width=550> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#639ACE" id="dlAll" >
<%
    Set Rs = Conn.Execute("Select * from Link_sort")
    if Rs.eof and Rs.bof then
	Response.write("<tr>")
	Response.write("<td><div align=center>还没有设置分类.</div>")
	Response.write("</td></tr>")
    else
	do while not Rs.eof
%>
  <tr>
<% for i = 1 to 1 %>
    <td height="48" valign="Top">
<div align="center">
				<table border="0" cellpadding="0" cellspacing="0" width="550" height="20" id="table1" background="images/Gaobei_skin/Gaobei_sharedh.gif">
					<tr>
						<td>&nbsp;&nbsp;&nbsp;&nbsp;<%=rs("name")%></td>
					</tr>
				</table>
</div>
<div align="center">
	<table border="0" cellpadding="0" cellspacing="0" width="550" height="5">
		<tr>
			<td></td>
		</tr>
	</table>
</div>  
      <table width="100%" border="0" cellspacing="0" cellpadding="0" style="border: 1px solid #CECFCE">
        <tr>
          <td bgcolor="#FFFFFF">
<%
    SqlStr = "Select * from links where  style= "& rs("types") &" order by id desc"
    Set RsStr = Conn.Execute(SqlStr)
    if RsStr.eof and RsStr.bof then
    Response.write("<div align=center>还没有添加链接</div>")
    else
    do while not RsStr.eof
%>
            <table width=95% border=0 align="center" cellpadding=0 cellspacing=0>
              <tr>
                <td width="30%" height="21"> <a target="_blank" href="<%=RsStr("link")%>" title="访问网站"> &nbsp;&nbsp;※&nbsp; <%=RsStr("name")%> </a> </td>
                <td width="70%"><%=RsStr("note")%></td>
              </tr>
            </table>
<%
    RsStr.movenext
    loop
    end if
    RsStr.close
%>
          </td>
        </tr>
    </table>

       <div align="center">
	<table border="0" cellpadding="0" cellspacing="0" width="550" height="5">
		<tr>
			<td></td>
		</tr>
	</table>
</div>        

    </td>
<%
    rs.movenext
    if rs.eof then exit for
    next
%>
  </tr>
<%
    loop
    end if
%>
</table></TD>
</TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<!-- 新闻文章结束-->
</td>
		</tr>
	</table>
</div>
			</td>
		</tr>
	</table>
</div>
<!--#include file="Gaobei_foot.asp" -->