月光软件站 - 编程文档 - ASP - 动态的二级伸缩式的菜单，asp编写（原创黑闪）

ASP

本类阅读TOP10

·asp常用数据库连接方法和技巧
·无组件生成BMP验证码
·一些常用的辅助代码 (网络收藏)
·JavaScript实现的数据表格：冻结列、调整列宽和客户端排序
·VisualStudio.NET_2003及其 MSDN 下载地址
·ASP模拟MVC模式编程
·图片以二进制流输出到网页
·MD5加密算法 ASP版
·ASP.NET编程中的十大技巧
·改进 ASP 的字符串处理性能

→ 分类导航

VC语言	Delphi
VB语言	ASP
Perl	Java
Script	数据库
其他语言	游戏开发
文件格式	网站制作
软件工程	.NET开发

动态的二级伸缩式的菜单，asp编写（原创黑闪）

作者：未知来源：月光软件站 加入时间：2005-5-13　月光软件站

这是本来的静态的二级菜单

  <META http-equiv="Content-Type" content="text/html; charset=gb2312">
  <LINK href="admin/adminstyle.css" type="text/css" rel="stylesheet">
   <SCRIPT>
function aa(Dir)
{tt.doScroll(Dir);Timer=setTimeout('aa("'+Dir+'")',100)}//这里100为滚动速度
function StopScroll(){if(Timer!=null)clearTimeout(Timer)}

CatRsSql = "SELECT * FROM CN_Category"

CatRs.Open CatRsSql,conn,1,1
tablenum=3
%>
              <% Do While Not CatRs.Eof %>
              <%
If Not CatRs.Eof Then   ' http://localhost/Double/product.asp?SubCategoryID=731
    Response.Write "<TABLE cellSpacing='1' cellPadding='0' width='140' align='center' class='a2' ID='Table"&tablenum&"'>"
tablenum=tablenum+1
          Response.Write "<TBODY>"
            Response.Write "<TR align='center' class='a1'>"
              Response.Write "<TD width='140' height='25' align='center' bgcolor='#6381C1' class='menu_title' id='menuTitle1' style='cursor:hand' onclick='showsubmenu("&tablenum&")' <SPAN><span class='style1'>"
      'Response.Write "<a href='product.asp?CategoryID=" & CatRs("ID") & "'>" & CatRs("CateName") & "</a>"
      Response.Write CatRs("CateName")
      Response.Write"</span> </SPAN></TD>"
            Response.Write "</TR>"
            Response.Write "<TR align='center' class='a3'>"
              Response.Write "<TD id='submenu"&tablenum&"' style='DISPLAY: none'><DIV class='sec_menu' style='WIDTH: 140px'>"
                  Response.Write "<TABLE cellSpacing='0' cellPadding='0' width='90%' align='center' ID='Table"&tablenum&"'>"
      tablenum=tablenum+1
                    Response.Write "<TBODY>"
       set SubRs = Server.CreateObject("ADODB.Recordset")
                         SubRsSql = "SELECT * FROM CN_SubCategory where CategoryID="&CatRs("id")
                        SubRs.Open SubRsSql,conn,1,1
      Do While Not SubRs.Eof
      If Not SubRs.Eof Then
                      Response.Write "<TR align='center'>"

                        Response.Write "<TD height='20'><a target='main' href='product.asp?SubCategoryID="&SubRs("ID")&"'>"&SubRs("SubCategory")&"</a></TD> "

                      Response.Write "</TR>"
        SubRs.MoveNext
       End If
        Loop
                     SubRs.Close()
                    Response.Write "</TBODY>"
                  Response.Write "</TABLE>"
              Response.Write "</DIV></TD>"
            Response.Write "</TR>"
         Response.Write " </TBODY>"
   Response.Write " </TABLE>"

    CatRs.MoveNext
End If
%>
              <% Loop
CatRs.Close()
%>
            </p>

相关文章：

相关软件：