/SQL/scripts/pref/display.asp

http://github.com/khaneh/Orders · ASP · 163 lines · 154 code · 9 blank · 0 comment · 10 complexity · bcbbbccb28ad8a5d22400852a80d9409 MD5 · raw file

  1. <!-- #INCLUDE FILE="../inc/mla_sql_include.asp" -->
  2. <%
  3. Dim myStrTree, myArrDay, i
  4. If Request.Form("mla_cfg_cancel") <> "" Then
  5. Response.Redirect "default.asp"
  6. Response.End
  7. End If
  8. If Request.Form("mla_cfg_submit") <> "" Then
  9. Response.Cookies("Option")("ShowSysDatabase") = (Request.Form("mla_cfg_showsysdatabases") <> "")
  10. Response.Cookies("Option")("ShowSysTable") = (Request.Form("mla_cfg_showsystables") <> "")
  11. Response.Cookies("Option")("ShowSysView") = (Request.Form("mla_cfg_showsysviews") <> "")
  12. Response.Cookies("Option")("ShowSysProcedure") = (Request.Form("mla_cfg_showsysprocedures") <> "")
  13. Response.Cookies("Option")("ShowSysFunction") = (Request.Form("mla_cfg_showsysfunctions") <> "")
  14. Response.Cookies("Option")("PageSize") = Request.Form("mla_cfg_pagesize")
  15. Response.Cookies("Option")("MaxDisplayedChar") = Request.Form("mla_cfg_maxdisplayedchar")
  16. Response.Cookies("Option")("MaxDisplayedBin") = Request.Form("mla_cfg_maxdisplayedbin")
  17. Response.Cookies("Option")("RowDelimiter") = Request.Form("mla_cfg_rowdelimiter")
  18. Response.Cookies("Option")("FirstDayOfWeek") = Request.Form("mla_cfg_firstdayofweek")
  19. Response.Cookies("Option").Expires = #1/1/2020#
  20. Response.Redirect "default.asp?refresh=1"
  21. Response.End
  22. End If
  23. myStrTree = getTreeStr("3_3", Array())
  24. myArrDay = Split(myTObj.getTerm(443), ",", -1, 1)
  25. %>
  26. <!-- #INCLUDE FILE="../inc/metaheader.asp" -->
  27. <BODY>
  28. <P CLASS="treeinfo"><% = myStrTree %></P>
  29. <SCRIPT LANGUAGE="JavaScript" TYPE="text/javascript">
  30. <!--
  31. function checkForm(pForm) {
  32. if (document.nocheck) return (true);
  33. if (isEmpty(pForm.mla_cfg_pagesize)) {
  34. pForm.mla_cfg_pagesize.focus();
  35. return (false);
  36. }
  37. if (!isInteger(pForm.mla_cfg_pagesize)) {
  38. pForm.mla_cfg_pagesize.focus();
  39. return (false);
  40. }
  41. if (isEmpty(pForm.mla_cfg_maxdisplayedchar)) {
  42. pForm.mla_cfg_maxdisplayedchar.focus();
  43. return (false);
  44. }
  45. if (isEmpty(pForm.mla_cfg_maxdisplayedbin)) {
  46. pForm.mla_cfg_maxdisplayedbin.focus();
  47. return (false);
  48. }
  49. if (isEmpty(pForm.mla_cfg_rowdelimiter)) {
  50. pForm.mla_cfg_rowdelimiter.focus();
  51. return (false);
  52. }
  53. if (isEmpty(pForm.mla_cfg_firstdayofweek)) {
  54. pForm.mla_cfg_firstdayofweek.focus();
  55. return (false);
  56. }
  57. if (!isInteger(pForm.mla_cfg_maxdisplayedchar)) {
  58. pForm.mla_cfg_maxdisplayedchar.focus();
  59. return (false);
  60. }
  61. if (!isInteger(pForm.mla_cfg_maxdisplayedbin)) {
  62. pForm.mla_cfg_maxdisplayedbin.focus();
  63. return (false);
  64. }
  65. if (!isInteger(pForm.mla_cfg_firstdayofweek)) {
  66. pForm.mla_cfg_firstdayofweek.focus();
  67. return (false);
  68. }
  69. return (true);
  70. }
  71. //-->
  72. </SCRIPT>
  73. <FORM NAME="mla_cfg" METHOD=POST ACTION="display.asp" onSubmit = "return (checkForm(this));">
  74. <TABLE BORDER=0 CELLPADDING=2 CELLSPACING=0 CLASS="hcontent" SUMMARY="Option Form">
  75. <TR><TD CLASS="caption" COLSPAN=2><% = myTObj.getTerm(22) & " \ " & myTObj.getTerm(25) %></TD></TR>
  76. <TR>
  77. <TD CLASS="formlabel"><% = myTObj.getTerm(480) %> :</TD>
  78. <TD>&nbsp;</TD>
  79. </TR>
  80. <TR>
  81. <TD>&nbsp;</TD>
  82. <TD><INPUT TYPE="checkbox" NAME="mla_cfg_showsysdatabases" ID="mla_cfg_showsysdatabases"> <LABEL FOR="mla_cfg_showsysdatabases"><% = myTObj.getTerm(481) %></LABEL></TD>
  83. </TR>
  84. <TR>
  85. <TD>&nbsp;</TD>
  86. <TD><INPUT TYPE="checkbox" NAME="mla_cfg_showsystables" ID="mla_cfg_showsystables"> <LABEL FOR="mla_cfg_showsystables"><% = myTObj.getTerm(482) %></LABEL></TD>
  87. </TR>
  88. <TR>
  89. <TD>&nbsp;</TD>
  90. <TD><INPUT TYPE="checkbox" NAME="mla_cfg_showsysviews" ID="mla_cfg_showsysviews"> <LABEL FOR="mla_cfg_showsysviews"><% = myTObj.getTerm(483) %></LABEL></TD>
  91. </TR>
  92. <TR>
  93. <TD>&nbsp;</TD>
  94. <TD><INPUT TYPE="checkbox" NAME="mla_cfg_showsysprocedures" ID="mla_cfg_showsysprocedures"> <LABEL FOR="mla_cfg_showsysprocedures"><% = myTObj.getTerm(484) %></LABEL></TD>
  95. </TR>
  96. <TR>
  97. <TD>&nbsp;</TD>
  98. <TD><INPUT TYPE="checkbox" NAME="mla_cfg_showsysfunctions" ID="mla_cfg_showsysfunctions"> <LABEL FOR="mla_cfg_showsysfunctions"><% = myTObj.getTerm(485) %></LABEL></TD>
  99. </TR>
  100. <TR><TD COLSPAN=2>&nbsp;</TD></TR>
  101. <TR>
  102. <TD CLASS="formlabel"><% = myTObj.getTerm(486) %> :</TD>
  103. <TD><INPUT TYPE="text" NAME="mla_cfg_pagesize" CLASS="numeric" TITLE=""></TD>
  104. </TR>
  105. <TR>
  106. <TD CLASS="formlabel"><% = myTObj.getTerm(487) %> :</TD>
  107. <TD><INPUT TYPE="text" NAME="mla_cfg_maxdisplayedchar" CLASS="numeric" TITLE=""></TD>
  108. </TR>
  109. <TR>
  110. <TD CLASS="formlabel"><% = myTObj.getTerm(488) %> :</TD>
  111. <TD><INPUT TYPE="text" NAME="mla_cfg_maxdisplayedbin" CLASS="numeric" TITLE=""></TD>
  112. </TR>
  113. <TR>
  114. <TD CLASS="formlabel"><% = myTObj.getTerm(489) %> :</TD>
  115. <TD><INPUT TYPE="text" NAME="mla_cfg_rowdelimiter" CLASS="numeric" TITLE=""></TD>
  116. </TR>
  117. <TR>
  118. <TD CLASS="formlabel"><% = myTObj.getTerm(490) %> :</TD>
  119. <TD>
  120. <SELECT NAME="mla_cfg_firstdayofweek" CLASS="alphanumeric">
  121. <%
  122. For i = 0 To 6
  123. Response.Write "<OPTION VALUE=" & (i+1) & ">" & myArrDay(i) & "</OPTION>" & vbCrLf
  124. Next
  125. %>
  126. </SELECT>
  127. </TD>
  128. </TR>
  129. <TR><TD COLSPAN=2>&nbsp;</TD></TR>
  130. <TR>
  131. <TD COLSPAN=2 ALIGN=CENTER>
  132. <INPUT TYPE="submit" VALUE="<% = myTObj.getTerm(51) %>" NAME="mla_cfg_cancel" onClick="document.nocheck = true;"> &nbsp;
  133. <INPUT TYPE="submit" VALUE="<% = myTObj.getTerm(54) %>" NAME="mla_cfg_submit">
  134. </TD>
  135. </TR>
  136. </TABLE>
  137. </FORM>
  138. <SCRIPT LANGUAGE="JavaScript" TYPE="text/javascript">
  139. <!--
  140. document.mla_cfg.mla_cfg_showsysdatabases.checked = <% = CInt(mla_cfg_showsysdatabases) %>;
  141. document.mla_cfg.mla_cfg_showsystables.checked = <% = CInt(mla_cfg_showsystables) %>;
  142. document.mla_cfg.mla_cfg_showsysviews.checked = <% = CInt(mla_cfg_showsysviews) %>;
  143. document.mla_cfg.mla_cfg_showsysprocedures.checked = <% = CInt(mla_cfg_showsysprocedures) %>;
  144. document.mla_cfg.mla_cfg_showsysfunctions.checked = <% = CInt(mla_cfg_showsysfunctions) %>;
  145. document.mla_cfg.mla_cfg_pagesize.value = "<% = mla_cfg_pagesize %>";
  146. document.mla_cfg.mla_cfg_maxdisplayedchar.value = "<% = mla_cfg_maxdisplayedchar %>";
  147. document.mla_cfg.mla_cfg_maxdisplayedbin.value = "<% = mla_cfg_maxdisplayedbin %>";
  148. document.mla_cfg.mla_cfg_rowdelimiter.value = "<% = mla_cfg_rowdelimiter %>";
  149. setSelectValue(document.mla_cfg.mla_cfg_firstdayofweek, "<% = mla_cfg_firstdayofweek %>", 1)
  150. //-->
  151. </SCRIPT>
  152. </BODY>
  153. </HTML>
  154. <!-- #INCLUDE FILE="../inc/mla_sql_end.asp" -->