根据选择的树形节点用asp.net结合dw和js动态生成可移动可展开的层

Private Sub RefreshPos(ByVal arr() As String) '刷新显示各个门位置

Dim nsql As String = "select DpNo,PosLeft as X,PosTop as Y,MapPath,[Name],PosType from MJCfgDoorPos where Parent=(select Parent from MJCfgDoorPos where DpNo=" & arr(0) & ")"

Dim patPath As String = GetPatPath(CInt(arr(0)))

If conn.State = ConnectionState.Closed Then conn.Open()

Dim da As SqlDataAdapter = New SqlDataAdapter(nsql, conn)

Dim dt As DataTable

Dim ds As New DataSet

da.Fill(ds, "nodes")

dt = ds.Tables("nodes")

Dim wrt As String

Dim dpno As Integer

Dim nodepath As String

Dim htmltable As String

Dim bgpath As String

If patPath <> "" Then

htmltable = "<table align='center' background='" & patPath & "' width='600' height='400' border='1'><tr><td>"

Else

htmltable = "<table align='center' width='600' height='400' border='1'><tr><td>该节点还没有配置地图，右击左边树形节点可以进行地图配置！"

End If

Dim i As Integer

Page.Response.Write(htmltable) '画一个表格，作为地图容器

For i = 0 To dt.Rows.Count - 1

dpno = CInt(dt.Rows(i)("DpNo"))

If IsDBNull(dt.Rows(i)("MapPath")) Then

bgpath = "../Images/Doormaps/Node.gif"

Else

bgpath = CStr(dt.Rows(i)("MapPath"))

End If

If Not Page.Session("Info") Is Nothing Then

If dpno = CInt(Page.Session("Info")) Then

nodepath = "../Images/Doormaps/WarnNode.gif"

wrt = "<div id='" & dpno & "aaa' align='center'" & " style='" & "CURSOR: move;position:absolute; left:" & CStr(dt.Rows(i)("X")) & "px; top:" & CStr(dt.Rows(i)("Y")) & "px; width:40px; height:40px; z-index:1'" & " onMouseOver=" & """" & " MM_dragLayer('" & dpno & "aaa'" & ",'',0,0,0,0,true,false,-1,-1,-1,-1,false,false,0,'',true,'')" & """" & " OnDblClick=" & """" & "GetPosInfo('" & dpno & "','" & dpno & "aaa')" & """" & " oncontextmenu=" & "'showmenuie5()'" & " OnMouseUp=" & """" & "GetDpNo('" & dpno & "')" & """" & "><img width='50' height='50' src='" & bgpath & "'" & "><br><img src='" & nodepath & "'" & "><br>" & CStr(dt.Rows(i)("Name")) & "</div>"

Else

End If

Else

End If

Page.Response.Write(wrt)

Page.Response.Write("</td></tr></table>")

conn.Close()

End Sub '刷新显示移动并双击门位置后的地图

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Private Sub RefreshDoors(ByVal sql As String, ByVal HtmlTable As String) '选择节点或展开门位置(有子节点)后显示地图

If conn.State = ConnectionState.Closed Then conn.Open()

'显示选种部门下级的所有门位置图片,移动门图片再释放定位

Dim da As SqlDataAdapter = New SqlDataAdapter(sql, conn)

Dim dt As DataTable

Dim ds As New DataSet

da.Fill(ds, "nodes")

dt = ds.Tables("nodes")

Dim wrt As String

Dim dpno As Integer

Dim nodepath As String

Dim bgpath As String

Dim i As Integer

Page.Response.Write(HtmlTable) '画一个表格，作为地图容器

For i = 0 To dt.Rows.Count - 1

dpno = CInt(dt.Rows(i)("DpNo"))

If IsDBNull(

[1] [2] [3] [4] 下一页