/SQL/scripts/tools/query.asp

http://github.com/khaneh/Orders · ASP · 156 lines · 150 code · 6 blank · 0 comment · 2 complexity · d43f976f574b407d7303132caf9e3e19 MD5 · raw file

  1. <!-- #INCLUDE FILE="../inc/mla_sql_include.asp" -->
  2. <%
  3. Dim myStrTree
  4. Dim myDbTbl
  5. Dim myObjRS, myStrRet, myStrQuery, Field, myArrBinary()
  6. Dim myObjStr, myStrClass, i, j, myStrValue, myArrTmp
  7. Dim myMaxCount
  8. openConnection
  9. If Request.Form("mla_query_submit") <> "" Then
  10. myStrQuery = Request.Form("mla_query_value")
  11. If myStrQuery <> "" Then
  12. Set myObjStr = New mlt_string
  13. Set myObjRS = Server.Createobject("ADODB.Recordset")
  14. myObjRS.ActiveConnection = gObjDC
  15. myObjRS.CursorLocation=3
  16. If Request.Form("mla_query_plan") <> "" Then
  17. myObjRS.LockType = 1
  18. Else
  19. myObjRS.LockType = 3
  20. End If
  21. myMaxCount = CLng(Request.Form("mla_rec_count"))
  22. On Error Resume Next
  23. gObjDC.execute "USE [" & rembracket(Request.Form("mla_query_db")) & "]"
  24. If Request.Form("mla_query_plan") <> "" Then gObjDC.execute "SET SHOWPLAN_TEXT ON"
  25. myObjRS.Open myStrQuery
  26. If Err < 0 Then
  27. If Request.Form("mla_query_plan") <> "" Then gObjDC.execute "SET SHOWPLAN_TEXT OFF"
  28. Set myObjRS = Nothing
  29. Call mla_displayError(Err, myStrQuery)
  30. End If
  31. Do Until myObjRS Is Nothing
  32. If myObjRS.Properties("Asynchronous Rowset Processing") = 16 Then
  33. myObjStr.strAppend "<P>" & vbCrLf
  34. myObjStr.strAppend "<TABLE BORDER=0 CELLPADDING=2 CELLSPACING=2 ALIGN=CENTER CLASS=""content"" WIDTH=""100%"" SUMMARY=""Result Content"">"
  35. myObjStr.strAppend "<THEAD><TR>" & vbCrLf
  36. i = 0
  37. For Each Field In myObjRS.Fields
  38. ReDim Preserve myArrBinary(i)
  39. myObjStr.strAppend "<TD CLASS=""collabel"">" & Field.Name & "</TD>" & vbCrLf
  40. myArrBinary(i) = (Field.Type = 128 Or Field.Type = 204 Or Field.Type = 205)
  41. i = i + 1
  42. Next
  43. myObjStr.strAppend "</TR></THEAD>" & vbCrLf
  44. myObjStr.strAppend "<TBODY>" & vbCrLf
  45. i = 0
  46. Do While Not myObjRS.EOF
  47. If myMaxCount > 0 And i > myMaxCount Then Exit Do
  48. If i MOD 2 = 0 Then myStrClass = "odd" Else myStrClass = "even" End If
  49. myObjStr.strAppend "<TR CLASS=""" & myStrClass & """>" & vbCrLf
  50. j = 0
  51. For Each Field In myObjRS.Fields
  52. If isNull(Field.Value) Then
  53. myStrValue = "<SPAN CLASS=""moreinfo"">(" & myTObj.getTerm(60) & ")</SPAN>"
  54. ElseIf myArrBinary(j) Then
  55. myArrTmp= bin2hex(Field.Value, mla_cfg_maxdisplayedbin)
  56. If myArrTmp(1) Then
  57. myStrValue = txt2html(myArrTmp(0)) &" <SPAN CLASS=""moreinfo"">(...)</SPAN>"
  58. Else
  59. myStrValue = txt2html(myArrTmp(0))
  60. End If
  61. Else
  62. If Request.Form("mla_query_plan") = "" Then
  63. myArrTmp= getStrBegin(CStr(Field.Value), mla_cfg_maxdisplayedchar)
  64. If myArrTmp(1) Then
  65. myStrValue = txt2html(myArrTmp(0)) & " <SPAN CLASS=""moreinfo"">(...)</SPAN>"
  66. Else
  67. myStrValue = txt2html(myArrTmp(0))
  68. End If
  69. Else
  70. myStrValue = txt2html(CStr(Field.Value))
  71. End If
  72. End If
  73. myObjStr.strAppend "<TD>" & myStrValue & "</TD>" & vbCrLf
  74. j = j + 1
  75. Next
  76. myObjStr.strAppend "</TR>" & vbCrLf
  77. i = i + 1
  78. myObjRS.MoveNext
  79. Loop
  80. myObjStr.strAppend "</TBODY>" & vbCrLf
  81. myObjStr.strAppend "</TABLE>" & vbCrLf
  82. myObjStr.strAppend myObjRS.RecordCount & " " & myTObj.getTerm(420) & "</P>" & vbCrLf
  83. Else
  84. myObjStr.strAppend myTObj.getTerm(421) &"<BR>" & vbCrLf
  85. End If
  86. Set myObjRS = myObjRS.NextRecordset
  87. Loop
  88. Set myObjRS = Nothing
  89. If Request.Form("mla_query_plan") <> "" Then gObjDC.execute "SET SHOWPLAN_TEXT OFF"
  90. myStrRet = myObjStr.getStr()
  91. Set myObjStr = Nothing
  92. End If
  93. End If
  94. myDbTbl = getDbList()
  95. myStrTree = getTreeStr("2_4", Array()) & " \ " & myTObj.getTerm(31)
  96. closeConnection
  97. %>
  98. <!-- #INCLUDE FILE="../inc/metaheader.asp" -->
  99. <BODY>
  100. <SCRIPT LANGUAGE="JavaScript" TYPE="text/javascript">
  101. <!--
  102. function resetForm() {
  103. document.mla_query.mla_query_value.value="";
  104. document.mla_query.mla_query_value.focus();
  105. return (true);
  106. }
  107. function checkForm(pForm) {
  108. if (document.nocheck) return (true);
  109. if (isEmpty(pForm.mla_query_value)) {
  110. pForm.mla_query_value.focus();
  111. return (false);
  112. }
  113. return (true);
  114. }
  115. //-->
  116. </SCRIPT>
  117. <P CLASS="treeinfo"><% = myStrTree %></P>
  118. <FORM NAME="mla_query" METHOD=POST ACTION="query.asp" onSubmit = "return (checkForm(this));">
  119. <TABLE BORDER=0 CELLPADDING=2 CELLSPACING=0 CLASS="hcontent" SUMMARY="Query Analyser">
  120. <TR><TD CLASS="caption"><A HREF=# onclick="openPopUp('query.asp', '<% = Replace(time(), ":", "") %>', 600, 400, 10, 10);"><IMG SRC="../../themes/<% = mla_cfg_theme %>/images/action/new.gif" WIDTH="16" HEIGHT="16" BORDER=0 ALIGN="RIGHT" ALT="New"></A><IMG SRC="../../themes/<% = mla_cfg_theme %>/images/mylittletree/query.gif" WIDTH="16" HEIGHT="16" BORDER=0 ALIGN="MIDDLE" ALT="Query Analyser"> <% = myTObj.getTerm(31) %></TD></TR>
  121. <TR>
  122. <TD>
  123. <B><% = myTObj.getTerm(120) %></B> : <% = getListBox("mla_query_db", myDbTbl, 0, 0, "", Request.Form("mla_query_db"), "alphanumeric", "") %>
  124. &nbsp;
  125. <B><% = myTObj.getTerm(422) %></B> : <INPUT TYPE="checkbox" NAME="mla_query_plan">
  126. &nbsp;
  127. <B><% = myTObj.getTerm(423) %></B> :
  128. <SELECT NAME="mla_rec_count">
  129. <OPTION>50</OPTION>
  130. <OPTION>100</OPTION>
  131. <OPTION>500</OPTION>
  132. <OPTION>1000</OPTION>
  133. <OPTION VALUE="-1"><% = myTObj.getTerm(424) %></OPTION>
  134. </SELECT>
  135. </TD>
  136. </TR>
  137. <TR><TD><TEXTAREA NAME="mla_query_value" ROWS="10" COLS="30" CLASS="objtext_edit" TITLE="<% = myTObj.getTerm(31) %>"><% = Request.Form("mla_query_value") %></TEXTAREA></TD></TR>
  138. <TR><TD>&nbsp;</TD></TR>
  139. <TR>
  140. <TD ALIGN=CENTER>
  141. <INPUT TYPE="button" VALUE="<% = myTObj.getTerm(50) %>" NAME="mla_query_reset" onclick="resetForm();"> &nbsp;
  142. <INPUT TYPE="submit" VALUE="<% = myTObj.getTerm(54) %>" NAME="mla_query_submit">
  143. </TD>
  144. </TR>
  145. </TABLE>
  146. </FORM>
  147. <% = myStrRet %>
  148. </BODY>
  149. </HTML>
  150. <!-- #INCLUDE FILE="../inc/mla_sql_end.asp" -->