/SQL/scripts/inc/tree_con.asp

http://github.com/khaneh/Orders · ASP · 92 lines · 78 code · 14 blank · 0 comment · 1 complexity · 0b96a5a48d2ffec175bfbd13b6a4462a MD5 · raw file 

    

  1. <!-- #INCLUDE FILE="../inc/mla_sql_include.asp" -->

    2. 

  2. <%

    3. 

  3. 	If Not Session("isConnected") Then

    4. 

  4. 		Response.Redirect "tree.asp"

    5. 

  5. 		Response.End

    6. 

  6. 	End If

    7. 

  7. 

    8. 

  8. 	Dim myArrDb, myDbCount, myStrSrvName

    9. 

  9. 	openConnection

    10. 

  10. 	myArrDB = getDbList()

    11. 

  11. 	myStrSrvName = getSrvName()

    12. 

  12. 	closeConnection

    13. 

  13. 	If isArray(myArrDb) Then myDbCount = UBound(myArrDb, 2) Else myDbCount = -1 End If

    14. 

  14. 

    15. 

  15. %>

    16. 

  16. <!-- #INCLUDE FILE="../inc/metaheader.asp" -->

    17. 

  17. <BODY>

    18. 

  18. 

    19. 

  19. <SCRIPT LANGUAGE="JavaScript" SRC="../js/mylittletree.js" TYPE="text/javascript"></SCRIPT>

    20. 

  20. <SCRIPT LANGUAGE="JavaScript" TYPE="text/javascript">

    21. 

  21. <!--

    22. 

  22. 	var oTree = new myLittleTree("oTree", "../../themes/<% = mla_cfg_theme %>/images/mylittletree/"); 

    23. 

  23. 

    24. 

  24. 	oTree.addFolder("M0", null, "<% = myTObj.getTerm(1) %>", "root.gif", "../hlp/default.asp", "Content");

    25. 

  25. 

    26. 

  26. 	oTree.addFolder("M1", "M0", "<% = myTObj.getTerm(2) %>", "folder.gif", "../conn/default.asp", "Content");

    27. 

  27. 		oTree.addFolder("M1_1", "M1", "<% = myTObj.getTerm(3) %>", "server.gif", "../conn/dsnless.asp", "Content");

    28. 

  28. 		oTree.addFolder("M1_2", "M1", "<% = myTObj.getTerm(4) %>", "server.gif", "../conn/dsn.asp", "Content");

    29. 

  29. 		oTree.addFolder("M1_3", "M1", "<% = myTObj.getTerm(32) %>", "disconnect.gif", "../../restart.asp", "_top");

    30. 

  30. 

    31. 

  31. 	oTree.addFolder("M2", "M0", "<% = myStrSrvName %>", "server.gif", "../srv/srvinfo.asp", "Content");

    32. 

  32. 	oTree.addFolder("M2_1", "M2", "<% = myTObj.getTerm(5) %>", "folder.gif", "../db/default.asp", "Content");

    33. 

  33. 	<%

    34. 

  34. 		Dim i, myObjStr

    35. 

  35. 		Set myObjStr = New mlt_string

    36. 

  36. 		For i = 0 To myDbCount

    37. 

  37. 			myObjStr.strAppend vbTab & "oTree.addFolder(""M2_1_" & i+1 & """, ""M2_1"", """ & myArrDb(0, i) & """, ""database.gif"", ""../db/dbinfo.asp?nid=M2_1_" & i+1 & "&db=" & Server.URLEncode(myArrDb(0, i)) & """, ""Content"");" & vbCrLf

    38. 

  38. 			If mla_auth(1, 0) Then myObjStr.strAppend vbTab & vbTab & "oTree.addFolder(""M2_1_" & i+1 & "_1"", ""M2_1_" & i+1 & """, """ & myTObj.getTerm(7) & """, ""table.gif"", ""../db/dbtbl.asp?nid=M2_1_" & i+1 & "&db=" & Server.URLEncode(myArrDb(0, i)) & """, ""Content"");" & vbCrLf

    39. 

  39. 			If mla_auth(2, 0) Then myObjStr.strAppend vbTab & vbTab & "oTree.addFolder(""M2_1_" & i+1 & "_2"", ""M2_1_" & i+1 & """, """ & myTObj.getTerm(8) & """, ""view.gif"", ""../db/dbview.asp?nid=M2_1_" & i+1 & "&db=" & Server.URLEncode(myArrDb(0, i)) & """, ""Content"");" & vbCrLf

    40. 

  40. 			If mla_auth(3, 0) Then myObjStr.strAppend vbTab & vbTab & "oTree.addFolder(""M2_1_" & i+1 & "_3"", ""M2_1_" & i+1 & """, """ & myTObj.getTerm(9) & """, ""sp.gif"", ""../db/dbsp.asp?nid=M2_1_" & i+1 & "&db=" & Server.URLEncode(myArrDb(0, i)) & """, ""Content"");" & vbCrLf

    41. 

  41. 			If mla_auth(4, 0) Then myObjStr.strAppend vbTab & vbTab & "oTree.addFolder(""M2_1_" & i+1 & "_4"", ""M2_1_" & i+1 & """, """ & myTObj.getTerm(10) & """, ""user.gif"", ""../db/dbuser.asp?nid=M2_1_" & i+1 & "&db=" & Server.URLEncode(myArrDb(0, i)) & """, ""Content"");" & vbCrLf

    42. 

  42. 			If mla_auth(5, 0) Then myObjStr.strAppend vbTab & vbTab & "oTree.addFolder(""M2_1_" & i+1 & "_5"", ""M2_1_" & i+1 & """, """ & myTObj.getTerm(11) & """, ""role.gif"", ""../db/dbrole.asp?nid=M2_1_" & i+1 & "&db=" & Server.URLEncode(myArrDb(0, i)) & """, ""Content"");" & vbCrLf

    43. 

  43. 			If mla_auth(6, 0) Then myObjStr.strAppend vbTab & vbTab & "oTree.addFolder(""M2_1_" & i+1 & "_6"", ""M2_1_" & i+1 & """, """ & myTObj.getTerm(12) & """, ""rule.gif"", ""../db/dbrule.asp?nid=M2_1_" & i+1 & "&db=" & Server.URLEncode(myArrDb(0, i)) & """, ""Content"");" & vbCrLf

    44. 

  44. 			If mla_auth(7, 0) Then myObjStr.strAppend vbTab & vbTab & "oTree.addFolder(""M2_1_" & i+1 & "_7"", ""M2_1_" & i+1 & """, """ & myTObj.getTerm(13) & """, ""default.gif"", ""../db/dbdefault.asp?nid=M2_1_" & i+1 & "&db=" & Server.URLEncode(myArrDb(0, i)) & """, ""Content"");" & vbCrLf

    45. 

  45. 			If mla_auth(8, 0) Then myObjStr.strAppend vbTab & vbTab & "oTree.addFolder(""M2_1_" & i+1 & "_8"", ""M2_1_" & i+1 & """, """ & myTObj.getTerm(14) & """, ""udt.gif"", ""../db/dbudt.asp?nid=M2_1_" & i+1 & "&db=" & Server.URLEncode(myArrDb(0, i)) & """, ""Content"");" & vbCrLf

    46. 

  46. 			If mla_auth(9, 0) Then myObjStr.strAppend vbTab & vbTab & "oTree.addFolder(""M2_1_" & i+1 & "_9"", ""M2_1_" & i+1 & """, """ & myTObj.getTerm(16) & """, ""udf.gif"", ""../db/dbudf.asp?nid=M2_1_" & i+1 & "&db=" & Server.URLEncode(myArrDb(0, i)) & """, ""Content"");" & vbCrLf

    47. 

  47. 		Next

    48. 

  48. 		Response.Write myObjStr.getStr()

    49. 

  49. 		Set myObjStr = Nothing

    50. 

  50. 	%>

    51. 

  51. 	

    52. 

  52. 	<% If mla_auth(11, 0) Or mla_auth(12, 0) Then %>

    53. 

  53. 		oTree.addFolder("M2_3", "M2", "<% = myTObj.getTerm(19) %>", "folder.gif", "../srv/default.asp", "Content");

    54. 

  54. 		<% If mla_auth(11, 0) Then %>

    55. 

  55. 			oTree.addFolder("M2_3_1", "M2_3", "<% = myTObj.getTerm(230) %>", "connection.gif", "../srv/srvcon.asp", "Content");

    56. 

  56. 		<% End If %>

    57. 

  57. 		<% If mla_auth(12, 0) Then %>

    58. 

  58. 			oTree.addFolder("M2_3_2", "M2_3", "<% = myTObj.getTerm(231) %>", "srvrole.gif", "../srv/srvrole.asp", "Content");

    59. 

  59. 		<% End If %>

    60. 

  60. 	<% End If %>

    61. 

  61. 

    62. 

  62. 	<% If mla_auth(13, 0) Then %>

    63. 

  63. 		oTree.addFolder("M2_4", "M2", "<% = myTObj.getTerm(30) %>", "folder.gif", "../tools/default.asp", "Content");

    64. 

  64. 			oTree.addFolder("M2_4_1", "M2_4", "<% = myTObj.getTerm(31) %>", "query.gif", "../tools/query.asp", "Content");

    65. 

  65. 	<% End If %>

    66. 

  66. 

    67. 

  67. 	<% If mla_auth(14, 0) Or mla_auth(14, 1) Or mla_auth(14, 2) Then %>

    68. 

  68. 		oTree.addFolder("M10", "M0", "<% = myTObj.getTerm(22) %>", "folder.gif", "../pref/default.asp", "Content");

    69. 

  69. 		<% If mla_auth(14, 0) Then %>

    70. 

  70. 			oTree.addFolder("M10_1", "M10", "<% = myTObj.getTerm(23) %>", "", "../pref/theme.asp", "Content");

    71. 

  71. 		<% End If %>

    72. 

  72. 		<% If mla_auth(14, 1) Then %>

    73. 

  73. 			oTree.addFolder("M10_2", "M10", "<% = myTObj.getTerm(24) %>", "", "../pref/language.asp", "Content");

    74. 

  74. 		<% End If %>

    75. 

  75. 		<% If mla_auth(14, 2) Then %>

    76. 

  76. 			oTree.addFolder("M10_3", "M10", "<% = myTObj.getTerm(25) %>", "", "../pref/display.asp", "Content");

    77. 

  77. 		<% End If %>

    78. 

  78. 	<% End If %>

    79. 

  79. 

    80. 

  80. 	document.write (oTree.createHTML());

    81. 

  81. 

    82. 

  82. 	oTree.expandNode("M2"); 

    83. 

  83. 	oTree.expandNode("M2_1"); 

    84. 

  84. 

    85. 

  85. 	if (window.parent.frames['Content']) window.parent.frames['Content'].document.location = "../srv/srvinfo.asp";

    86. 

  86. 

    87. 

  87. //-->

    88. 

  88. </SCRIPT>

    89. 

  89. 

    90. 

  90. </BODY>

    91. 

  91. </HTML>

    92. 

  92. <!-- #INCLUDE FILE="../inc/mla_sql_end.asp" -->
    93.