home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
207.233.110.77
/
207.233.110.77.tar
/
207.233.110.77
/
vbasic
/
admin.asp
next >
Wrap
Text File
|
2003-09-17
|
6KB
|
208 lines
<%@ LANGUAGE="VBSCRIPT" %>
<% Option Explicit %>
<!-- METADATA
TYPE="TypeLib"
FILE="C:\Program Files\Common Files\System\ADO\msado21.tlb"
-->
<!--#include file="DatabaseConnect.asp"-->
<% If Session("ValidatedAdministrator") <> True Then
Response.Redirect "error.asp?error=denied"
End If %>
<html>
<head>
<title>Administer Visual Basic Student Accounts</title>
</head>
<body>
<%
Dim objRS
Dim sSQL
Dim i
Dim strTmp
Dim bAdmin
'Admin can see ALL student records, Teachers only see their student's records and their own
If Session("Admin") = "Admin" Then
sSQL = "SELECT * FROM Students ORDER BY security, name;"
bAdmin = True
Else
sSQL = "SELECT * FROM Students WHERE teacher = '" & Session("admin") & "' ORDER BY security, classtype, meetday, name;"
bAdmin = False
End If
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open sSQL, objConn, adOpenDynamic, adLockOptimistic, adCmdText
'Don't try displaying non-existent records
If Not (objRS.EOF And objRS.BOF) Then
objRS.MoveFirst
%>
<H2><CENTER>VB Student List - <%=Session("admin")%></CENTER><H2><BR>
<FORM METHOD=POST ACTION="processadmin.asp">
<CENTER><TABLE BORDER="1" CELLSPACING="2" CELLPADDING="2">
<THREAD>
<TR>
<TH bgcolor="#ffe4c4"><font color="#8b4513">Name</font></TH>
<TH bgcolor="#ffe4c4"><font color="#8b4513">Email</font></TH>
<TH bgcolor="#ffe4c4"><font color="#8b4513">Class</font></TH>
<TH bgcolor="#ffe4c4"><font color="#8b4513">Meets</font></TH>
<TH bgcolor="#ffe4c4"><font color="#8b4513">Teacher</font></TH>
<TH bgcolor="#ffe4c4"><font color="#8b4513">Folder</font></TH>
<TH bgcolor="#ffe4c4"><font color="#8b4513">Created</font></TH>
<TH bgcolor="#ffe4c4"><font color="#8b4513">Modified</font></TH>
<TH bgcolor="#ffe4c4"><font color="#8b4513">Last Login</font></TH>
<TH bgcolor="#ffe4c4"><font color="#8b4513">Active</font></TH>
<% If bAdmin Then %>
<TH bgcolor="#ffe4c4"><font color="#8b4513">Sec</font></TH>
<% End If %>
<TH bgcolor="#ffe4c4"><font color="#8b4513">Delete</font></TH>
</TR>
</THREAD>
<TBODY>
<%
Do While Not objRS.EOF
%>
<TR>
<!--Name--><TD ALIGN="left" bgcolor="#fff5ee">
<A HREF="processadmin.asp?action=edit&email=<%= objRS("email")%>"><%= objRS("name")%></A></TD>
<!--Email--><TD ALIGN="center" bgcolor="#fff5ee"><FONT FACE=arial SIZE=1><A HREF="mailto:<%=objRS("email")%>"><%=objRS("email")%></A></FONT></TD>
<%
If IsNull(objRS("meetday")) Then %>
<TD ALIGN="center" bgcolor="#fff5ee"> </TD>
<%
Else %>
<!--Class--> <TD ALIGN="center" bgcolor="#fff5ee"><FONT FACE=arial SIZE=1><%= objRS("classtype") %></FONT></TD>
<%
End If
If IsNull(objRS("meetday")) Then %>
<TD ALIGN="center" bgcolor="#fff5ee"> </TD>
<%
Else %>
<!--MeetDay--><TD ALIGN="center" bgcolor="#fff5ee"><FONT FACE=arial SIZE=1><%= objRS("meetday") %></FONT></TD>
<%
End If
If IsNull(objRS("teacher")) Then %>
<TD ALIGN="center" bgcolor="#fff5ee"> </TD>
<%
Else
i = InStr(objRS("teacher"), ",")
strTmp = Mid(objRS("teacher"), 1, i-1)
%>
<!--Teacher--><TD ALIGN="center" bgcolor="#fff5ee"><FONT FACE=arial SIZE=1><%= strTmp %></FONT></TD>
<%
End If
If IsNull(objRS("folder")) Then %>
<!--Folder--> <TD ALIGN="center" bgcolor="#fff8dc"> </TD>
<%
Else %>
<TD ALIGN="center" bgcolor="#fff8dc">
<A HREF="user.asp?email=<%= objRS("email") & "&action=list&path=" %>"><%=objRS("folder")%></A></TD>
<%
End If %>
<!--Created--><TD ALIGN="center" bgcolor="#fff5ee"><FONT FACE=arial SIZE=1><%= objRS("created") %></FONT></TD>
<%
If IsNull(objRS("modified")) Then %>
<!--Modified--><TD ALIGN="center" bgcolor="#fff5ee"> </TD>
<%
Else %>
<TD ALIGN="center" bgcolor="#fff5ee"><FONT FACE=arial SIZE=1><%= objRS("modified") %></FONT></TD>
<%
End If
If IsNull(objRS("lastlogin")) Then %>
<!--LastLogin--><TD ALIGN="center" bgcolor="#fff5ee"> </TD>
<%
Else
strTmp = objRS("lastlogin")
i = Instr(objRS("lastlogin"), "-")
If i > 0 Then
strTmp = Mid(objRS("lastlogin"), 1, i-1) & "<BR>" & Mid(objRS("lastlogin"), i+2)
End If
%>
<TD ALIGN="center" bgcolor="#fff5ee"><FONT FACE=arial SIZE=1> <%= strTmp %></FONT></TD>
<%
End If
If bAdmin Or objRS("security") = vbStudent Then
If objRS("active") = True Then
%>
<!--Active--> <TD ALIGN="center" bgcolor="#f8f8ff">
Y<INPUT TYPE="radio" CHECKED NAME="R<%= objRS("email")%>" VALUE="yes">
N<INPUT TYPE="radio" NAME="R<%= objRS("email")%>" VALUE="no">
</TD>
<%
Else %>
<TD ALIGN="center" bgcolor="#f8f8ff">
Y<INPUT TYPE="radio" NAME="R<%= objRS("email")%>" VALUE="yes">
N<INPUT TYPE="radio" CHECKED NAME="R<%= objRS("email")%>" VALUE="no">
</TD>
<%
End If
Else %>
<TD ALIGN="center" bgcolor="#fff5ee"> </TD>
<%
End If
If bAdmin Then
%>
<!--Security--><TD ALIGN="center" bgcolor="#87ceed"><font size="2"><INPUT TYPE="text" NAME="Security" VALUE="<%=objRS("security")%>" SIZE="1"></font></TD>
<%
End If
If bAdmin Or objRS("security") = vbStudent Then
%>
<TD ALIGN="center" bgcolor="#ff6347">
<!--Delete--> <INPUT TYPE="checkbox" NAME="Delete" VALUE="<%= objRS("email")%>"></TD>
<%
Else %>
<TD ALIGN="center" bgcolor="#fff5ee"> </TD>
<%
End If
%>
</TR>
<%
objRS.MoveNext
Loop
%>
</TBODY>
<TFOOT>
<TR>
<TD COLSPAN="11" ALIGN="left" bgcolor="#fff5ee">
<INPUT TYPE="submit" NAME="action" VALUE="Apply Changes">
<INPUT TYPE="submit" NAME="action" VALUE="Cancel Changes">
<INPUT TYPE="Button" VALUE="Logout" onClick="document.location='default.asp';">
</TD>
</TR>
</TFOOT>
</TABLE></CENTER>
</FORM>
<%
Else
' No Records Message
Response.Write("<H1>No Records Found!</H1>")
End If
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>
</body>
</html>