ASP.NET中不定级动态菜单的实现 -pc6资讯

您的位置：首页 → 精文荟萃 → 软件资讯 → ASP.NET中不定级动态菜单的实现

ASP.NET中不定级动态菜单的实现 时间：2004/10/8 13:19:00来源：本站整理作者：蓝点我要评论(0)

作者：xiangwa 出处：CSDN

　前日，根据客户需要，要根据如下的表动态生成如下的菜单：表中的数据是动态更新的。

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

　
　　
　　

　　其中menuone.txt的内容如下：

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

　 Imports System.IO
　　Dim txtwriter As StreamWriter
　　txtwriter = File.CreateText(Server.MapPathstrpath ("\menuone.txt"))
　　txtwriter.WriteLine("")

　　Dim objConn As OleDbConnection
　　Dim objCmd As OleDbCommand
　　Dim objRead As OleDbDataReader
　　Dim strSQL, strDSN As String
　　Dim strid, strname, strid1, strname1 As String
　　Dim strand As String
　　strand = "&"

　　Dim i, j, k, m As Integer
　　i = 0
　　j = 0
　　k = 0
　　m = 0

　　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 = 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("")
　　Case Is = 0
　　txtwriter.WriteLine("")
　　Case Is < 0
　　txtwriter.WriteLine("")
　　'txtwriter.WriteLine("")

　　m = k
　　While m < 0
　　txtwriter.WriteLine("")
　　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("")
　　'txtwriter.WriteLine("")

　　m = Len(strid) / 2

　　While m > 1
　　txtwriter.WriteLine("")
　　m = m - 1
　　End While
　　Case Is = 0
　　txtwriter.WriteLine("")
　　'txtwriter.WriteLine("")
　　m = Len(strid) / 2

　　While m > 1
　　txtwriter.WriteLine("")
　　m = m - 1
　　End While
　　Case Is <= 0
　　txtwriter.WriteLine("")
　　'txtwriter.WriteLine("")

　　m = Len(strid) / 2

　　While m > 1
　　txtwriter.WriteLine("")
　　m = m - 1
　　End While

　　End Select
　　txtwriter.WriteLine("")
　　txtwriter.Close()

　　这样menuone.txt就按要求生成了菜单源文件。