/beta/admin/errorHandler.asp

http://github.com/khaneh/Orders · ASP · 306 lines · 241 code · 41 blank · 24 comment · 48 complexity · 67331051bb4c2fe5e009fa206e0b8192 MD5 · raw file

  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="1256"%><%
  2. ' Admin
  3. PageTitle=server.HTMLEncode(" ")
  4. SubmenuItem=10
  5. %>
  6. <!--#include file="top.asp" -->
  7. <!--#include file="../include_farsiDateHandling.asp" -->
  8. <style>
  9. .myTable
  10. TD {
  11. border-bottom: 1pt solid black;
  12. border-left: 1pt solid gray;
  13. border-right: 1pt solid gray;
  14. }
  15. </style>
  16. <SCRIPT LANGUAGE="JavaScript">
  17. <!--
  18. function selectAll(src){
  19. totalItems=document.getElementsByName("errID").length
  20. checked=src.checked
  21. for (i=0;i<totalItems;i++)
  22. document.getElementsByName("errID")[i].checked=checked;
  23. }
  24. //-->
  25. </SCRIPT>
  26. <%
  27. function pad (inpStr,padSize)
  28. result = inpStr
  29. while len(result) < padSize
  30. result = "0" & result
  31. wend
  32. pad = result
  33. end function
  34. function sqlSafe (s)
  35. st=s
  36. st=replace(St,"'","`")
  37. st=replace(St,chr(34),"`")
  38. sqlSafe=st
  39. end function
  40. session.codepage="1252"
  41. '-----------------------------------------------------------------------------------------------------
  42. '---------------------------------------------------------------------------------- Submit new AO MEMO
  43. '-----------------------------------------------------------------------------------------------------
  44. if request("act")="update" then
  45. CheckerComment = sqlSafe(request.form("CheckerComment"))
  46. for i=1 to request("errID").count
  47. errID=request("errID")(i)
  48. Conn.Execute("UPDATE errLog SET Checked = 1, CheckedBy ="& session("id") & ", CheckerComment =N'" & CheckerComment & "' where id = " & errID)
  49. next
  50. '-----------------------------------------------------------------------------------------------------
  51. '---------------------------------------------------------------------------------- Submit new AO MEMO
  52. '-----------------------------------------------------------------------------------------------------
  53. elseif request("act")="showDetails" then
  54. '======================================================= Khotoote Zir Kaare Khaasi nemikonan
  55. 'set RSV=Conn.Execute ("SELECT id,errdate FROM errLog")
  56. 'Do while not RSV.eof
  57. ' errDate = RSV("errDate")
  58. ' a = right(errDate,len(errDate)-5)
  59. ' newErrDate = left(errDate,4) & "/" & pad(left(a,instr(a,"/")-1),2) & "/"& pad(mid(a,instr(a,"/")+1,len(a)-instr(a,"/")),2)
  60. ' Conn.Execute ("update errLog set errDate=N'"& newErrDate & "' WHERE id=" & RSV("id"))
  61. 'RSV.moveNext
  62. 'Loop
  63. 'RSV.close
  64. 'response.write "<br>Radife"
  65. 'response.end
  66. '===========================================================================================
  67. end if
  68. '-----------------------------------------------------------------------------------------------------
  69. '---------------------------------------------------------------------------------- Submit new AO MEMO
  70. '-----------------------------------------------------------------------------------------------------
  71. DateFrom = sqlSafe(request.form("DateFrom"))
  72. DateTo = sqlSafe(request.form("DateTo"))
  73. status = sqlSafe(request.form("status"))
  74. errBy = sqlSafe(request.form("errBy"))
  75. perPage = sqlSafe(request.form("perPage"))
  76. File = sqlSafe(request.form("File"))
  77. LineNo = sqlSafe(request.form("LineNo"))
  78. if request("s") = "y" then
  79. DateFrom = sqlSafe(session("DateFrom"))
  80. DateTo = sqlSafe(session("DateTo"))
  81. status = sqlSafe(session("status"))
  82. errBy = sqlSafe(session("errBy"))
  83. perPage = sqlSafe(session("perPage"))
  84. File = sqlSafe(session("File"))
  85. LineNo = sqlSafe(session("LineNo"))
  86. end if
  87. session("DateFrom") = DateFrom
  88. session("DateTo") = DateTo
  89. session("status") = status
  90. session("errBy") = errBy
  91. session("perPage") = perPage
  92. session("File") = File
  93. session("LineNo") = LineNo
  94. if not ( perPage <> "" and isNumeric(perPage) ) then
  95. perPage = 20
  96. end if
  97. %>
  98. <BR><BR>
  99. <FORM METHOD=POST ACTION="errorHandler.asp">
  100. &nbsp;&nbsp;
  101. <INPUT dir="LTR" TYPE="text" NAME="DateFrom" maxlength="10" size="10" value="<%=DateFrom%>"> &nbsp;&nbsp;
  102. <INPUT dir="LTR" TYPE="text" NAME="DateTo" maxlength="10" size="10" value="<%=DateTo%>"> &nbsp;&nbsp;
  103. <select name="errBy" class=inputBut >
  104. <option value="1000"></option>
  105. <option value="1000">-------------------</option>
  106. <% set RSV=Conn.Execute ("SELECT * FROM Users WHERE Display=1 ORDER BY RealName")
  107. Do while not RSV.eof
  108. %>
  109. <option value="<%=RSV("ID")%>" <%
  110. if trim(RSV("ID"))=trim(errBy) then
  111. response.write " selected "
  112. end if
  113. %>><%=server.HTMLEncode(RSV("RealName"))%></option>
  114. <%
  115. RSV.moveNext
  116. Loop
  117. RSV.close
  118. %>
  119. </select>
  120. &nbsp;&nbsp; <select name="status" class=inputBut >
  121. <option value="1000"></option>
  122. <option value="1" <% if trim(status)="1" then %> selected <% end if %>> </option>
  123. <option value="0" <% if trim(status)="0" then %> selected <% end if %>> </option>
  124. </select> &nbsp;&nbsp;
  125. &nbsp;&nbsp;<select name="perPage" class=inputBut >
  126. <option value="10" <% if trim(perPage)="10" then %> selected <% end if %>>10</option>
  127. <option value="20" <% if trim(perPage)="20" then %> selected <% end if %>>20</option>
  128. <option value="50" <% if trim(perPage)="50" then %> selected <% end if %>>50</option>
  129. <option value="100" <% if trim(perPage)="100" then %> selected <% end if %>>100</option>
  130. <option value="200" <% if trim(perPage)="200" then %> selected <% end if %>>200</option>
  131. <option value="500" <% if trim(perPage)="500" then %> selected <% end if %>>500</option>
  132. <option value="1000" <% if trim(perPage)="1000" then %> selected <% end if %>>1000</option>
  133. </select> &nbsp;&nbsp;
  134. <br><br>
  135. &nbsp;&nbsp;
  136. <INPUT dir="LTR" TYPE="text" NAME="File" size="20" value="<%=File%>"> &nbsp;&nbsp;
  137. <INPUT dir="LTR" TYPE="text" NAME="LineNo" maxlength="5" size="5" value="<%=LineNo%>"> &nbsp;&nbsp;
  138. <INPUT TYPE="submit" NAME="submit" value="">
  139. </FORM>
  140. <%
  141. conditions = "(1=1)"
  142. if DateFrom <> "" then
  143. conditions = conditions & " AND errLog.errDate >= N'"& DateFrom & "' "
  144. end if
  145. if DateTo <> "" then
  146. conditions = conditions & " AND errLog.errDate <= N'"& DateTo & "' "
  147. end if
  148. if errBy <> "1000" and errBy <> "" then
  149. conditions = conditions & " AND errLog.errBy = " & errBy
  150. end if
  151. if status <> "1000" and status <> "" then
  152. conditions = conditions & " AND errLog.Checked = "& status
  153. end if
  154. if File <> "" then
  155. conditions = conditions & " AND errLog.[File] Like '%"& File & "%'"
  156. end if
  157. if LineNo <> "" then
  158. conditions = conditions & " AND errLog.Line = "& cint(LineNo)
  159. end if
  160. SA_RecordLimit = perPage
  161. Set SA_RS1 = Server.CreateObject("ADODB.Recordset")
  162. SA_RS1.CursorLocation=3 '---------- Alix: Because in ADOVBS_INC adUseClient=3
  163. SA_RS1.PageSize = SA_RecordLimit
  164. SA_mySQL="SELECT errLog.[file] as myFile, errLog.[line] as myLine, errLog.*, Users.RealName, Users_1.RealName AS checkerName FROM errLog INNER JOIN Users ON errLog.errBy = Users.ID LEFT OUTER JOIN Users Users_1 ON errLog.CheckedBy = Users_1.ID where "& conditions & " order by errLog.ID DESC"
  165. ' SA_RS1.Open SA_mySQL ,Conn,adOpenStatic,,adcmdcommand
  166. SA_RS1.Open SA_mySQL ,Conn,3,,adcmdcommand
  167. FilePages = SA_RS1.PageCount
  168. Records = SA_RS1.RecordCount
  169. Page=1
  170. if isnumeric(Request.QueryString("p")) then
  171. if (clng(Request.QueryString("p")) <= FilePages) and clng(Request.QueryString("p") > 0) then
  172. Page=clng(Request.QueryString("p"))
  173. end if
  174. end if
  175. if not SA_RS1.eof then
  176. SA_RS1.AbsolutePage=Page
  177. end if
  178. %>
  179. &nbsp;&nbsp;&nbsp;&nbsp; : <%=Records%><BR><BR>
  180. <TABLE class="myTable" border=0 align=center width=95% cellspacing=0 cellpadding=2>
  181. <TR bgcolor=white>
  182. <TD><INPUT TYPE="checkbox" NAME="aaa" onclick="selectAll(this)"></TD>
  183. <TD></TD>
  184. <TD></TD>
  185. <TD></TD>
  186. <TD></TD>
  187. <TD></TD>
  188. <TD>Form</TD>
  189. <TD>QueryString</TD>
  190. </TR>
  191. <FORM METHOD=POST ACTION="?act=update&p=<%=page%>&s=y">
  192. <%
  193. if (SA_RS1.eof) then ' Not Found
  194. response.write "<br><TR align=center><TD colspan=8>"
  195. response.write server.HTMLEncode(" " )
  196. response.write "</TD></TR>"
  197. session.codepage="1256"
  198. response.end
  199. end if
  200. Do while not SA_RS1.eof and (SA_RS1.AbsolutePage = Page)
  201. %>
  202. <A HREF="errorDetails.asp?id=<%=SA_RS1("id")%>" target="_blank">
  203. <TR dir=LTR style="cursor:hand">
  204. <TD dir=rtl title="<%=SA_RS1("id")%>&nbsp;<% if SA_RS1("checkerName")<>"" then %> <%=chr(13)%><%=server.HTMLEncode(" " & SA_RS1("checkerName"))%> [<%=SA_RS1("CheckerComment")%>]<% end if %>" style="border-bottom: 1pt solid black">
  205. <INPUT TYPE="checkbox" name="errID" <% if SA_RS1("Checked") then %> checked disabled<% end if %> value="<%=SA_RS1("id")%>">
  206. </TD>
  207. <TD title="<%=shamsiDate(cdate(SA_RS1("errDate"))) & vbCrLf & SA_RS1("errTime")%>">
  208. <%=SA_RS1("errDate")%>
  209. </TD>
  210. <TD dir=rtl title="clientIP:<%=SA_RS1("clientIP")%>">
  211. <%=server.HTMLEncode(SA_RS1("RealName"))%>
  212. </TD>
  213. <TD title="URL:<%=replace(SA_RS1("URL"),"/beta/","")%><%=chr(13)%>-------------------------------------<%=chr(13)%><%=SA_RS1("httpReferer")%>">
  214. <INPUT TYPE="text" style="background:transparent;border:none; width:140pt" readonly value="<%=replace(unescape(SA_RS1("myFile")),"/beta/", "")%>">
  215. </TD>
  216. <TD title="Column:<%=SA_RS1("Column")%>">
  217. <%=SA_RS1("myLine")%>
  218. </TD>
  219. <TD title="<%=SA_RS1("Description")%><% if SA_RS1("Source")<>"" then%><%=chr(13)%>-----Source: ---------------------------------<%=chr(13)%><% end if %><%=server.HTMLEncode(SA_RS1("Source"))%>">
  220. <INPUT TYPE="text" style="background:transparent;border:none; width:140pt" readonly value="<%=SA_RS1("Description")%>">
  221. </TD>
  222. <TD title="<%=replace(replace(unescape(SA_RS1("requestForm")),"&", chr(13)),"+"," ")%>">
  223. <INPUT TYPE="text" style="background:transparent;border:none; width:70pt" readonly value="<%=replace(unescape(SA_RS1("requestForm")),"&", chr(13))%>">
  224. </TD>
  225. <TD title="<%=replace(replace(unescape(SA_RS1("requestQuerystring")),"&", chr(13)),"+"," ")%>">
  226. <INPUT TYPE="text" style="background:transparent;border:none; width:70pt" readonly value="<%=replace(unescape(SA_RS1("requestQuerystring")),"&", chr(13))%>" title="<%=replace(replace(unescape(SA_RS1("requestQuerystring")),"&", chr(13)),"+"," ")%>">
  227. </TD>
  228. </TR>
  229. </A>
  230. <%
  231. SA_RS1.moveNext
  232. Loop
  233. SA_RS1.close
  234. %>
  235. <TR bgcolor=white>
  236. <TD colspan=8>
  237. <%
  238. if FilePages>1 then
  239. response.write server.HTMLEncode(" ") & "&nbsp;"
  240. for i=1 to FilePages
  241. if i = page then %>
  242. [<%=i%>]&nbsp;
  243. <% else%>
  244. <A HREF="?p=<%=i%>&s=y&act=HX6600"><%=i%></A>&nbsp;
  245. <% end if
  246. next
  247. end if
  248. %>
  249. </TD>
  250. </TR>
  251. </TABLE>
  252. <TABLE align=center>
  253. <TR>
  254. <TD colspan=7 align=center>
  255. <BR><BR>
  256. : <INPUT TYPE="text" NAME="CheckerComment" size=126>
  257. <INPUT TYPE="submit" value="">
  258. </TD>
  259. </TR>
  260. </FORM>
  261. </TABLE><BR><BR>
  262. <%
  263. session.codepage="1256"
  264. %>
  265. <!--#include file="tah.asp" -->