欢迎光临爱时尚女性网
 

ASP提纲

2012-6-25 编辑:knwz 来源:爱时尚女性网 阅读次数:888
  导读: 燗SP提纲 燗SP提纲 ...

<%@ Language=VBScript %>
<%Option Explicit%>
<%
燚im items(10,2), maxItems
爉axItems = 9
爄tems(0,0) = "节点 1"
爄tems(1,0) = "节点 1"
爄tems(2,0) = "节点 1"
爄tems(3,0) = "节点 2"
爄tems(4,0) = "节点 2"
爄tems(5,0) = "节点 2"
爄tems(6,0) = "节点 3"
爄tems(7,0) = "节点 3"
爄tems(8,0) = "节点 3"
爄tems(9,0) = "节点 3"

爄tems(0,1) = "子节点 1.1"
爄tems(1,1) = "子节点 1.2"
爄tems(2,1) = "子节点 1.3"
爄tems(3,1) = "子节点 2.1"
爄tems(4,1) = "子节点 2.2"
爄tems(5,1) = "子节点 2.3"
爄tems(6,1) = "子节点 3.1"
爄tems(7,1) = "子节点 3.2"
爄tems(8,1) = "子节点 3.3"
爄tems(9,1) = "子节点 3.4"
%>

<%
燚im index,currentItem, openItem
爋penItem = Request.QueryString("open")
%>


ASP提纲


ASP提纲




    <%
    牋index = 0
    牋Do while index <= maxItems
    牋爄f items(index,0) <> currentItem then
    牋牋If items(index,0) <> openItem then _
    牋牋燫esponse.Write("" )
    牋牋燫esponse.Write( "
  • " & items(index,0) & "" )
    牋牋End If
    牋牋
    牋牋currentItem = items(index,0)
    牋牋If items(index,0) = openItem then
    牋牋燫esponse.Write("
      ")
      牋牋燚o While index <= maxItems AND items(index,0) = openItem
      牋牋牋Response.Write( "
    • " & items(index,1) )
      牋牋牋index = index + 1
      牋牋燣oop
      牋牋燫esponse.Write("
    ")
    牋牋End If
    牋爄ndex = index + 1
    牋Loop
    %>


文章出自:爱时尚女性网www.aspjc.com,尊重版权是美德,转载请保留原地址,感谢合作!

 
 
链接交换请联系:QQ:790646582 首页链接要求百度快照在一周以内,不符合以上要求的各站,我们将定期把友情连接转入内页,谢谢合作。
Copyright @ 2012-2015 爱时尚女性网 保留所有权利吉ICP备14005127号-1 服务QQ:175529508 e-mail:zk8312@163.com
本站部分资源来自网友上传,如果无意之中侵犯了您的版权,请联系本站,本站将在3个工作日内删除。