home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 March / CHIPCD_3_98.iso / software / testsoft / exchange / webdata / usa / lib / jsroot.inc < prev    next >
Text File  |  1997-08-25  |  4KB  |  130 lines
  1. <%
  2. '<!-- Microsoft Outlook Web Access-->
  3. '<!-- Jsroot.inc : Javascript Functions used by root.asp -->
  4. '<!-- Copyright (c) Microsoft Corporation 1993-1997. All rights reserved.-->
  5. %>
  6.  
  7. <!--#include file="jsutil.inc"-->
  8. <!--#include file="lang.inc"-->
  9.  
  10. <script language="Javascript">
  11. function onImage(imageName,imageNum) {} 
  12. function offImage(imageName,imageNum) {}
  13.  
  14. function IsNum(str) {
  15.     flag = str.length;
  16.     for (i = 0; i < str.length; i++) {
  17.         if ((str.substring(i, i+1) < '0') || (str.substring(i, i+1) > '9'))
  18.         {
  19.             flag = false;
  20.             break;
  21.         }
  22.     }
  23.     return(flag);
  24. }
  25.  
  26. function ToNum(str, defnum) {
  27.     if (IsNum(str)) return(eval(str))
  28.     else return(defnum)
  29. }
  30.  
  31. function updateStatus(numMessages) {
  32.     count = numMessages
  33.     mailboxTimerID = window.setTimeout("updateStatus(count)", 10000)
  34.     parent.defaultStatus =  "<% =L_strTotalMessages_StatusBar%>" + count 
  35. }
  36.  
  37. function SetNewFolderPick(folderID) {
  38.     self.command_fr.location="<%=bstrVirtRoot%>/inbox/commands.asp?store=<%=iStore%>&command=newfolder&obj=" +  folderID;
  39. }
  40.  
  41. function clickPrev() {
  42.     if (currentPage==1) alert("<% =L_strAlreadyAtBeginning_Message%>")
  43.     else {
  44.         currentPage = currentPage - 1
  45.         self.title_fr.document.gotoForm.Page.value = currentPage
  46.         self.msg_fr.location = "messages.asp?obj=<%=szObj%>&page=" + currentPage
  47.     }
  48. }
  49.  
  50. function clickNext(countPages) {
  51.     if (currentPage>=countPages) alert("<% =L_strAlreadyAtEnd_Message%>")
  52.     else {
  53.         currentPage=currentPage + 1
  54.         self.title_fr.document.gotoForm.Page.value = currentPage
  55.         self.msg_fr.location = "messages.asp?obj=<%=szObj%>&page=" + currentPage
  56.     }
  57. }
  58.  
  59. function updateRefresh(folderID) {
  60.     var selection = self.title_fr.document.gotoForm.viewSelect.selectedIndex + 1;
  61.     self.peer_fr.location="peerfldr.asp?obj=" + folderID + "&paint=1&page=" + currentPage + "&view=" + selection;
  62.    
  63. }
  64.  
  65. function updateView(selection) {
  66.     
  67.     currentPage=1
  68.     self.title_fr.location = "title.asp?obj=<%=szObj%>&page=" + currentPage + "&view=" + selection
  69.     self.msg_fr.location = "messages.asp?obj=<%=szObj%>&page=" + currentPage + "&view=" + selection
  70. }
  71.  
  72. function updatePage(countPages) {
  73.     var newPage = self.title_fr.document.gotoForm.Page.value
  74.  
  75.     if (!IsNum(newPage) || newPage < 1 || newPage > countPages) {
  76.         if (countPages==1)
  77.             displayMessage= "<% =L_strOnlyHaveOnePage_Message%>"
  78.         else
  79.             displayMessage= "<% =L_strEnterNumberBetween_Message%>"
  80.         
  81.         alert(displayMessage)
  82.         self.title_fr.document.gotoForm.Page.value = eval(currentPage)
  83.     }
  84.     else {
  85.         currentPage = eval(newPage)
  86.         self.msg_fr.location = "messages.asp?obj=<%=szObj%>&page=" + currentPage
  87.     }
  88. }
  89.  
  90. function newFolder(){
  91.     var iNameLen=0;
  92.     var x=0;
  93.     var fNameOK=false;
  94.     if (null!=(folderName = prompt("<%=L_strEnterFolderName_Message%>","<%=L_strDefaultFolderName_Text%>")))
  95.     {
  96.         iNameLen=folderName.length;
  97.         if (iNameLen > 256) {
  98.                 alert("<%=L_strFolderNameTooLong_Message%>")
  99.         }
  100.         else if(iNameLen > 0) {
  101.             for(x=0;x<iNameLen;x++) {
  102.                 if (folderName.charAt(x)!=" ") {
  103.                     fNameOK=true;
  104.                     break;
  105.                 }    
  106.             }
  107.             if (fNameOK!=false)
  108.                 self.command_fr.location="commands.asp?action=newfolder&foldername="+escape(folderName);
  109.             else {
  110.                 
  111.                 alert("<%=L_strFolderNameAllSpaces_Message%>");
  112.                 newFolder();
  113.             }
  114.         }
  115.     }
  116. }
  117.  
  118. function deleteFolder(){
  119.     if (confirm("<%=L_strDeleteFolder_Message%>")) {
  120.         self.command_fr.location="<%=bstrVirtRoot%>/inbox/commands.asp?action=deletefolder"
  121.     }
  122. }
  123. function deleteAllMessage() {
  124.     if (confirm("<%=L_ConfirmEmptyDelItemFldr_Message%>")) {
  125.         self.peer_fr.location="peerfldr.asp?action=deleteAllMessages"
  126.     }
  127.  
  128. }
  129.  
  130. </script>