home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 10 / AU_CD10.iso / Archived / Internet / jvscript116beta / JvScript / !JvScript / Resources / Scripts / Misc / 4 < prev    next >
Encoding:
Text File  |  1999-08-24  |  1.5 KB  |  51 lines
  1. #newformat
  2. _title:Visitor Monitor
  3. _author:The JavaScript Source
  4. _source:http://javascript.internet.com/user-details/visitor-monitor.html
  5. _description:This script will send you an e-mail whenever the page with the script is loaded.
  6. _mailto:Email address to notify
  7. _insert-in:inhead
  8. <SCRIPT LANGUAGE="JavaScript" TYPE="text/javascript">
  9. <!-- Begin
  10. var startTime = new Date();
  11. startTime = startTime.getTime();
  12. var submissions = 0;
  13.  
  14. function checkForDuplicate() {
  15. if (document.form1) {
  16. document.form1.REFERRER.value = document.referrer;
  17. document.form1.PLATFORM.value = navigator.appName
  18. + " " + navigator.appVersion;
  19. submissions++;
  20. if (submissions > 1)
  21. return false;
  22. else
  23. return true;
  24. }
  25. else {
  26. return false;
  27.    }
  28. }
  29. function doneLoading() {
  30. var stopTime = new Date();
  31. stopTime = stopTime.getTime();
  32. document.form1.LOADING_TIME.value = ((stopTime - startTime) / 1000)
  33. + " seconds";
  34. document.form1.PAGE.value = document.title;
  35. document.form1.SUBMITTER.click();
  36. }
  37. // End -->
  38. </SCRIPT>
  39. _end-insert:
  40. _insert-in:inbodytag
  41. onLoad="doneLoading()"
  42. _end-insert:
  43. _insert-in:inbody
  44. <FORM name="form1" METHOD=post action="mailto:¤mailto_object$(1)¤?Subject=Devious Visitor Monitor" enctype="text/plain" onSubmit="return checkForDuplicate()">
  45. <input type="hidden" name="PAGE" value="none">
  46. <input type="hidden" name="REFERRER" value="none">
  47. <input type="hidden" name="PLATFORM" value="none">
  48. <input type="hidden" name="LOADING_TIME" value="none">
  49. <input type="submit" name="SUBMITTER" value="Click me to let me know you were here">
  50. </form>
  51. _end-insert: