正在阅读：ASP.NET中不定级动态菜单的实现ASP.NET中不定级动态菜单的实现

　　〈/treenode〉
　　〈treenode text='桃子' NavigateUrl='xxcb_add.aspx?classname=桃子&classid=0202'?? Target='main1'/〉
　　〈treenode text='荔枝' NavigateUrl='xxcb_add.aspx?classname=荔枝&classid=0203'?? Target='main1'/〉
　　〈/treenode〉
　　〈treenode text='粮食' NavigateUrl='xxcb_add.aspx?classname=粮食&classid=03'? Target='main1'〉
　　〈treenode text='大米' NavigateUrl='xxcb_add.aspx?classname=大米&classid=0301'?? Target='main1'/〉
　　〈treenode text='玉米' NavigateUrl='xxcb_add.aspx?classname=玉米&classid=0302'?? Target='main1'/〉
　　〈/treenode〉
　　〈/TREENODES〉

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

　　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 = "&amp;"

　　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()