<script type="text/JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
  eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
  if (restore) selObj.selectedIndex=0;
}
//-->
</script>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td><div align="center"><a href="links.asp" target="_blank"><img src="images/yqlj.jpg" width="230" height="30" border="0" /></a></div></td>
  </tr>
</table>
<table id="table14" height="7" cellspacing="0" cellpadding="0" width="100" 
        border="0">
  <tbody>
    <tr>
      <td></td>
    </tr>
  </tbody>
</table>
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><table width="100%"  border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td><!--开始-->
            <%
set rscd = Server.CreateObject("ADODB.Recordset")
sqlInfo ="Select top 3 * From shop_imagelinks Order By linkidorder Desc"
rscd.Open sqlInfo,Conn,1,1
if not rscd.eof then
rscd.movefirst
%>
            <TABLE width="98%" border=0 align="center" cellPadding=0 cellSpacing=1>
              <TBODY>
                <%do while not rscd.eof%>
                <TR>
                  <%
for i=1 to 1
if not rscd.eof then
%>
                  <TD align="middle"><A href="<%=rscd("linkUrl")%>" target="_blank"><img width=88 height=31 border=0 src=<%=rscd("imagelinks")%>></A>
                      <table>
                        <tr>
                          <td></td>
                        </tr>
                    </table></td>
                  <%end if
if not rscd.eof then
rscd.movenext
end if
next
%>
                </TR>
                <%
loop%>
              </TBODY>
            </TABLE>
          <%
end if
rscd.close
set rscd=nothing
%>
            <!--结束-->
          </td>
      </tr>
    </table>
      <table width="100%"  border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td><!--开始-->
              <%
set rscd = Server.CreateObject("ADODB.Recordset")
sqlInfo ="Select top 6 * From shop_links Order By linkidorder Desc"
rscd.Open sqlInfo,Conn,1,1

%>
              <TABLE width="98%" border=0 align="center" cellPadding=0 cellSpacing=1>
                <TBODY>
                 
                  <TR>

                    <TD height="20" align="middle">
                      <form name="form1">
                        <select name="selMap2" onchange="MM_jumpMenu('parent',this,0)">
						<option  selected><font color=""#ffffff"">文字友情链接</option>
						                    <%if not rscd.eof then
rscd.movefirst
					do while not rscd.eof
for i=1 to 6
if not rscd.eof then
%>
                          <option value="<%=rscd("linkUrl")%>"><%=left(rscd("linkname"),8)%></option>                    <%end if
if not rscd.eof then
rscd.movenext
end if
next
%>
                        </select>
                      </form>
                    </td>

                  </TR>
                  <%
loop%>
                </TBODY>
              </TABLE>
            <%
end if
rscd.close
set rscd=nothing
%>
              <!--结束-->
          </td>
        </tr>
      </table></td>
  </tr>
</table>
 
