力动网络
Lidon外贸商城系统

连接数据库排策弹动仿QQ菜单

发布时间:2011-01-07  点击次数:603

<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<SCRIPT language=javascript1.2>
<!--
function hideAll() {
  for(i=0;i<odiv.length;i++) {
    odiv[i].style.display="none";
  }
}

function showObj(num) {
 
  if (odiv[num].style.display=="none") {
    hideAll();
    odiv[num].style.display="inline";
  }
  else {
    odiv[num].style.display="none";
  }

}
//-->
</SCRIPT>
<table width="158" align="center" cellpadding="0" cellspacing="0">
<%
dim rs_big,sqlk
set rs_big = server.CreateObject("adodb.recordset")
sqlk="select * from pro_bigclass2"
rs_big.open sqlk,Conn,1,1
if rs_big.eof and rs_big.bof then
response.Write "<tr><td align=center>还没有分类</td></tr>"
else
for i=0 to int(rs_big.recordcount)
do while not rs_big.eof
%>
  <tr>
    <td align="left" valign="middle">
 <table>
      <tr>
        <td align="center" valign="middle" onclick="showObj(<%=i%>)" style="cursor:hand;"><div class="products"><a href="kucun_list.asp?info=<%=rs_big("id")%>&info2=" target="mukk"><font color="#000000"><%=rs_big("bigclassname")%></font></a></div></td>
      </tr>
    </table>
      <div id="odiv" style="display:none">
 <%
 Dim sql1,rs_small,u
 u=rs_big("id")
    set rs_small = server.CreateObject("adodb.recordset")
    sql1="select * from pro_smallclass2 where bigclassid="&u&""
    rs_small.open sql1,Conn,1,1
 if rs_small.eof and rs_small.bof then
 response.Write "还没有小分类"
 else
 do while not rs_small.eof
    %>
          <table width="158" height="25" align="center">
            <tr>
              <td valign="middle" align="left" style="padding-left:48px;"><img src="images/dian.jpg" /><a href="kucun_list.asp?info=<%=rs_big("id")%>&info2=<%=rs_small("id")%>" target="mukk"><%=rs_small("smallclassname")%></a></td>
            </tr>
          </table>
    <%
  rs_small.movenext
  loop
  end if
  rs_small.close
  set rs_small=nothing
 %>
        </div>
 </td>
  </tr>
 <%
  rs_big.movenext
  i=i+1
  loop
  next
  end if
  rs_big.close
  set rs_big=nothing
 %>
</table>


本文地址:https://www.shengbios.com/news/new_content/241,转载请注明。

版权所有:shengbios © Copyright 2007-2022 All Rights Reserved
管理员email:shengbios#163.com