E questa la routine per visualizzare.
<%
'******************************************************
' Author: Jacob "Bèézle" Gilley
' Email: avis7@airmail.net
' My Terms: You can use this control in anyway you see fit
' cause I have no means to enforce any guidelines
' or BS that most developers think they can get
' you to agree to by spouting out words like
' "intellectual property" and "The Code Gods".
' - Viva la Microsoft!
'******************************************************
Dim gblTreeNodeCount:gblTreeNodeCount = 1
Class TreeNode
Public Value1
Public Value2
Public Value3
Public Value4
Public ExpandImage
Public CollapseImage
Public LeafImage
Public Expanded
Private mszName
Private mcolChildren
Private mbChildrenInitialized
Public Property Get ChildCount()
ChildCount = mcolChildren.Count
End Property
Private Sub Class_Initialize()
mszName = "node" & CStr(gblTreeNodeCount)
gblTreeNodeCount = gblTreeNodeCount + 1
mbChildrenInitialized = False
Expanded = False
End Sub
Private Sub Class_Terminate()
If mbChildrenInitialized And IsObject(mcolChildren) Then
mcolChildren.RemoveAll()
Set mcolChildren = Nothing
End If
End Sub
Private Sub InitChildList()
Set mcolChildren = Server.CreateObject("Scripting.Dictionary")
mbChildrenInitialized = True
End Sub
Private Sub LoadState()
If Request(mszName) = "1" Or Request("togglenode") = mszName Then
Expanded = True
End If
End Sub
Public Function CreateChild(szValue1,szValue2,szValue3,szValue4)
If Not mbChildrenInitialized Then InitChildList()
Set CreateChild = New TreeNode
CreateChild.Value1 = szValue1
CreateChild.Value2 = szValue2
CreateChild.Value3 = szValue3
CreateChild.Value4 = szValue4
CreateChild.ExpandImage = ExpandImage
CreateChild.CollapseImage = CollapseImage
CreateChild.LeafImage = LeafImage
mcolChildren.Add mcolChildren.Count + 1, CreateChild
End Function
Public Sub Draw()
LoadState()
Response.Write "<table border=""0"">" & vbCrLf
Response.Write "<tr><td>" & vbCrLf
If Expanded Then
Response.Write "<a href=""javascript:collapseNode('" & mszName & "')""><img src=""" & CollapseImage & """ border=""0""></a>" & vbCrLf
ElseIf Not mbChildrenInitialized Then
Response.Write "<img src=""" & LeafImage & """ border=0>" & vbCrLf
Else
Response.Write "<a href=""javascript:expandNode('" & mszName & "')""><img src=""" & ExpandImage & """ border=""0""></a>" & vbCrLf
End If
Response.Write "</td>" & vbCrLf
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
nodosel = Request.QueryString("togglenode")
if nodosel = mszName then
Response.write "<td nowrap width=400 bgcolor=yellow><H5>" & Value1 & " " & vbCrLf
else
Response.write "<td nowrap width=400><H5>" & Value1 & " " & vbCrLf
end if
Response.Write Value2 & " " & "</td>" & vbCrLf
if isnull(Value3) or Value3 = "" then
Response.Write "<td width=40>" & vbCrLf
else
Response.Write "<td width=40 align=center background=sfondopuls.bmp>" & vbCrLf
end if
if isnull(Value3) or Value3 = "" then
Response.write "" & "</td>" & vbCrLf
else
Response.write "<a href=ubica.asp?ubi=" & Value3 & " title=Visualizza Ubicazione><H5>" & Value3 & "</td>" & vbCrLf
' Response.write "<Input type=button value=" & Value3 & " ONCLICK=ubica.asp?ubi=" & Value3 & "></td>" & vbCrLf
end if
Response.Write "<td>" & vbCrLf
if Value4 = "notpresent" then
Response.Write "<td>" & vbCrLf
else
Response.write "<a href=" & Value4 & " title=Visualizza Disegno><img border=0 src=disegno.bmp></td>" & vbCrLf
' Response.write "<Input type=button value=Open ONCLICK=aprimg(Value4)></td>" & vbCrLf
' Response.Write "<a href=""javascript:aprimg('" & Value4 & "')""><img src=disegno.bmp border=0></a>" & vbCrLf
' Response.Write "<a href=""javascript:aprimg()""><img src=disegno.bmp border=0></a>" & vbCrLf
end if
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
If Expanded Then
Response.Write "<input type=""hidden"" name=""" & mszName & """ value=""1"">" & vbCrLf
If mbChildrenInitialized Then
Response.Write "<tr><td> </td>" & vbCrLf
Response.Write "<td>" & vbCrLf
For Each ChildNode In mcolChildren.Items
ChildNode.Draw()
Next
Response.Write "</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
End If
End If
Response.Write "</table>" & vbCrLf
End Sub
End Class
Class Tree
Public Top
Public Left
Public ExpandImage
Public CollapseImage
Public LeafImage
Private mszPosition
Private mcolChildren
Public Property Let Absolute(bData)
If bData Then mszPosition = "absolute" Else mszPosition = "relative"
End Property
Public Property Get Absolute()
Absolute = CBool(mszPosition = "absolute")
End Property
Private Sub Class_Initialize()
Set mcolChildren = Server.CreateObject("Scripting.Dictionary")
mnTop = 0
mnLeft = 0
mszPosition = "absolute"
End Sub
Private Sub Class_Terminate()
mcolChildren.RemoveAll()
Set mcolChildren = Nothing
End Sub
Public Function CreateChild(szValue1,szValue2,szValue3,szValue4)
Set CreateChild = New TreeNode
CreateChild.Value1 = szValue1
CreateChild.Value2 = szValue2
CreateChild.Value3 = szValue3
CreateChild.Value4 = szValue4
CreateChild.ExpandImage = ExpandImage
CreateChild.CollapseImage = CollapseImage
CreateChild.LeafImage = LeafImage
mcolChildren.Add mcolChildren.Count + 1, CreateChild
End Function
Public Sub Draw()
AddClientScript()
Response.Write "<div id=""treectrl"" style=""left: " & Left & "px; top: " & Top & "px; position: " & mszPosition & ";"">" & vbCrLf
Response.Write "<form name=""treectrlfrm"" action=""" & Request.ServerVariables("SCRIPT_NAME") & """ method=""get"">" & vbCrLf
Response.Write "<table border=""0"">" & vbCrLf
Response.Write "<tr><td>" & vbCrLf
For Each ChildNode In mcolChildren.Items
ChildNode.Draw()
Next
Response.Write "</td></tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Response.Write "<input type=""hidden"" name=""togglenode"" value="""">" & vbCrLf
Response.Write "</form>" & vbCrLf
Response.Write "</div>" & vbCrLf
End Sub
Private Sub AddClientScript()
%>
<script language="JavaScript">
function expandNode(szNodeName)
{
if(document.layers != null) {
document.treectrl.document.treectrlfrm.togglenode.value = szNodeName;
document.treectrl.document.treectrlfrm.submit();
}
else {
document.all["treectrlfrm"].togglenode.value = szNodeName;
document.all["treectrlfrm"].submit();
}
}
function collapseNode(szNodeName)
{
if(document.layers != null) {
document.treectrl.document.treectrlfrm.elements[szNodeName].value = -1;
document.treectrl.document.treectrlfrm.submit();
}
else {
document.treectrlfrm.elements[szNodeName].value = -1;
document.treectrlfrm.submit();
}
}
function aprimg(url)
{
var shell = new ActiveXObject("Wscript.Shell");
shell.Run ("rundll32.exe C:\WINDOWS\System32\shimgvw.dll,ImageView_Fullscreen " + url) ;
}
</script>
<%
End Sub
End Class
%>
