home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 32 / IOPROG_32.ISO / SOFT / SqlEval7 / MSOLAP / samples / Samples.exe / AspAdoCubeTree / ASPADOCubeTree.asp
Encoding:
Text File  |  1998-10-30  |  17.4 KB  |  297 lines
  1. <%@ Language=VBScript %>
  2. <%
  3. Response.Buffer=True
  4.  
  5. Response.Write "<html>"
  6. Response.Write "<head>"
  7. Response.Write "<meta NAME=GENERATOR Content='Microsoft Visual Studio 6.0'>"
  8. Response.Write "<script language=javascript src=javascript/DimensionDrop.js></script>"
  9. Response.Write "</head>"
  10. Response.Write "<body topmargin=15 leftmargin=15 marginwidth=15 marginheight=11 bgcolor=white alink=black vlink=gray link=black>"
  11.  
  12. Server.ScriptTimeout=360
  13. Dim cat,cdf,di,hi,le,mem,strServer,strSource,strCubeName,CCount,DCount,HCount,LCount,CCount1,DCount1,HCount1,LCount1,TreeValue
  14. '**************************************************************************************
  15. '*** Collect Form information
  16. '**************************************************************************************
  17. Session("CubeName") = Request.Form("strCubeName")
  18. Session("CatalogName") = Request.Form("strCatalogName")
  19. Session("ServerName") = Request.Form("strServerName")
  20. Session("CubeFile") = Request.Form("strCubeFile")
  21. Session("CubeType") = Request.Form("CubeType")
  22.  
  23. Set cat = Server.CreateObject("ADOMD.Catalog")
  24.  
  25. '**************************************************************************************
  26. '*** Check If running againist OLAP Server or Local Cube file
  27. '**************************************************************************************
  28. If Session("CubeType") > 0 Then
  29.     If Len(Session("CubeFile")) > 0 Then
  30.         cat.ActiveConnection = "Data Source=" & Session("CubeFile") & ";Provider=msolap;"
  31.     Else
  32.         cat.ActiveConnection = "Data Source=C:\warecube1.cub;Provider=msolap;"
  33.         Session("CubeFile") = "C:\warecube1.cub"
  34.     End if
  35.     If Len(Session("CubeName")) > 0 Then
  36.         Set cdf = cat.CubeDefs(Session("CubeName"))
  37.     Else
  38.         Set cdf = cat.CubeDefs("Sample")
  39.         Session("CubeName")="Sample"
  40.     End if
  41. Else
  42.     If Len(Session("ServerName")) > 0 Then
  43.         cat.ActiveConnection = "Data Source=" & Session("ServerName") & ";Initial Catalog=" & Session("CatalogName") & ";Provider=msolap;"
  44.     Else
  45. '************************************************************************************
  46. '*** Must set OLAPServerName to OLAP Server that is
  47. '*** present on network
  48. '************************************************************************************
  49.         OLAPServerName = "Please set to present OLAP Server"
  50.         cat.ActiveConnection = "Data Source=" & OLAPServerName & ";Initial Catalog=FoodMart;Provider=msolap;"
  51.         Session("ServerName") = OLAPServerName
  52.         Session("InitialCatalog") = "FoodMart"
  53.     End if
  54.  
  55.     If Len(Session("CubeName")) > 0 Then
  56.         Set cdf = cat.CubeDefs(Session("CubeName"))
  57.     Else
  58.         Set cdf = cat.CubeDefs("Sales")
  59.         Session("CubeName")="Sales"
  60.         Session("CubeFile") = "C:\warecube1.cub"
  61.     End if
  62. End if
  63.  
  64. '**************************************************************************************
  65. '*** HTML Form for data Collection
  66. '**************************************************************************************
  67. Response.Write "<table border=3 bordercolor=SteelBlue>"
  68.     Response.Write "<tr>"
  69.         Response.Write "<td>"
  70.             Response.Write "<H3><U><Font color=SteelBlue>Properties of Cube on OLAP Server</Font></U></H3>"
  71.             Response.Write "<form action=ASPADOCubeTree.asp method=post id=form1 name=form1>"
  72.                 Response.Write "<table border=2 bordercolor=SteelBlue>"
  73.                     Response.Write "<tr>"
  74.                         Response.Write "<td>"
  75.                             Response.Write "<b>Olap Server name:  </b><br><input type=text id=strServerName name=strServerName value=" & Session("ServerName") & " size=20><br>"
  76.                             Response.Write "<b>Catalog Name:  </b><br><input type=text id=strCatalogName name=strCatalogName value=" & Session("CatalogName") & " size=20><br>"
  77.                             Response.Write "<b>Cube Name:  </b><br><input type=text id=strCubeName name=strCubeName value=" & Session("CubeName") & " size=20>"
  78.                             Response.Write "<INPUT type=hidden  id=CubeFile name=CubeType Value=0>"
  79.                         Response.Write "</td>"
  80.                     Response.Write "</tr>"
  81.                     Response.Write "<tr>"
  82.                         Response.Write "<td>"
  83.                             Response.Write "<input type=submit value='Cube Information' id=submit1 name=submit1><input type=reset value=Reset id=reset1 name=reset1>"
  84.                         Response.Write "</td>"
  85.                     Response.Write "</tr>"
  86.                 Response.Write "</table>"
  87.             Response.Write "</form>"
  88.         Response.Write "</td>"
  89.         Response.Write "<td>"
  90.             Response.Write "<H3><U><Font color=SteelBlue>Properties of Cube File</Font></U></H3>"
  91.             Response.Write "<form action=ASPADOCubeTree.asp method=post id=form2 name=form2>"
  92.                 Response.Write "<table border=2 bordercolor=SteelBlue>"
  93.                     Response.Write "<tr>"
  94.                         Response.Write "<td>"
  95.                             Response.Write "<b>Complete Path and Cube file Name:  </b><br><input type=text id=strCubeFile name=strCubeFile value=" & Session("CubeFile") & " size=30><br>"
  96.                             Response.Write "<b>Cube Name:  </b><br><input type=text id=strCubeName name=strCubeName value=" & Session("CubeName") & " size=20>"
  97.                             Response.Write "<INPUT type=hidden  id=CubeType name=CubeType Value=1>"
  98.                         Response.Write "</td>"
  99.                     Response.Write "</tr>"
  100.                     Response.Write "<tr>"
  101.                         Response.Write "<td>"
  102.                             Response.Write "<input type=submit value='Cube File Information' id=submit2 name=submit2><input type=reset value=Reset id=reset2 name=reset2>"
  103.                         Response.Write "</td>"
  104.                     Response.Write "</tr>"
  105.                 Response.Write "</table>"
  106.             Response.Write "</form>"
  107.         Response.Write "</td>"
  108.     Response.Write "</tr>"
  109. Response.Write "</table>"
  110. '**************************************************************************************
  111. '*** World Icon for Cube Header
  112. '**************************************************************************************
  113.     Response.Write "<div ID=mParent class=parent>"
  114.         Response.Write "<a name=ma href=# onClick=PropertiesExpand('m','top')>"
  115.             Response.Write "<img name=mTree src=images/topopen.gif class=icon align=absmiddle border=0 WIDTH=19 HEIGHT=20>"
  116.             Response.Write "<font color=black size=2 class=item>Report for " &  Session("CubeName") & " Cube</font>"
  117.         Response.Write "</a>"
  118.     Response.Write "</div>"
  119.     
  120. '**************************************************************************************
  121. '*** Start of cube children
  122. '**************************************************************************************
  123.     Response.Write "<div ID=mChild CLASS=child>"    
  124.     TreeValue = 0
  125.  
  126.     For di = 0 To cdf.Dimensions.Count - 1
  127.         TreeValue = TreeValue + 1
  128.         Response.Write "<div ID=m" & TreeValue & "Parent class=parent>"
  129.                 Response.Write "<a name=m" & TreeValue & "a href=# onClick=PropertiesExpand('m" & TreeValue & "')>"
  130.                 Response.Write "<img name=m" & TreeValue & "Tree src=images/Tplus.gif align=absmiddle border=0 width=19 height=20>"
  131.                 Response.Write "<img name=m" & TreeValue & "Folder src=images/foldericon.gif class=icon align=absmiddle border=0 width=19 height=20>"
  132.                 Response.Write "<font color=black size=2 class=item>Dimension: <b>" & cdf.Dimensions(di).Name & "</b></font>"
  133.             Response.Write "</a>"
  134.         Response.Write "</div>"
  135.         Response.Write "<div ID=m" & TreeValue & "Child CLASS=child>"
  136. '**************************************************************************************
  137. '*** Start of Dimension children
  138. '**************************************************************************************            
  139.         For hi = 0 To cdf.Dimensions(di).Hierarchies.Count - 1
  140.             TreeValue = TreeValue + 1
  141.             Response.Write "<div ID=m" & TreeValue & "Parent class=parent>"
  142.                 Response.Write "<a name=m" & TreeValue & "a href=# onClick=PropertiesExpand('m" & TreeValue & "')>"
  143.                     Response.Write "<img src=images/I.gif align=absmiddle border=0 width=19 height=20>"
  144.                     Response.Write "<img name=m" & TreeValue & "Tree src=images/Tplus.gif align=absmiddle border=0 width=19 height=20>"
  145.                     Response.Write "<img name=m" & TreeValue & "Folder src=images/foldericon.gif class=icon align=absmiddle border=0 width=19 height=20>"
  146.                     Response.Write "<font color=black size=2 class=item>Hierarchy: <b>" & cdf.Dimensions(di).Hierarchies(hi).Name & "</b></font>"
  147.                 Response.Write "</a>"
  148.             Response.Write "</div>"
  149.             Response.Write "<div ID=m" & TreeValue & "Child CLASS=child>"
  150.  
  151. '**************************************************************************************
  152. '*** Start of Hierarchy children
  153. '**************************************************************************************
  154.             LCount =  cdf.Dimensions(di).Hierarchies(hi).Levels.Count - 1
  155.             For le = 0 To cdf.Dimensions(di).Hierarchies(hi).Levels.Count - 1
  156.                     TreeValue = TreeValue + 1
  157.                     Response.Write "<div ID=m" & TreeValue & "Parent class=parent>"
  158.                         Response.Write "<a name=m" & TreeValue & "a href=# onClick=PropertiesExpand('m" & TreeValue & "')>"
  159.                             Response.Write "<img src=images/I.gif align=absmiddle border=0 width=19 height=20>"
  160.                             Response.Write "<img src=images/I.gif align=absmiddle border=0 width=19 height=20>"
  161.                             Response.Write "<img name=m" & TreeValue & "Tree src=images/Tplus.gif align=absmiddle border=0 width=19 height=20>"
  162.                             Response.Write "<img name=m" & TreeValue & "Folder src=images/foldericon.gif class=icon align=absmiddle border=0 width=19 height=20>"
  163.                             Response.Write "<font color=black size=2 class=item>Level: <b>" & cdf.Dimensions(di).Hierarchies(hi).Levels(le).Name & "        ( " & cdf.Dimensions(di).Hierarchies(hi).Levels(le).Properties("LEVEL_CARDINALITY") & ")</b></font>"
  164.                         Response.Write "</a>"
  165.                     Response.Write "</div>"
  166.                     Response.Write "<div ID=m" & TreeValue & "Child CLASS=child>"
  167.                     
  168. '**************************************************************************************
  169. '*** Start of Level children
  170. '**************************************************************************************
  171.                         TreeValue = TreeValue + 1
  172.                             Response.Write "<div ID=m" & TreeValue & "Parent class=parent>"
  173.                                 Response.Write "<a name=m" & TreeValue & "a href=# onClick=PropertiesExpand('m" & TreeValue & "','last')>"
  174.                                     Response.Write "<img src=images/I.gif align=absmiddle border=0 width=19 height=20>"
  175.                                     Response.Write "<img src=images/I.gif align=absmiddle border=0 width=19 height=20>"
  176.                                     Response.Write "<img src=images/I.gif align=absmiddle border=0 width=19 height=20>"
  177.                                     Response.Write "<img name=m" & TreeValue & "Tree src=images/Lplus.gif align=absmiddle border=0 width=19 height=20>"
  178.                                     Response.Write "<img name=m" & TreeValue & "Folder src=images/foldericon.gif class=icon align=absmiddle border=0 width=19 height=20>"
  179.                                     Response.Write "<font color=black size=2 class=item><b>Properties</b></font>"
  180.                                 Response.Write "</a>"
  181.                             Response.Write "</div>"
  182.                             Response.Write "<div ID=m" & TreeValue & "Child CLASS=child>"
  183.                                 LCount1 =  cdf.Dimensions(di).Hierarchies(hi).Levels(le).Properties.Count -1
  184.                                 For i = 0 To cdf.Dimensions(di).Hierarchies(hi).Levels(le).Properties.Count -1
  185.                                     Response.Write "<img src=images/I.gif align=absmiddle border=0 width=19 height=20>"
  186.                                     Response.Write "<img src=images/I.gif align=absmiddle border=0 width=19 height=20>"
  187.                                     Response.Write "<img src=images/I.gif align=absmiddle border=0 width=19 height=20>"
  188.                                     Response.Write "<img src=images/white.gif align=absmiddle border=0 width=19 height=20>"
  189.                                     If i = LCount1 then
  190.                                         Response.Write "<img src=images/L.gif align=absmiddle border=0 width=19 height=20>"
  191.                                     Else
  192.                                         Response.Write "<img src=images/T.gif align=absmiddle border=0 width=19 height=20>"
  193.                                     End if
  194.                                     Response.Write "<img src=images/prop.gif align=absmiddle class=icon border=0 width=30 height=20>"
  195.                                     Response.Write "<a class=item href=#>" & cdf.Dimensions(di).Hierarchies(hi).Levels(le).Properties(i).Name & ": " & cdf.Dimensions(di).Hierarchies(hi).Levels(le).Properties(i).Value & "</a>"
  196.                                     Response.Write "<br>"
  197.                                 Next
  198.                             Response.Write "</div>"
  199.                     Response.Write "</div>"
  200.                 Next    
  201.                 
  202. '**************************************************************************************
  203. '*** End of Level children
  204. '**************************************************************************************
  205.                 TreeValue = TreeValue + 1
  206.                 Response.Write "<div ID=m" & TreeValue & "Parent class=parent>"
  207.                     Response.Write "<a name=m" & TreeValue & "a href=# onClick=PropertiesExpand('m" & TreeValue & "','last')>"
  208.                         Response.Write "<img src=images/I.gif align=absmiddle border=0 width=19 height=20>"
  209.                         Response.Write "<img src=images/I.gif align=absmiddle border=0 width=19 height=20>"
  210.                         Response.Write "<img name=m" & TreeValue & "Tree src=images/Lplus.gif align=absmiddle border=0 width=19 height=20>"
  211.                         Response.Write "<img name=m" & TreeValue & "Folder src=images/foldericon.gif class=icon align=absmiddle border=0 width=19 height=20>"
  212.                         Response.Write "<font color=black size=2 class=item><b>Properties</b></font>"
  213.                     Response.Write "</a>"
  214.                 Response.Write "</div>"
  215.                 Response.Write "<div ID=m" & TreeValue & "Child CLASS=child>"
  216.                 HCount = cdf.Dimensions(di).Hierarchies(hi).Properties.Count - 1
  217.                 For i = 0 To cdf.Dimensions(di).Hierarchies(hi).Properties.Count - 1
  218.                     Response.Write "<img src=images/I.gif align=absmiddle border=0 width=19 height=20>"
  219.                     Response.Write "<img src=images/I.gif align=absmiddle border=0 width=19 height=20>"
  220.                     Response.Write "<img src=images/white.gif align=absmiddle border=0 width=19 height=20>"
  221.                     If i = HCount then
  222.                         Response.Write "<img src=images/L.gif align=absmiddle border=0 width=19 height=20>"
  223.                     Else
  224.                         Response.Write "<img src=images/T.gif align=absmiddle border=0 width=19 height=20>"
  225.                     End if
  226.                     Response.Write "<img src=images/prop.gif align=absmiddle class=icon border=0 width=30 height=20>"
  227.                     Response.Write "<a class=item href=#>" & cdf.Dimensions(di).Hierarchies(hi).Properties(i).Name & ": " & cdf.Dimensions(di).Hierarchies(hi).Properties(i).Value & "</a>"
  228.                     Response.Write "<br>"
  229.                 Next
  230.                 Response.Write "</div>"
  231.                 Response.Write "</div>"
  232.             Next
  233.             
  234. '**************************************************************************************
  235. '*** End of Hierarchy children
  236. '**************************************************************************************
  237.         TreeValue = TreeValue + 1
  238.         Response.Write "<div ID=m" & TreeValue & "Parent class=parent>"
  239.             Response.Write "<a name=m" & TreeValue & "a href=# onClick=PropertiesExpand('m" & TreeValue & "','last')>"
  240.                 Response.Write "<img src=images/I.gif align=absmiddle border=0 width=19 height=20>"
  241.                 Response.Write "<img name=m" & TreeValue & "Tree src=images/Lplus.gif align=absmiddle border=0 width=19 height=20>"
  242.                 Response.Write "<img name=m" & TreeValue & "Folder src=images/foldericon.gif class=icon align=absmiddle border=0 width=19 height=20>"
  243.                 Response.Write "<font color=black size=2 class=item><b>Properties</b></font>"
  244.             Response.Write "</a>"
  245.         Response.Write "</div>"
  246.         Response.Write "<div ID=m" & TreeValue & "Child CLASS=child>"
  247.         DCount1 = cdf.Dimensions(di).Properties.Count - 1
  248.         For i = 0 To cdf.Dimensions(di).Properties.Count - 1
  249.             Response.Write "<img src=images/I.gif align=absmiddle border=0 width=19 height=20>"
  250.             Response.Write "<img src=images/white.gif align=absmiddle border=0 width=19 height=20>"
  251.             If i = DCount1 then
  252.                 Response.Write "<img src=images/L.gif align=absmiddle border=0 width=19 height=20>"
  253.             Else
  254.                 Response.Write "<img src=images/T.gif align=absmiddle border=0 width=19 height=20>"
  255.             End if
  256.             Response.Write "<img src=images/prop.gif align=absmiddle class=icon border=0 width=30 height=20>"
  257.             Response.Write "<a class=item href=#>" & cdf.Dimensions(di).Properties(i).Name & ": " & cdf.Dimensions(di).Properties(i).Value & "</a>"
  258.             Response.Write "<br>"
  259.         Next
  260.         Response.Write "</div>"
  261.         Response.Write "</div>"
  262.     Next
  263.     
  264. '**************************************************************************************
  265. '*** End of Dimension children
  266. '**************************************************************************************
  267. TreeValue = TreeValue + 1
  268. Response.Write "<div ID=m" & TreeValue & "Parent class=parent>"
  269.     Response.Write "<a name=m" & TreeValue & "a href=# onClick=PropertiesExpand('m" & TreeValue & "','last')>"
  270.         Response.Write "<img name=m" & TreeValue & "Tree src=images/Lplus.gif align=absmiddle border=0 width=19 height=20>"
  271.         Response.Write "<img name=m" & TreeValue & "Folder src=images/foldericon.gif class=icon align=absmiddle border=0 width=19 height=20>"
  272.         Response.Write "<font color=black size=2 class=item><b>Properties</b></font>"
  273.     Response.Write "</a>"
  274. Response.Write "</div>"
  275. Response.Write "<div ID=m" & TreeValue & "Child CLASS=child>"
  276. CCount = cdf.Properties.Count - 1
  277. For i = 0 To cdf.Properties.Count - 1
  278.     If i = CCount then
  279.         Response.Write "<img src=images/white.gif align=absmiddle border=0 width=19 height=20>"
  280.         Response.Write "<img src=images/L.gif align=absmiddle border=0 width=19 height=20>"
  281.     Else
  282.         Response.Write "<img src=images/white.gif align=absmiddle border=0 width=19 height=20>"
  283.         Response.Write "<img src=images/T.gif align=absmiddle border=0 width=19 height=20>"
  284.     End if
  285.     Response.Write "<img src=images/prop.gif align=absmiddle class=icon border=0 width=30 height=20>"
  286.     Response.Write "<a class=item href=#>" & cdf.Properties(i).Name & ": " & cdf.Properties(i).Value & "</a>"
  287.     Response.Write "<br>"
  288. Next
  289. Response.Write "</div>"
  290. Response.Write "</div>"
  291.     
  292. '**************************************************************************************
  293. '*** End of Cube children
  294. '**************************************************************************************
  295. Response.Write "</body>"
  296. Response.Write "</html>"
  297. %>