Guest User

Untitled

a guest
Jan 21st, 2019
96
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.21 KB | None | 0 0
  1. <input type="button" value="Done" style="width: 56px; height: 40px" onclick="finish()" />
  2.  
  3. function finish() {
  4. var size = "<%response.write(size) %>";
  5. if (size == "0") {
  6. var done = confirm("All Items mod, would you like to save?");
  7. if (done == true)
  8. {
  9. if (window.XMLHttpRequest)
  10. {
  11. xmlhttp = new XMLHttpRequest();
  12. }
  13. else
  14. {
  15. xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");
  16. }
  17. var concode = "<%=Replace(concode, "", "\" )%>";
  18. xmlhttp.onreadystatechange=function()
  19. {
  20. if (xmlhttp.readyState==4 && xmlhttp.status==200)
  21. {
  22. document.getElementById('concode').value = concode;
  23. document.forms["confirm"].submit();
  24. }
  25. }
  26. <%if NOT rsTrxTy.EOF then
  27. if rsTrxTy.fields("TYPE").value = "TO" then%>
  28. ~Stuff happens here~
  29. <%end if
  30.  
  31. if rsTrxTy.fields("TYPE").value = "TI" then%>
  32. ~Stuff happens here~
  33. <%end if
  34. end if
  35.  
  36. if NOT rsOrdrs.EOF then%>
  37. ~Stuff happens here~
  38. <%end if %>
  39. <%
  40. dim fso
  41. Set fso = Server.CreateObject("Scripting.FileSystemObject")
  42. fso.DeleteFile "C:Mcacherstrxis-" & Session.SessionID & ".dat"
  43. fso.DeleteFile "C:Mcacherstrxos-" & Session.SessionID & ".dat"
  44. fso.DeleteFile "C:Mcacherstrxty-" & Session.SessionID & ".dat"
  45. fso.DeleteFile "C:Mcachersords-" & Session.SessionID & ".dat" %>
  46. }
  47. }
  48. else {
  49. alert("All items have not been mod.");
  50. }
  51. }
  52.  
  53. <script type="text/javascript">
  54. function finish() {
  55. <%
  56. dim fso
  57. Set fso = Server.CreateObject("Scripting.FileSystemObject")
  58. fso.DeleteFile "C:Mcacherstrxis-" & Session.SessionID & ".dat"
  59. fso.DeleteFile "C:Mcacherstrxos-" & Session.SessionID & ".dat"
  60. fso.DeleteFile "C:Mcacherstrxty-" & Session.SessionID & ".dat"
  61. fso.DeleteFile "C:Mcachersords-" & Session.SessionID & ".dat"
  62. %>
  63. }
  64. </script>
Add Comment
Please, Sign In to add comment