home *** CD-ROM | disk | FTP | other *** search
/ 207.233.110.77 / 207.233.110.77.tar / 207.233.110.77 / vbasic / admin.asp next >
Text File  |  2003-09-17  |  6KB  |  208 lines
  1. <%@ LANGUAGE="VBSCRIPT" %>
  2. <% Option Explicit %>
  3. <!-- METADATA 
  4.    TYPE="TypeLib" 
  5.    FILE="C:\Program Files\Common Files\System\ADO\msado21.tlb" 
  6. -->
  7. <!--#include file="DatabaseConnect.asp"-->
  8. <%    If Session("ValidatedAdministrator") <> True Then
  9.         Response.Redirect "error.asp?error=denied"
  10.     End If %>
  11. <html>
  12. <head>
  13. <title>Administer Visual Basic Student Accounts</title>
  14. </head>
  15. <body>
  16.  
  17. <%
  18.     Dim objRS
  19.     Dim sSQL
  20.     Dim i
  21.     Dim strTmp
  22.     Dim bAdmin
  23.     
  24.     'Admin can see ALL student records, Teachers only see their student's records and their own
  25.     If Session("Admin") = "Admin" Then
  26.       sSQL = "SELECT * FROM Students ORDER BY security, name;"
  27.       bAdmin = True
  28.     Else
  29.       sSQL = "SELECT * FROM Students WHERE teacher = '" & Session("admin") & "' ORDER BY security, classtype, meetday, name;"
  30.       bAdmin = False
  31.     End If
  32.     Set objRS = Server.CreateObject("ADODB.Recordset")
  33.     objRS.Open sSQL, objConn, adOpenDynamic, adLockOptimistic, adCmdText
  34.     'Don't try displaying non-existent records
  35.     If Not (objRS.EOF And objRS.BOF) Then 
  36.       objRS.MoveFirst
  37.     %>
  38.     <H2><CENTER>VB Student List - <%=Session("admin")%></CENTER><H2><BR>
  39.     <FORM METHOD=POST ACTION="processadmin.asp">
  40.       <CENTER><TABLE BORDER="1" CELLSPACING="2" CELLPADDING="2">
  41.       <THREAD>
  42.       <TR>
  43.               <TH bgcolor="#ffe4c4"><font color="#8b4513">Name</font></TH>
  44.               <TH bgcolor="#ffe4c4"><font color="#8b4513">Email</font></TH>
  45.               <TH bgcolor="#ffe4c4"><font color="#8b4513">Class</font></TH>
  46.               <TH bgcolor="#ffe4c4"><font color="#8b4513">Meets</font></TH>
  47.               <TH bgcolor="#ffe4c4"><font color="#8b4513">Teacher</font></TH>
  48.               <TH bgcolor="#ffe4c4"><font color="#8b4513">Folder</font></TH>
  49.               <TH bgcolor="#ffe4c4"><font color="#8b4513">Created</font></TH>
  50.               <TH bgcolor="#ffe4c4"><font color="#8b4513">Modified</font></TH>
  51.               <TH bgcolor="#ffe4c4"><font color="#8b4513">Last Login</font></TH>
  52.               <TH bgcolor="#ffe4c4"><font color="#8b4513">Active</font></TH>
  53.       <% If bAdmin Then %>
  54.               <TH bgcolor="#ffe4c4"><font color="#8b4513">Sec</font></TH>
  55.       <% End If %>
  56.               <TH bgcolor="#ffe4c4"><font color="#8b4513">Delete</font></TH>
  57.       </TR>
  58.       </THREAD>
  59.       <TBODY>
  60.       <%
  61.       Do While Not objRS.EOF
  62.           %>
  63.           <TR>
  64. <!--Name--><TD ALIGN="left" bgcolor="#fff5ee">
  65.                   <A HREF="processadmin.asp?action=edit&email=<%= objRS("email")%>"><%= objRS("name")%></A></TD>
  66. <!--Email--><TD ALIGN="center" bgcolor="#fff5ee"><FONT FACE=arial SIZE=1><A HREF="mailto:<%=objRS("email")%>"><%=objRS("email")%></A></FONT></TD>
  67.               <%
  68.               If IsNull(objRS("meetday")) Then %>
  69.                   <TD ALIGN="center" bgcolor="#fff5ee"> </TD>
  70.             <%
  71.             Else %>
  72. <!--Class-->    <TD ALIGN="center" bgcolor="#fff5ee"><FONT FACE=arial SIZE=1><%= objRS("classtype") %></FONT></TD>
  73.               <%
  74.               End If
  75.               If IsNull(objRS("meetday")) Then %>
  76.                 <TD ALIGN="center" bgcolor="#fff5ee"> </TD>
  77.               <%
  78.               Else %>
  79. <!--MeetDay--><TD ALIGN="center" bgcolor="#fff5ee"><FONT FACE=arial SIZE=1><%= objRS("meetday") %></FONT></TD>
  80.             <%
  81.             End If 
  82.             If IsNull(objRS("teacher")) Then %>
  83.                   <TD ALIGN="center" bgcolor="#fff5ee"> </TD>
  84.             <%
  85.             Else 
  86.                 i = InStr(objRS("teacher"), ",")
  87.                 strTmp = Mid(objRS("teacher"), 1, i-1)
  88.             %>
  89. <!--Teacher--><TD ALIGN="center" bgcolor="#fff5ee"><FONT FACE=arial SIZE=1><%= strTmp %></FONT></TD>
  90.               <%
  91.               End If
  92.               If IsNull(objRS("folder")) Then %>
  93. <!--Folder-->    <TD ALIGN="center" bgcolor="#fff8dc"> </TD>
  94.               <%
  95.               Else %>
  96.               <TD ALIGN="center" bgcolor="#fff8dc">
  97.                   <A HREF="user.asp?email=<%= objRS("email") & "&action=list&path=" %>"><%=objRS("folder")%></A></TD>
  98.             <%
  99.             End If %>
  100. <!--Created--><TD ALIGN="center" bgcolor="#fff5ee"><FONT FACE=arial SIZE=1><%= objRS("created") %></FONT></TD>
  101.               <%
  102.               If IsNull(objRS("modified")) Then %>
  103. <!--Modified--><TD ALIGN="center" bgcolor="#fff5ee"> </TD>
  104.               <%
  105.               Else %>
  106.                   <TD ALIGN="center" bgcolor="#fff5ee"><FONT FACE=arial SIZE=1><%= objRS("modified") %></FONT></TD>
  107.             <%
  108.             End If 
  109.               If IsNull(objRS("lastlogin")) Then %>
  110. <!--LastLogin--><TD ALIGN="center" bgcolor="#fff5ee"> </TD>
  111.               <%
  112.               Else 
  113.                   strTmp = objRS("lastlogin")
  114.                   i = Instr(objRS("lastlogin"), "-")
  115.                   If i > 0 Then
  116.                     strTmp = Mid(objRS("lastlogin"), 1, i-1) & "<BR>" & Mid(objRS("lastlogin"), i+2)
  117.                 End If
  118.               %>
  119.                   <TD ALIGN="center" bgcolor="#fff5ee"><FONT FACE=arial SIZE=1> <%= strTmp  %></FONT></TD>
  120.             <%
  121.             End If 
  122.             If bAdmin Or objRS("security") = vbStudent Then
  123.                   If objRS("active") = True Then
  124.                   %>
  125. <!--Active-->    <TD ALIGN="center" bgcolor="#f8f8ff">
  126.                    Y<INPUT TYPE="radio" CHECKED NAME="R<%= objRS("email")%>" VALUE="yes">
  127.                    N<INPUT TYPE="radio" NAME="R<%= objRS("email")%>" VALUE="no">
  128.                 </TD>
  129.                 <%
  130.                 Else %>
  131.                 <TD ALIGN="center" bgcolor="#f8f8ff">
  132.                    Y<INPUT TYPE="radio" NAME="R<%= objRS("email")%>" VALUE="yes">
  133.                    N<INPUT TYPE="radio" CHECKED NAME="R<%= objRS("email")%>" VALUE="no">
  134.                 </TD>
  135.                 <%
  136.                 End If
  137.             Else %>
  138.                 <TD ALIGN="center" bgcolor="#fff5ee"> </TD>
  139.             <%
  140.                 End If
  141.             If bAdmin Then
  142.             %>
  143. <!--Security--><TD ALIGN="center" bgcolor="#87ceed"><font size="2"><INPUT TYPE="text" NAME="Security" VALUE="<%=objRS("security")%>" SIZE="1"></font></TD>
  144.             <%
  145.             End If
  146.             If bAdmin Or objRS("security") = vbStudent Then
  147.             %>
  148.             <TD ALIGN="center" bgcolor="#ff6347">
  149. <!--Delete-->    <INPUT TYPE="checkbox" NAME="Delete" VALUE="<%= objRS("email")%>"></TD> 
  150.             <%
  151.             Else %>
  152.                 <TD ALIGN="center" bgcolor="#fff5ee"> </TD>
  153.             <%
  154.             End If
  155.             %>
  156.            </TR>
  157.            <%
  158.            objRS.MoveNext
  159.       Loop
  160.       %>
  161.       </TBODY>
  162.       <TFOOT>
  163.       <TR>
  164.       <TD COLSPAN="11" ALIGN="left" bgcolor="#fff5ee">
  165.       <INPUT TYPE="submit" NAME="action" VALUE="Apply Changes">
  166.       <INPUT TYPE="submit" NAME="action" VALUE="Cancel Changes">
  167.             <INPUT TYPE="Button" VALUE="Logout" onClick="document.location='default.asp';"> 
  168.            </TD>
  169.       </TR>
  170.       </TFOOT>
  171.       </TABLE></CENTER>
  172.     </FORM>
  173.       <%
  174.     Else
  175.     ' No Records Message
  176.       Response.Write("<H1>No Records Found!</H1>")
  177.        End If
  178.     objRS.Close
  179.     Set objRS = Nothing
  180.     objConn.Close
  181.     Set objConn = Nothing
  182. %>
  183. </body>
  184. </html>
  185.  
  186.  
  187.  
  188.  
  189.  
  190.  
  191.  
  192.  
  193.  
  194.  
  195.  
  196.  
  197.  
  198.  
  199.  
  200.  
  201.  
  202.  
  203.  
  204.  
  205.  
  206.  
  207.  
  208.