home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 May / PCWorld_2002-05_cd.bin / Komunik / sambar / sambar51p.exe / sysadmin / control / pop3mail / pop3dele.asp < prev    next >
Encoding:
Text File  |  2001-07-17  |  707 b   |  26 lines
  1. <% 
  2. server = getParameter($params, "server");
  3. username = getParameter($params, "username");
  4. password = getParameter($params, "password");
  5. start = (int)getParameter($params, "start");
  6. stop = (int)getParameter($params, "stop");
  7.  
  8. pop3 = POP3Connect(server, username, decrypt(password));
  9.  
  10. arg = NULL;
  11. for (i = start; i <= stop; i++)
  12. {
  13.     sprintf(arg, "d%d", i);
  14.     arg = getParameter($params, arg);
  15.     if ((arg != NULL) && (strcmp(arg, "on") == 0))
  16.         POP3Delete(pop3, i);
  17. }
  18.  
  19. POP3Disconnect(pop3);
  20.  
  21. // Redirect back to the inbox.
  22. sprintf(arg, "inbox.asp?server=%s&username=%s&password=%s&start=%d&stop=%d", 
  23.     server, username, encrypt(password), start, stop);
  24. sendRedirect($response, arg);
  25. %>
  26.