<%@ Page Language="vb" Debug="true" culture="zh-cn" %> <%@ Import Namespace = "System.IO" %> <%@ Import Namespace = "System.Data.SqlClient" %> <%@ Import Namespace = "System.Data" %> <%@ Import Namespace = "System.Web.UI" %> <%@ Import Namespace = "System.Web" %> <%@ Import Namespace = "Microsoft.Web.UI.WebControls" %> <%@ Register TagPrefix = "iewc" Namespace="Microsoft.Web.UI.WebControls" Assembly="Microsoft.Web.UI.WebControls, Version=1.0.2.226, Culture=neutral, PublicKeyToken=31bf3856ad364e35" %> <HTML> <HEAD> <title>treeview</title> <script runat="server" language="vb"> Protected WithEvents TreeView1 As Microsoft.Web.UI.WebControls.TreeView 'TABLE Nodes : ID, Nod_Id_1, Nod_Id_2, Nod_Id_3, Nod_Tit, Nod_Url, Nod_Lev, Nod_Dept, Nod_Auth, Nod_Date, Nod_MenDim myConn As SQLConnection Dim mySQLString As String = "SELECT * FROM Nodes Where Nod_Id_1 > 1 order by Nod_Id_1,Nod_Id_2,Nod_Id_3"Sub Page_Load(Src As Object, E As EventArgs) DBBind End SubSub DataConn myConn = New SQLConnection(Application("myweb_ConnectionString")) End SubSub DBBind Dim Nodes_1 As TreeNode Dim Nodes_2 As TreeNode Dim Nodes_3 As TreeNode Dim DRNodes As DataRow myConn = New SQLConnection(Application("web_ConnectionString")) Dim myAdapter As New SQLDataAdapter(mySQLString,myConn) Dim myDataSet As New DataSet() myAdapter.Fill(myDataSet,"Nodes") 'myDataGrid.DataSource = myDataSet 'myDataGrid.DataBind() For Each DRNodes In myDataSet.Tables("Nodes").Rows If DRNodes("Nod_Id_2") = 0 Then Nodes_1 = New TreeNode() Nodes_1.Text = DRNodes("Nod_Tit") TreeView11.Nodes.Add(Nodes_1) Else If DRNodes("Nod_Id_3") = 0 Then Nodes_2 = New TreeNode() Nodes_2.Target = "main" Nodes_2.Navigateurl = DRNodes("Nod_Url") Nodes_2.Text = DRNodes("Nod_Tit") Nodes_1.Nodes.Add(Nodes_2) Else Nodes_3 = New TreeNode() Nodes_3.Target = "main" Nodes_3.Navigateurl = DRNodes("Nod_Url") Nodes_3.Text = DRNodes("Nod_Tit") Nodes_2.Nodes.Add(Nodes_3) End If End If Next
老兄,你的那些连接怎么都打不开?
<%@ Import Namespace = "System.IO" %>
<%@ Import Namespace = "System.Data.SqlClient" %>
<%@ Import Namespace = "System.Data" %>
<%@ Import Namespace = "System.Web.UI" %>
<%@ Import Namespace = "System.Web" %>
<%@ Import Namespace = "Microsoft.Web.UI.WebControls" %>
<%@ Register TagPrefix = "iewc" Namespace="Microsoft.Web.UI.WebControls" Assembly="Microsoft.Web.UI.WebControls, Version=1.0.2.226, Culture=neutral, PublicKeyToken=31bf3856ad364e35" %>
<HTML>
<HEAD>
<title>treeview</title>
<script runat="server" language="vb">
Protected WithEvents TreeView1 As Microsoft.Web.UI.WebControls.TreeView
'TABLE Nodes : ID, Nod_Id_1, Nod_Id_2, Nod_Id_3, Nod_Tit, Nod_Url, Nod_Lev, Nod_Dept, Nod_Auth, Nod_Date, Nod_MenDim myConn As SQLConnection
Dim mySQLString As String = "SELECT * FROM Nodes Where Nod_Id_1 > 1 order by Nod_Id_1,Nod_Id_2,Nod_Id_3"Sub Page_Load(Src As Object, E As EventArgs)
DBBind
End SubSub DataConn
myConn = New SQLConnection(Application("myweb_ConnectionString"))
End SubSub DBBind
Dim Nodes_1 As TreeNode
Dim Nodes_2 As TreeNode
Dim Nodes_3 As TreeNode
Dim DRNodes As DataRow
myConn = New SQLConnection(Application("web_ConnectionString")) Dim myAdapter As New SQLDataAdapter(mySQLString,myConn)
Dim myDataSet As New DataSet()
myAdapter.Fill(myDataSet,"Nodes")
'myDataGrid.DataSource = myDataSet
'myDataGrid.DataBind() For Each DRNodes In myDataSet.Tables("Nodes").Rows
If DRNodes("Nod_Id_2") = 0 Then
Nodes_1 = New TreeNode()
Nodes_1.Text = DRNodes("Nod_Tit")
TreeView11.Nodes.Add(Nodes_1)
Else
If DRNodes("Nod_Id_3") = 0 Then
Nodes_2 = New TreeNode()
Nodes_2.Target = "main"
Nodes_2.Navigateurl = DRNodes("Nod_Url")
Nodes_2.Text = DRNodes("Nod_Tit")
Nodes_1.Nodes.Add(Nodes_2)
Else
Nodes_3 = New TreeNode()
Nodes_3.Target = "main"
Nodes_3.Navigateurl = DRNodes("Nod_Url")
Nodes_3.Text = DRNodes("Nod_Tit")
Nodes_2.Nodes.Add(Nodes_3)
End If
End If
Next
myDataSet.Dispose()
myConn.Close()
myConn.Dispose()
End Sub
</script>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="Microsoft Border" content="none"><base target="main"></HEAD>
<body bgproperties="fixed" topmargin="0"><center>
<form runat="server">
<asp:DataGrid id="MyDataGrid" runat="server" ></asp:DataGrid>
<asp:Table id="Table1" runat="server" Height="100%" Width="100%">
<asp:TableRow height="20px">
<asp:TableCell style="background-color: #1D3752">
<font face="宋体-18030" size="2" color="#DCEEFF" >请选择查询项目</font><font size="2">
</font>
</asp:TableCell>
</asp:TableRow>
<asp:TableRow height="100%">
<asp:TableCell>
<iewc:TreeView id="TreeView11" runat="server"
Height="100%" width="100%" BackColor="#F0F8FF" Expanded="true">
</iewc:TreeView>
</asp:TableCell>
</asp:TableRow>
</asp:Table>
</form>
</center></body>
</HTML>
例如“http://expert.csdn.net/Expert/topic/1763/1763592.xml?temp=2.390689E-02”,它的帖子ID应该是1763592
TreeView专题讨论