home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 9 / IOPROG_9.ISO / contrib / iis4 / ins.cab / nnseshd.asp < prev    next >
Encoding:
Text File  |  1997-08-23  |  8.0 KB  |  317 lines
  1. <% Response.Expires = 0 %>
  2.  
  3. <%
  4. REM LOCALIZATION
  5.  
  6.  
  7. L_NO_USERS_TXT = "There are no currently active sessions"
  8. L_PAGE_TITLE_TXT    = "NNTP Administration"
  9. L_USER_TXT            = "User"
  10. L_FROM_TXT            = "From"
  11. L_TIMR_TXT            = "Time"
  12.  
  13.  
  14. REM END LOCALIZATION
  15. %>
  16.  
  17. <% REM Get starting number for groups to show %>
  18. <% startNum = Request("startNum") %>
  19. <% REM if startNum has a value then use it, otherwise use start value of 1 %>
  20. <% if (startNum = "") then %>
  21.     <% startNum = 1 %>
  22. <% end if %>
  23.  
  24. <% startNumClean = startNum %>
  25.     
  26. <% REM Set number of groups to display per page %>
  27. <% GroupsPerPage = 5 %>
  28.  
  29. <% svr = Request("svr") %>
  30. <% save = Request("save") %>
  31. <% id = Request("id") %>
  32. <% userName = Request("username") %>
  33. <% IPAddress = Request("IPAddress") %>
  34.  
  35. <!--#include file="_cnst.asp" -->
  36.  
  37. <% if (cont = true) then %>
  38.  
  39. <% REM create admin object %>
  40. <% On Error Resume Next %>
  41. <% set adminObj = Server.CreateObject("NntpAdm.Admin.1") %>
  42. <% if (Err <> 0) then %>
  43.     <script language="javascript">
  44.         alert('<% = Err.description %> : Line #40');
  45.     </script>
  46. <% end if %>
  47.  
  48. <% REM create sessions object %>
  49. <% On Error Resume Next %>
  50. <% set sessionObj = Server.CreateObject("NntpAdm.Sessions.1") %>
  51. <% if (Err <> 0) then %>
  52.     <script language="javascript">
  53.         alert('<% = Err.description %> : Line #49');
  54.     </script>
  55. <% end if %>
  56.  
  57. <% REM set sessions object server %>
  58. <% sessionObj.Server = svr %>
  59.  
  60. <% REM set sessions object service instance %>
  61. <% sessionObj.ServiceInstance = Session("ServiceInstance") %>
  62. <% sessionObj.Enumerate %>
  63.  
  64. <HTML>
  65. <HEAD>
  66.  
  67. <% REM Disconnect and Disconnect All %>
  68. <% if (save = "disconnect") then %>
  69.  
  70.     <% sessionObj.Enumerate %>
  71.     <% sessionObj.Username = userName %>
  72.     <% sessionObj.IPAddress = IPAddress %>
  73.  
  74.     <% On Error Resume Next %>
  75.     <% sessionObj.Terminate %>
  76.     <% if (Err <> 0 ) then %>
  77.             <SCRIPT LANGUAGE = "javascript">
  78.            alert("<% = Err.description %> : Line #74");
  79.         </SCRIPT>
  80.     <% else %>
  81.         <SCRIPT LANGUAGE="javascript">
  82.             self.location = "nnseshd.asp?svr=<% = svr %>"
  83.         </SCRIPT>
  84.     <% end if %>
  85.  
  86. <% elseif (save = "disconnectall" ) then %>
  87.  
  88.        <% On Error Resume Next %>
  89.     <% sessionObj.Enumerate %>
  90.     <% if (Err <> 0) then %>
  91.         <SCRIPT LANGUAGE="javascript">
  92.                alert ("<% = Err.description %> : Line #88");
  93.         </SCRIPT>
  94.     <% end if %>
  95.  
  96.     <% On Error Resume Next %>
  97.     <% sessionObj.TerminateAll %>
  98.     <% if (Err <> 0) then %>
  99.         <SCRIPT LANGUAGE="javascript">
  100.                alert ("<% = Err.description %> : Line #96");
  101.         </SCRIPT>
  102.     <% else %>
  103.         <SCRIPT LANGUAGE="javascript">
  104.             self.location = "nnseshd.asp?svr=<% = svr %>"
  105.         </SCRIPT>
  106.     <% end if %>
  107.  
  108. <% end if %>
  109.  
  110. <script language="javascript">
  111.  
  112. <% REM Create uForm object and methods %>
  113.  
  114. var uForm = new Object();
  115. uForm.itemList = new Array();
  116. uForm.startNum = "<% = startNum %>";
  117. uForm.GroupsPerPage = <% = GroupsPerPage %>;
  118. uForm.selectedItem = uForm.startNum - 1;
  119. uForm.disconnectUser = disconnectUser;
  120. uForm.disconnectAll = disconnectAll;
  121. uForm.selectItem = selectItem;
  122. uForm.loadList = loadList;
  123. uForm.next = next;
  124. uForm.previous = previous;
  125. uForm.refresh = refresh;
  126.  
  127.  
  128. <% REM get currently active sessions %>
  129.  
  130. <% REM Enumerate sessions %>
  131. <% 
  132.     if (sessionObj.Count <> 0) then
  133.         On Error Resume Next 
  134.         sessionObj.Enumerate 
  135.         if ( Err <> 0 ) then %>            
  136.             alert ( "<% = Err.description %> : Line #130" );            
  137. <%        end if 
  138.     end if 
  139. %>
  140.  
  141. <% REM get number of active sessions %>
  142. <% numSessions = sessionObj.Count %>
  143. uForm.numSessions = "<% = numSessions %>";
  144.  
  145. top.menu.document.hiddenform.nNewsgroupListStart.value = "<% = startNum %>";
  146.  
  147. <% if (numSessions = 0) then %>
  148.     <% startNumClean = 0 %>
  149. <% End If %>
  150. uForm.startNumClean = "<% = startNumClean %>";
  151.  
  152.  
  153. <% i = startNum - 1 %>
  154.  
  155. <% REM counter for uForm object array %>
  156. var i = <% = startNum - 1 %>;
  157.  
  158. <% REM loop through active sessions %>
  159. <% While( (i < numSessions) AND ( i < (startNum + GroupsPerPage - 1) ) ) %>
  160.     <% REM get each session %>
  161.     <% sessionObj.GetNth (i) %>
  162.     <% REM create a new uForm object for each active session and set properties %>
  163.     uForm.itemList[i] = new Object();
  164.     uForm.itemList[i].id = "<% = i %>";
  165.     username = "<% = sessionObj.Username %>";
  166.     if( username == "" )
  167.     {
  168.         username = "unknown";
  169.     }
  170.     uForm.itemList[i].username = username;
  171.     uForm.itemList[i].IPAddress = "<% = sessionObj.IPAddress %>";
  172.     uForm.itemList[i].StartTime = "<% = sessionObj.StartTime %>";
  173.     i++;
  174.     <% i = i + 1 %>
  175. <% Wend %>
  176.  
  177. <% startNum = startNum + GroupsPerPage %>
  178.  
  179. top.menu.document.hiddenform.nNewsgroupListStart.value = "<% = startNum %>";
  180.  
  181. function next()
  182. {
  183.     if( parseInt(top.menu.document.hiddenform.nNewsgroupListStart.value) <= parseInt(uForm.numSessions) )
  184.     {
  185.         parent.head.location = "nnseshd.asp?svr=<% = svr %>&startNum=" + 
  186.         top.menu.document.hiddenform.nNewsgroupListStart.value;
  187.     }
  188. }
  189.  
  190. function previous()
  191. {
  192.     sum = uForm.GroupsPerPage + 1;
  193.     if( sum != parseInt(top.menu.document.hiddenform.nNewsgroupListStart.value) )
  194.     {
  195.         parent.head.location = "nnseshd.asp?svr=<% = svr %>&startNum=" + 
  196.         (top.menu.document.hiddenform.nNewsgroupListStart.value - ( uForm.GroupsPerPage * 2 ) );
  197.     }
  198. }    
  199.  
  200. function refresh()
  201. {
  202.     parent.head.location = "nnseshd.asp?svr=<% = svr %>&startNum=";
  203. }
  204.  
  205. <% REM Javascript function selectItem (if IE, reloads list at specified position -- broken in Netscape) %>
  206. function selectItem(index)
  207. {
  208.     uForm.selectedItem = index;
  209.     <% if Instr(Request.ServerVariables("HTTP_USER_AGENT"),"IE") then %>
  210.     if (index == 0)
  211.     {
  212.         parent.list.location = "nnsesls.asp"
  213.     }
  214.     else
  215.     {
  216.         parent.list.location = "nnsesls.asp#" + (index-1);
  217.     }            
  218.     <% else %>
  219.         parent.list.location = "nnsesls.asp"
  220.     <% end if %>
  221. }
  222.  
  223. function disconnectAll()
  224. {
  225.     if (uForm.numSessions > 0)
  226.     {
  227.         if (confirm("Are you sure you want to disconnect all users?"))
  228.         {
  229.         self.location = "nnseshd.asp?save=disconnectall&svr=<% = svr %>";
  230.         }
  231.     }
  232.     else
  233.     {
  234.         alert("<% = L_NO_USERS_TXT %>");
  235.     }
  236. }
  237.  
  238. function disconnectUser()
  239. {
  240.     if (uForm.numSessions > 0)
  241.     {
  242.         if (confirm("Are you sure you want to disconnect this user?"))
  243.         {
  244.             if( uForm.itemList[uForm.selectedItem].username == "unknown" )
  245.             {
  246.                 usernameToDelete = "";
  247.             }
  248.             else
  249.             {
  250.                 usernameToDelete = uForm.itemList[uForm.selectedItem].username;
  251.             }
  252.  
  253.             self.location = "nnseshd.asp?save=disconnect&svr=<% = svr %>&username=" + usernameToDelete + "&IPAddress=" + uForm.itemList[uForm.selectedItem].IPAddress;
  254.         }
  255.     }
  256.     else
  257.     {
  258.         alert("<% = L_NO_USERS_TXT %>");
  259.     }
  260.     
  261. }
  262.  
  263. <% REM Javascript function loadList loads list frame after header is completed %>
  264. function loadList()
  265. {
  266.     parent.list.location = "nnsesls.asp?svr=<% = svr %>";
  267. }    
  268.  
  269. </script>
  270. <TITLE><% = L_PAGE_TITLE_TXT %></TITLE>
  271.  
  272. </HEAD>
  273. <BODY BGCOLOR="#CCCCCC" TEXT="#000000" TOPMARGIN=10>
  274. <TABLE cellpadding="2" cellspacing="0" WIDTH="425" BORDER="0">
  275.     <TR>
  276.         <TD COLSPAN=4>
  277.             <P><IMG SRC="images/gnicttl.gif" ALIGN="textmiddle" HEIGHT=10 WIDTH=10> <FONT SIZE=2 FACE="Arial"><B>Current Sessions on  </B></FONT><FONT SIZE=3 FACE="Times New Roman"><I><% = svr %></I><BR> </FONT>
  278.         </TD>
  279.     </TR>
  280.  
  281.     <TR>
  282.         <TD WIDTH=25>
  283.              
  284.         </TD>
  285.         <TD COLSPAN=3>
  286.             <FONT SIZE=2 FACE="Arial">
  287.             <% If (numSessions <> 0) Then %>
  288.                 Results: <b><% = startNumClean %></b> - <b><% if( (startNumClean + GroupsPerPage - 1) < numSessions ) then %>
  289.                 <% = startNumClean + GroupsPerPage - 1 %><% else %><% = numSessions %><% end if %></b> out of <b><% = numSessions %></b></br>
  290.             <% Else %>
  291.                 <b><% = L_NO_USERS_TXT %></b><br>
  292.             <% End If %>
  293.             </FONT>        
  294.         </TD>
  295.     </TR>
  296.     <TR>
  297.         <TD WIDTH=25> </TD>
  298.         <TD WIDTH=125 ALIGN="left">
  299.             <FONT SIZE=2 FACE="Arial"><B><% = L_USER_TXT %></B></FONT>
  300.         </TD>
  301.         <TD WIDTH=125 ALIGN="left">
  302.             <FONT SIZE=2 FACE="Arial"><B><% = L_FROM_TXT %></B></FONT>
  303.         </TD>
  304.         <TD WIDTH=150 ALIGN="left">
  305.             <FONT SIZE=2 FACE="Arial"><B><% = L_TIMR_TXT %></FONT>
  306.         </TD>        
  307.     </TR>
  308. </TABLE>
  309. <% REM Load list page after head has completely loaded %>
  310. <SCRIPT LANGUAGE="javascript">
  311.     timeList = setTimeout('loadList()',500);
  312. </SCRIPT>
  313. </BODY>
  314. </HTML>
  315. <% end if %>
  316.  
  317.