home *** CD-ROM | disk | FTP | other *** search
/ bombers.k12.ar.us / bombers.k12.ar.us.tar / bombers.k12.ar.us / survey_unconfigured / IPAddressList.asp < prev    next >
Text File  |  2006-10-25  |  10KB  |  261 lines
  1. <!--#Include File="Include/Top_inc.asp"-->
  2. <%
  3. '***********************************************************************
  4. '   Application: SelectSurveyASP Advanced v8.1.11
  5. '   Author: Aaron Baril for ClassApps.com
  6. '   Page Description: This page allows a user to insert, delete, and modify 
  7. '                      IP address ranges.
  8. '
  9. '   COPYRIGHT NOTICE                                
  10. '
  11. '   See attached Software License Agreement
  12. '
  13. '   (c) Copyright 2002 - 2006 by ClassApps.com.  All rights reserved.
  14. '***********************************************************************
  15. %>
  16. <!--#Include File="Include/SurveyUtility_inc.asp"-->
  17. <!--#Include File="Include/Utility_inc.asp"-->
  18. <!--#Include File="Include/Constants_inc.asp"-->
  19. <!--#Include File="Include/Config_inc.asp"-->
  20. <!--#Include File="Include/ID_inc.asp"-->
  21. <!--#Include File="Include/adovbs_inc.asp"-->
  22. <!--#Include File="Include/CurrentUser_inc.asp"-->
  23. <!--#Include File="Include/SurveySecurity_inc.asp"-->
  24.  
  25. <html>
  26. <head>
  27.     <title>IP Address Range Validation</title>
  28.     <link rel="stylesheet" href="Resources/StyleSheet/SurveyStyle.css">
  29. </head>
  30.  
  31. <%
  32.     Dim lngSurveyID
  33.     Dim strSurveyName
  34.     Dim rsIPAddress
  35.     Dim strSQL
  36.     Dim flgHasIPAddress
  37.     Dim conIPAddress
  38.     Dim lngIPAddressID
  39.     Dim lngCurrentIPAddressNumber
  40.                 
  41.     'Initialization
  42.     Set rsIPAddress = Server.CreateObject("ADODB.Recordset")
  43.     Set conIPAddress = Server.CreateObject("ADODB.Connection")
  44.     conIPAddress.Open SURVEY_APP_CONNECTION
  45.     lngCurrentIPAddressNumber = 1
  46.     If Len(Request.QueryString("SurveyID")) > 0 Then
  47.         lngSurveyID = Request.QueryString("SurveyID")
  48.         strSurveyName = Request.QueryString("SurveyName")
  49.     Else
  50.         lngSurveyID = Request.Form("SurveyID")
  51.         strSurveyName = Request.Form("SurveyName")
  52.     End If
  53. %>
  54.  
  55. <script language ="JavaScript" src="ClientInclude/Utility.js"></script>
  56. <script language="JavaScript">
  57. function deleteIPAddress(lngIPAddressID)
  58. {
  59.     if (validateAllIPAddress(lngIPAddressID) == true)
  60.     {
  61.         if (confirm("Are you sure you want to delete this IP address range?") == true) //OK
  62.         {
  63.             document.forms['frmIPAddress'].ActionAfterSave.value = '<%=SUR_IP_ADDRESS_ACTION_DELETE%>';
  64.             document.forms['frmIPAddress'].IPAddressID.value = lngIPAddressID;
  65.             document.forms['frmIPAddress'].submit();
  66.         }
  67.     }
  68. }
  69.  
  70. function submitCheck()
  71. {
  72.     // Check to make sure that all IP addresses are valid before submitting the page
  73.     if (validateAllIPAddress('-1') == true)
  74.     {
  75.         document.forms['frmIPAddress'].submit();
  76.     }
  77. }
  78.  
  79. function insertIPAddress()
  80. {
  81.     // Check to make sure that all IP addresses are valid before inserting a new IP address the page
  82.     if (validateAllIPAddress('-1') == true)
  83.     {
  84.         document.forms['frmIPAddress'].ActionAfterSave.value = '<%=SUR_IP_ADDRESS_ACTION_INSERT%>';
  85.         document.forms['frmIPAddress'].submit();
  86.     }
  87. }
  88.  
  89. function validateAllIPAddress(lngIPAddressIDToBeDeleted)
  90. {
  91.     var strTemp;
  92.     var i;
  93.     
  94.     // Dynamically check the format of all number and date text boxes
  95.     if (document.forms['frmIPAddress'] != null) 
  96.     {
  97.         for (i = 0; i < document.forms['frmIPAddress'].length; i++) 
  98.         {
  99.             strTemp = document.forms['frmIPAddress'].elements[i].name;
  100.             if (strTemp.indexOf('txtIPAddress') > -1 && strTemp.indexOf(lngIPAddressIDToBeDeleted) == -1)
  101.             {
  102.                 strTemp = trim(document.forms['frmIPAddress'].elements[i].value);
  103.                 if (strTemp.length == 0)
  104.                 {
  105.                     alert("Please enter a value for all IP addresses.");
  106.                     document.forms['frmIPAddress'].elements[i].focus();
  107.                     return;
  108.                 }
  109.                 else
  110.                 {
  111.                     if (isValidIPAddress(strTemp) == false)
  112.                     {
  113.                         alert("Please make sure that all IP addresses entered are valid..");
  114.                         document.forms['frmIPAddress'].elements[i].focus();
  115.                         return;
  116.                     }
  117.                 }
  118.             }
  119.         }
  120.     }
  121.     
  122.     return true;
  123. }
  124. </script>
  125.  
  126. <body class="MainBodyStyle">
  127.  
  128. <!--#Include File="Include/FrameworkTop_inc.asp"-->
  129.  
  130. <table border="0" cellspacing="0" cellpadding="0" width="754" class="MediumBlueBackgroundColor">
  131.     <tr>
  132.         <td height="36" valign="center">
  133.               <span class="H1HeadingStyle"><a name="skipnav" tabindex="1">IP Address Range Validation</a></span> <img style="cursor:hand" alt="Help" onClick="javascript:window.open('Help/Help.htm#IPAddresses', null, 'menubar=no,toolbar=no,titlebar=no,status=no,left=10,top=10,scrollbars=yes,resizable=yes,height=550,width=770');" border="0" src="Resources/Images/Help.gif">
  134.         </td>
  135.     </tr>
  136. </table>
  137.  
  138. <!--#Include File="Include/FrameworkTop2_inc.asp"-->
  139.  
  140. <table width="740" border="0" cellpadding="0" cellspacing="6" class="LightGrayBackgroundColor">
  141.     <form method="post" name="frmIPAddress" onSubmit="return submitCheck();" action="IPAddressListAction.asp">
  142.         <input type="hidden" name="SurveyID" value="<%=lngSurveyID%>">
  143.         <input type="hidden" name="SurveyName" value="<%=strSurveyName%>">
  144.         <input type="hidden" name="ActionAfterSave" value="">
  145.         <input type="hidden" name="IPAddressID" value="">
  146.         <tr>
  147.             <td width="1"></td>
  148.             <td height="40" valign="center">
  149.                 <span class="H2HeadingStyle">IP Address Ranges for '<%=strSurveyName%>' Survey</span>
  150.             </td>
  151.             <td width="1"> </td>
  152.         </tr>
  153.     </table>
  154.     <table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td height="1" background="Resources/Images/ThinDivider.gif"></td></tr>
  155.     <table border="0" cellpadding="0" cellspacing="6" width="740" class="WhiteBackgroundColor">
  156.         <tr>
  157.             <td width="1" rowspan="25"></td>
  158.             <td width="710" height="55" valign="center">
  159.                 <span class="Normal">
  160.                     Respondents to a survey can be limited to computers with IP addresses within a set range.  Use the form 
  161.                     below to configure one or more validation IP address ranges for respondents to this survey.  Note that if 
  162.                     there are any entries in this list, only IP addresses within these ranges are allowed to take the survey.
  163.                 </span>
  164.             </td>
  165.             <td width="1" rowspan="25"> </td>
  166.         </tr>
  167.         <tr>
  168.             <td valign="top">
  169.                 <table cellpadding="3" cellspacing="0" border="0" width="100%" summary="This page displays a list of all IP address ranges to be applied to the selected survey.">
  170.                     <tr class="TableHeadingColor" height="32">
  171.                         <th id="ID" width="70" align="center" valign="center">
  172.                             <span class="NormalBold">#</span>
  173.                         </th>
  174.                         <th id="Delete" width="60" align="center" valign="center">
  175.                             <span class="NormalBold">Delete</span>
  176.                         </th>
  177.                         <th id="FirstIPAddress" width="293" align="center" valign="center">
  178.                             <span class="NormalBold">First IP Address</span>
  179.                         </th>
  180.                         <th id="SecondIPAddress" width="293" align="center" valign="center">
  181.                             <span class="NormalBold">Second IP Address</span>
  182.                         </th>
  183.                     </tr>
  184. <%                    
  185.                     'Get the existing IP address ranges for this page
  186.                     strSQL = "SELECT ip_address_id, ip_address_first, ip_address_second " & _
  187.                              "FROM sur_ip_address " & _
  188.                              "WHERE survey_id = " & lngSurveyID & _
  189.                              " ORDER BY ip_address_first, ip_address_second"
  190.                     Set rsIPAddress = conIPAddress.Execute(ConvertSQL(strSQL), , adCmdText)
  191.  
  192.                     'If there are no existing IP Address, display a message to that effect
  193.                     If rsIPAddress.EOF = True Then
  194.                         flgHasIPAddress = False
  195. %>
  196.                         <tr>
  197.                             <td colspan="4">
  198.                                 <span class="InlineHelpSpanStyle">There are no IP addresses ranges for this survey.</span>
  199.                             </td>
  200.                         </tr>
  201. <%
  202.                     Else 'There are existing IP address ranges
  203.                         flgHasIPAddress = True
  204.                         rsIPAddress.MoveFirst
  205.                         Do While Not rsIPAddress.EOF
  206.                             lngIPAddressID = rsIPAddress("ip_address_id")
  207. %>
  208.                             <tr>
  209.                                 <td align="center" valign="center">
  210.                                     <span class="NormalBold"><%=lngCurrentIPAddressNumber%></span>
  211.                                 </td>
  212.                                 <td align="center" valign="bottom">
  213.                                     <a href="javascript:deleteIPAddress('<%=lngIPAddressID%>');"><img alt="Delete this IP address range" border="0" src="Resources/Icons/Delete.gif" onMouseOver="this.style.cursor='hand'"></a>
  214.                                 </td>
  215.                                 <td align="center">
  216.                                     <input maxlength="15" type="text" value="<%=rsIPAddress("ip_address_first")%>" name="txtIPAddressFirst<%=lngIPAddressID%>" id="txtIPAddressFirst<%=lngIPAddressID%>" style="width:250px">
  217.                                 </td>
  218.                                 <td align="center">
  219.                                     <input maxlength="15" type="text" value="<%=rsIPAddress("ip_address_second")%>" name="txtIPAddressSecond<%=lngIPAddressID%>" id="txtIPAddressSecond<%=lngIPAddressID%>" style="width:250px">
  220.                                 </td>
  221.                             </tr>
  222. <%                        
  223.                             lngCurrentIPAddressNumber = lngCurrentIPAddressNumber + 1
  224.                             rsIPAddress.MoveNext
  225.                         Loop                
  226.                     End If
  227. %>
  228.                 </table>
  229. <%
  230.                 'Clean up
  231.                 rsIPAddress.Close
  232.                 Set rsIPAddress = Nothing
  233. %>        
  234.             </td>
  235.         </tr>
  236.         <tr>
  237.             <td align="right" height="38" valign="center">
  238.                 <a href="Survey.asp?SurveyID=<%=lngSurveyID%>"><img border="0" alt="Return to the survey options page" name="btnBack" src="Resources/Buttons/Back.gif"></a>
  239.                 <a href="javascript:insertIPAddress();"><img border="0" alt="Insert a new IP address range" name="btnInsertIPAddress" src="Resources/Buttons/InsertIPAddresses.gif"></a>
  240. <%
  241.                 If flgHasIPAddress = True Then
  242. %>
  243.                     <a href="javascript:submitCheck();"><img border="0" alt="Save all IP address ranges" name="btnSave" src="Resources/Buttons/Save.gif"></a>
  244. <%                
  245.                 End If
  246. %>            
  247.             </td>
  248.         </tr>
  249.     </table>
  250. </form>
  251.  
  252. <!--#Include File="Include/FrameworkBottom_inc.asp"-->
  253.  
  254. </body>
  255. </html>
  256.  
  257. <%        
  258.     'Ensure that the web server returns the page
  259.     Response.Flush
  260. %>
  261.