/beta/admin/sysLock.asp

http://github.com/khaneh/Orders · ASP · 44 lines · 31 code · 6 blank · 7 comment · 3 complexity · 28bb833958f150501ad17fe18613e90c MD5 · raw file

  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="1256"%><%
  2. ' Admin
  3. PageTitle="ÞÝá ÓíÓÊã"
  4. SubmenuItem=5
  5. %>
  6. <!--#include file="top.asp" -->
  7. <BR><BR><BR><BR><BR><CENTER>
  8. <%
  9. '-----------------------------------------------------------------------------------------------------
  10. '---------------------------------------------------------------------------------- Submit new AO MEMO
  11. '-----------------------------------------------------------------------------------------------------
  12. if request("act")="open" then
  13. application("syslock") = ""
  14. application("syslockerName") = ""
  15. '-----------------------------------------------------------------------------------------------------
  16. '---------------------------------------------------------------------------------- Submit new AO MEMO
  17. '-----------------------------------------------------------------------------------------------------
  18. elseif request("act")="close" then
  19. application("syslock") = session("id")
  20. application("syslockerName") = session("CSRName")
  21. end if
  22. if application("syslock") <> "" then
  23. response.write "<H3>ÓíÓÊã ÊæÓØ "& application("syslockerName") & " ÞÝá ÔÏå ÇÓÊ</H3>"
  24. %>
  25. <FORM METHOD=POST ACTION="?act=open">
  26. <INPUT TYPE="submit" value="ÈÇÒ ßÑÏä ÞÝá">
  27. </FORM>
  28. <%
  29. else
  30. %>
  31. <FORM METHOD=POST ACTION="?act=close">
  32. <INPUT TYPE="submit" value="ÈÓÊä ÞÝá">
  33. </FORM>
  34. <%
  35. end if
  36. %>
  37. </CENTER>
  38. <!--#include file="tah.asp" -->