<!--// #include file="top.inc"-->
<%
function selectTreeList(i,deep)
	dim sql
	dim rs
	dim tempi
	dim rsID
	set rs=server.createObject("adodb.recordset")
	sql="select * from productSort where fatherID="&i
	rs.open sql,conn,1,1
	if rs.eof then
		exit function
	else
		do while not rs.eof 
			rsID=rs("id")
			rsName=rs("name")
			if deep=0 then
'				response.write "<option value='0'"
			else
				response.write "<option value='"&rsID&"'"
			end if
			if rsID=productSort then response.write " selected"
			response.write ">"
			for tempi=1 to deep
					response.write "&nbsp;"
			next
			response.write rsName&"</option>"
			call selectTreeList(rsID,deep+1)
			rs.movenext
		loop
	end if
end function

dim productSort
if Request("productSort")<>"" then
	productSort=cint(Request("productSort"))
else
	productSort=0
end if
%>
<HTML><HEAD><TITLE>友情链接</TITLE>
<META content="Microsoft FrontPage 6.0" name=GENERATOR><meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <TD height="5"></TD>
  </tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><a href="http://www.sous8.com" target="_blank"><img src="<%=gg1%>" width="760" height="70" border="0"></a></td>
  </tr>
</table>
<table width="760" border="0" align="center" cellpadding="3" cellspacing="0" bgcolor="#FFFFFF">
  <tr> 
    <td> <div align="left"> 
        <p><strong> </strong></p>
      </div>
      <table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td><div align="center"><strong><font color="#666666">--图片链接--</font></strong></div></td>
        </tr>
        <tr> 
          <td> <table width='100%' border='0' cellspacing='0' cellpadding='2'>
              <%
sql = "SELECT * FROM link where pass_link=1 and link_class=1 ORDER BY id ASC" 
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1

do while NOT rs.EOF %>
              <tr align='center'> 
                <%
for i=1 to 5
%>
                <td height="49"> 
                  <%
if not rs.eof then
%>
                  <a href="<%=rs("url")%>" target="_blank"><img src='<%=rs("logo")%>' alt="<%=rs("site_name")%>" width="88" height="31" border='0' class='bk'></a> 
                </td>
                <%
rs.movenext 
end if
next
%>
              </tr>
              <%
loop
rs.Close
set rs=nothing
%>
            </table></td>
        </tr>
      </table>
      <table width="100%" border="0" cellpadding="3" cellspacing="0">
        <tr> 
          <td><div align="center"><strong><font color="#666666">--文字链接--</font></strong></div></td>
        </tr>
        <tr> 
          <td> <table width='100%' border='0' cellspacing='0' cellpadding='5'>
              <%
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,1,1

do while NOT rs.EOF %>
              <tr align='center'> 
                <%
for i=1 to 5
%>
                <td width="20%" height="49"> 
                  <%
if not rs.eof then
%>
                  <a href="<%=rs("url")%>" target="_blank"><b><%=rs("site_name")%></b></a> 
                </td>
                <%
rs.movenext 
end if
next
%>
              </tr>
              <%
loop
rs.Close
set rs=nothing
%>
            </table></td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <TD height="1" bgcolor="#CCCCCC"></TD>
        </tr>
      </table></td>
  </tr>
  <tr> 
    <td height="16"> <div align="right"><strong><a href="link_reg.asp" target="_blank"><font color="#000000">申请加入链接　　</font></a></strong></div></td>
  </tr>
</table>
<table width="760" height="2" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <TD height="2"></TD>
  </tr>
</table>
<!--#include file="foot.inc"--> 
</BODY></HTML>