left.asp

这个也是一个功能强大的企业整站的ASP源代码

<style type="text/css">
.menutitle{
cursor:pointer;
margin-bottom: 5px;
background-color:#ECECFF;
color:#000000;
width:140px;
padding:2px;
text-align:center;
font-weight:bold;
/*/*/border:1px solid #000000;/* */
}

.submenu{
line-height: 20px;
}
</style>
<script type="text/javascript">
if (document.getElementById){ //DynamicDrive.com change
document.write('<style type="text/css">\n')
document.write('.submenu{display: none;}\n')
document.write('</style>\n')
}

function SwitchMenu(obj){
	if(document.getElementById){
	var el = document.getElementById(obj);
	var ar = document.getElementById("masterdiv").getElementsByTagName("span"); //DynamicDrive.com change
		if(el.style.display != "block"){ //DynamicDrive.com change
			for (var i=0; i<ar.length; i++){
				if (ar[i].className=="submenu") //DynamicDrive.com change
				ar[i].style.display = "none";
			}
			el.style.display = "block";
		}else{
			el.style.display = "none";
		}
	}
}

</script>
<div id="masterdiv">
  <table width="96%" border="0" cellspacing="0" cellpadding="0">
  	     <%set rs_left=conn.execute("select * from tenProductCate order by addtime desc")
		   i=0
		   do while not rs_left.eof
		   if i=0 then LeftCateID=rs_Left("ID")
		 %>
    <tr> 
      <td height="1" colspan="3"></td>
    </tr>
    <tr> 
      <td height="1" colspan="3"></td>
    </tr>
    <tr> 
      <td width="8" valign="top" bgcolor="#999999">
       <table width="100%" height="22" border="0" cellpadding="0" cellspacing="0" bgcolor="#666666">
          <tr>
            <td>&nbsp;</td>
          </tr>
        </table>	  	  
	  </td>
      <td width="2"></td>
      <td height="22">
	  <table width="100%" height="22" border="0" cellpadding="0" cellspacing="0" bgcolor="#CCCCCC">

          <tr>
            <td>&nbsp;<a href="#" class="left" onClick=SwitchMenu('sub<%=rs_left("ID")%>')><%=rs_left("Title")%></a></td>
          </tr>
        </table>
        <span id="sub<%=rs_left("ID")%>" class="submenu">
		  <%set rs_Product1=conn.execute("select * from tenProduct where CateID="&rs_left("ID")&" order by addtime desc")
		    do while not rs_Product1.eof
			   response.write "<a href=javascript:newWindow('/English/ShowProduct.asp?ID="&rs_Product1("ID")&"','product','713','583','')>"&rs_Product1("Title")&"</a><br>"
			   rs_Product1.movenext
			 loop  
			 rs_Product1.close()
		  %>
		</span></td>
    </tr>
    <tr> 
      <td height="1" colspan="3"></td>
    </tr>
    <tr> 
      <td height="1" colspan="3" bgcolor="CECFCE"></td>
    </tr>
    <tr> 
      <td height="1" colspan="3" bgcolor="#FFFFFF"></td>
    </tr>
	<% i=i+1 
	   rs_left.movenext
	  loop%>
  </table>
</div>
<%if request("CateID")="" then response.write "<script>SwitchMenu('Sub"&LeftCateID&"')</script>" else response.write "<script>SwitchMenu('Sub"&request("CateID")&"')</script>"%>