知识大全 ASP.NET中不定级动态菜单的实现

Posted 2022-07-17 菜单

篇首语：运气不可能持续一辈子，能帮助你持续一辈子的东西只有你个人的能力。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 ASP.NET中不定级动态菜单的实现相关的知识，希望对你有一定的参考价值。

ASP.NET中不定级动态菜单的实现 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

我们平时IEWebContr来做菜单时都是在中直接输入也就是说是静态的现在要做成动态的而且菜单级数不定怎么来实现呢？笔者通过研究发现用IEWebContr来做菜单时菜单项可以直接输入也可以用如下的方法指定从某一个文件中读取菜单项　　

＜iewc:TreeView runat= server ID= Treeview NAME= Treeview ＞ ＜iewc:TreeNode id= Treenode runat= server TreeNodeSrc= menuone txt Expanded= True Text= 信息类别列表 ＞ ＜/iewc:TreeNode＞ ＜/iewc:TreeView＞

　　　其中menuone txt的内容如下　　

＜TREENODES＞ ＜treenode text= 蔬菜 NavigateUrl= xxcb_add aspx?classname=蔬菜&classid= ? Target= main ＞ 　＜treenode text= 白菜 NavigateUrl= xxcb_add aspx?classname=白菜&classid= ?? Target= main /＞ 　＜treenode text= 萝卜 NavigateUrl= xxcb_add aspx?classname=萝卜&classid= ?? Target= main /＞ 　＜treenode text= 黄花菜 NavigateUrl= xxcb_add aspx?classname=黄花菜&classid= ?? Target= main /＞ ＜/treenode＞ ＜treenode text= 水果 NavigateUrl= xxcb_add aspx?classname=水果&classid= ? Target= main ＞ 　＜treenode text= 苹果 NavigateUrl= xxcb_add aspx?classname=苹果&classid= ? Target= main ＞ 　＜treenode text= 红富士 NavigateUrl= xxcb_add aspx?classname=红富士&classid= ?? Target= main /＞ ＜treenode text= 其它苹果 NavigateUrl= xxcb_add aspx?classname=其它苹果&classid= ?? Target= main /＞　　 ＜/treenode＞ 　＜treenode text= 桃子 NavigateUrl= xxcb_add aspx?classname=桃子&classid= ?? Target= main /＞ 　＜treenode text= 荔枝 NavigateUrl= xxcb_add aspx?classname=荔枝&classid= ?? Target= main /＞ ＜/treenode＞ ＜treenode text= 粮食 NavigateUrl= xxcb_add aspx?classname=粮食&classid= ? Target= main ＞ 　＜treenode text= 大米 NavigateUrl= xxcb_add aspx?classname=大米&classid= ?? Target= main /＞ 　＜treenode text= 玉米 NavigateUrl= xxcb_add aspx?classname=玉米&classid= ?? Target= main /＞ ＜/treenode＞ ＜/TREENODES＞

　　现在的问题变成了如何将数据表根据类别号修改menuone txt文件将该过程放在对数据表修改后进行下面是根据表的内容生成menuone txt的源代码　　

Imports System IO Dim txriter As StreamWriter txriter = File CreateText(Server MapPathstrpath ( \\menuone txt )) txriter WriteLine( ＜TREENODES＞ ) Dim objConn As OleDbConnection Dim objCmd As OleDbCommand Dim objRead As OleDbDataReader Dim strSQL strDSN As String Dim strid strname strid strname As String Dim strand As String strand = & 　　 Dim i j k m As Integer i = j = k = m = strSQL = select * from class order by classid objConn = New OleDbConnection(ConfigurationSettings AppSettings( connString )) objCmd = New OleDbCommand(strSQL objConn) objCmd Connection Open() objRead = objCmd ExecuteReader() While objRead Read()　 　If j = Then 　　j = Len(Trim(objRead Item( classid ))) 　Else 　　strid = strid 　　strname = strname 　　i = Len(Trim(objRead Item( classid ))) 　　k = i j 　　Select Case k 　　　Case Is ＞ 　　　　txriter WriteLine( ＜treenode text= & strname & NavigateUrl= xxcb_add aspx?classname= & strname & & strand & classid= & strid & Target= main ＞ ) 　　　Case Is = 　　　　txriter WriteLine( ＜treenode text= & strname & NavigateUrl= xxcb_add aspx?classname= & strname & & strand & classid= & strid & Target= main /＞ ) 　　　Case Is ＜ 　　　　txriter WriteLine( ＜treenode text= & strname & NavigateUrl= xxcb_add aspx?classname= & strname & & strand & classid= & strid & Target= main /＞ ) 　　　 txriter WriteLine( ＜/treenode＞ ) 　　　m = k 　　　While m ＜ 　　　　txriter WriteLine( ＜/treenode＞ ) 　　　　m = m + 　　　End While 　　End Select 　　j = Len(Trim(objRead Item( classid ))) 　End If　 　strid = Trim(objRead Item( classid )) 　strname = Trim(objRead Item( classname )) 　End While　　 　 strid = strid 　 strname = strname 　i = Len(strid) 　k = j i 　strid = strid 　strname = strname 　Select Case k 　　Case Is ＞ 　　　txriter WriteLine( ＜treenode text= & strname & NavigateUrl= xxcb_add aspx?classname= & strname & & strand & classid= & strid & Target= main /＞ ) 　　　 txriter WriteLine( ＜/treenode＞ ) 　　　m = Len(strid) / 　　　While m ＞ 　　　　txriter WriteLine( ＜/treenode＞ ) 　　　　m = m 　　　End While 　　Case Is = 　　　txriter WriteLine( ＜treenode text= & strname & NavigateUrl= xxcb_add aspx?classname= & strname & & strand & classid= & strid & Target= main /＞ ) 　　　 txriter WriteLine( ＜/treenode＞ ) 　　　m = Len(strid) / 　　　While m ＞ 　　　　txriter WriteLine( ＜/treenode＞ ) 　　　　m = m 　　　End While 　　Case Is ＜= 　　　txriter WriteLine( ＜treenode text= & strname & NavigateUrl= xxcb_add aspx?classname= & strname & & strand & classid= & strid & Target= main /＞ ) 　　　 txriter WriteLine( ＜/treenode＞ ) 　　　m = Len(strid) / 　　　While m ＞ 　　　　txriter WriteLine( ＜/treenode＞ ) 　　　　m = m 　　　End While 　　End Select 　　txriter WriteLine( ＜/TREENODES＞ ) 　txriter Close()

cha138/Article/program/net/201311/13797