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 = "&" 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("<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() 这样menuone.txt就按要求生成了菜单源文件。