web/SHLeft.aspx.vb

（完整代码） 789B 

Imports BLL
Imports Model
Imports System.Data
Imports System.Data.SqlClient
Partial Class SHLeft
    Inherits System.Web.UI.Page
    Dim strFOLDER_BLL As New FOLDER_BLL
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            Try
                strFOLDER_BLL.BindList(mytree)
            Catch ex As Exception
                Response.Write("<script>alert('你的用户还没有分配权限');</script>")
            End Try

        End If

        If mytree.SelectedNode Is Nothing Then Return
        If mytree.SelectedNode.Expanded Then
            mytree.SelectedNode.Collapse()
        Else
            mytree.SelectedNode.Expand()
        End If
    End Sub
End Class

24 小时内免费解锁 3 个项目，之后 1 积分/个。 规则说明

AI 解读

登录后可用，每次 10 积分，解读结果公开显示在下面。

还没有人解读过这个文件。