index_link.asp

来自「个人网站模板」· ASP 代码 · 共 59 行

<!--#include file="conn_link.asp" -->
			  <marquee onMouseOver=this.stop() onMouseOut=this.start() scrollamount=1 scrolldelay=30 direction=up height="200" width="100%">
			    <table width='100%' border='0' cellspacing='0' cellpadding='0'>
                  <%
sql = "SELECT * FROM link where pass_link=1 and link_class=1 ORDER BY listid Asc,id desc" 
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql,conn_link,1,1

do while NOT rs.EOF 
if not rs.eof then%>
                  <tr align='center'> 
                    <td>                   
      <table width="88" height="31" border="0" cellpadding="0" cellspacing="2" >
        <tr>
          <td> 
            <table width="100%" height="31" border="0" cellpadding="0" cellspacing="1" bordercolorlight="#000000" bordercolordark="#FFFFFF" bgcolor="#000000">
              <tr>
                <td height="31" bgcolor="#FFFFFF"><a href="<%=rs("url")%>" target="_blank"><img src='<%=rs("logo")%>' alt="<%=rs("site_name")%>" width="88" height="31" border="0"></a></td>
              </tr>
            </table>
          </td>
        </tr></table>
					</td>
					</tr>
                    <%
rs.movenext 
end if
loop
rs.Close
set rs=nothing
%>
                </table>
				</marquee>
<table width='100%' border='0' cellspacing='0' cellpadding='5'>
                  <tr align='center'> 
                    
    <td width="20%" height="31"> 
      <select name="designlink" onChange="window.open(this.options(this.selectedIndex).value);">
        <option selected>友情文字链接站点</option>
        <%
sql = "SELECT * FROM link where pass_link=1 and link_class=0 ORDER BY id ASC" 
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql,conn_link,1,1
do while NOT rs.EOF
if not rs.eof then
%>      
        <option style="CURSOR: hand" value="<%=rs("url")%>"><%=rs("site_name")%></option>
        <%
rs.movenext 
end if
loop
rs.Close
set rs=nothing
%>
      </select> 
</td></tr>
<tr>
    <td> <div align="center"> <a href="link/link_apply.asp" target="_blank"><img src="images/apply_link.gif" alt="申请友情链接" width="100" height="20" border="0"></a> 
      </div></td></tr></table>