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
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>" & CStr(dt.Rows(i)("Name")) & "</div>"
End If
Else
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>" & CStr(dt.Rows(i)("Name")) & "</div>"
End If
Page.Response.Write(wrt)
Next
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(
