ASP.NET中不定级动态菜单的实现
作者 佚名技术
来源 NET编程
浏览
发布时间 2012-05-21
| bjCmd.Connection.Open() objRead = objCmd.ExecuteReader() While objRead.Read()?? ?? If j = 0 Then j = Len(Trim(objRead.Item("classid"))) ?? Else strid = strid1 strname = strname1 i = Len(Trim(objRead.Item("classid"))) k = i - j Select Case k ?? Case Is > 0 txtwriter.WriteLine("<treenode text=''" & strname & "'' NavigateUrl=''xxcb_add.aspx?classname=" & strname & "" & strand & "classid=" & strid & "'' Target=''main1''>") ?? Case Is = 0 txtwriter.WriteLine("<treenode text=''" & strname & "'' NavigateUrl=''xxcb_add.aspx?classname=" & strname & "" & strand & "classid=" & strid & "'' Target=''main1''/>") ?? Case Is < 0 txtwriter.WriteLine("<treenode text=''" & strname & "'' NavigateUrl=''xxcb_add.aspx?classname=" & strname & "" & strand & "classid=" & strid & "'' Target=''main1''/>") ?? ''txtwriter.WriteLine("</treenode>") ?? m = k ?? While m < 0 txtwriter.WriteLine("</treenode>") m = m + 2 ?? End While End Select j = Len(Trim(objRead.Item("classid"))) ?? End If?? ?? strid1 = Trim(objRead.Item("classid")) ?? strname1 = Trim(objRead.Item("classname")) ?? End While ?? ''strid = strid1 ?? ''strname = strname1 ?? i = Len(strid) ?? k = j - i ?? strid = strid1 ?? strname = strname1 ?? Select Case k Case Is > 0 ?? txtwriter.WriteLine("<treenode text=''" & strname & "'' NavigateUrl=''xxcb_add.aspx?classname=" & strname & "" & strand & "classid=" & strid & "'' Target=''main1''/>") ?? ''txtwriter.WriteLine("</treenode>") ?? m = Len(strid) / 2 ?? While m > 1 txtwriter.WriteLine("</treenode>") m = m - 1 ?? End While Case Is = 0 ?? txtwriter.WriteLine("<treenode text=''" & strname & "'' NavigateUrl=''xxcb_add.aspx?classname=" & strname & "" & strand & "classid=" & strid & "'' Target=''main1''/>") ?? ''txtwriter.WriteLine("</treenode>") ?? m = Len(strid) / 2 ?? While m > 1 txtwriter.WriteLine("</treenode>") m = m - 1 ?? End While Case Is <= 0 ?? txtwriter.WriteLine("<treenode text=''" & strname & "'' NavigateUrl=''xxcb_add.aspx?classname=" & strname & "" & strand & "classid=" & strid & "'' Target=''main1''/>") ?? ''txtwriter.WriteLine("</treenode>") ?? m = Len(strid) / 2 ?? While m > 1 txtwriter.WriteLine("</treenode>") m = m - 1 ?? End While End Select txtwriter.WriteLine("</TREENODES>") ?? txtwriter.Close() ?a?ùmenuone.txt?í°′ò |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
上一篇: ASP.NET定义主题和外观下一篇: ASP.NET中基类页的设计和使用
关于ASP.NET中不定级动态菜单的实现的所有评论
