📄 admin_edit_classes.asp
字号:
<html>
<head>
<!-- Author: Brad Pierce -->
<title>Admiminstrator Class Management</title>
<link href="admin_basics.css" rel="stylesheet" type="text/css">
<META http-equiv="Expires" content="0">
<%
If NOT Session("admin_authenticated") Then
Response.Redirect("admin_login.asp")
End If
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
%>
</head>
<table border='0'><tr><td><img src="../images/netest.png"></td><td width='5%'></td><td width='100%'><br><h2>Class Management</h2></td></tr>
<!-- #include file="../admin_navbar/admin_navbar_print.inc" -->
<TD valign='top'><br>
<h3>Existing Classes and Sections</h3>
<%
dim oConn ' Connection Object
dim oRS ' Record Set Object
Set oConn=Server.CreateObject("ADODB.connection")
set oRS=Server.CreateObject("ADODB.recordset")
session("classes_changed") = FALSE
oConn.Open "DSN=sd2db; UserID=Admin; pwd=netest"
sqltext = "SELECT * FROM Course ORDER BY Course_Code"
oRS.Open sqltext, oConn
%>
<table border='0'><tr><td valign='top'>
<form name='form1'><select name='selected_course' size='3' onchange='document.form1.submit();'>
<%
DO WHILE NOT oRS.EOF
response.write "<option value='" & oRS("Course_Code") & "'>" & oRS("Course_Code") & " " & oRS("Course_Name") & "</option>"
oRS.MoveNext
LOOP
oRS.Close
%>
</select></form><br>
</td><td valign='top'>
<%
if request("selected_course") <> "" then
sqltext = "SELECT * FROM Section WHERE Course_Code='" & request("selected_course") & "'"
oRS.Open sqltext, oConn
%>
<textarea rows='3' cols='20' readonly>
<%
DO WHILE NOT oRS.EOF
if oRS("Section_Code") = "" then
response.write oRS("Course_Code")
else
response.write oRS("Course_Code") & "-" & oRS("Section_Code")
end if
response.write vbcrlf
oRS.MoveNext
LOOP
oRS.Close
%>
</textarea>
<%
end if
%>
</td></tr></table>
<!-- --------------------------------------------------------------------
ADD A CLASS
---------------------------------------------------------------------- -->
<table border='0'><tr><td valign='top'>
<h4><img src="../images/checkmark.gif">Add a class:</h4>
<form method='post' action='admin_class_change.asp'><table border='1'>
<tr><td width='141'>Class Code:</td><td><input type='text' name='new_class_code'></td></tr>
<tr><td width='141'>Class Name:</td><td><input type='text' name='new_class_name'></td></tr>
<tr><td></td><td valign='bottom' align='right'><input name='submit_add_class' type='submit' value='Add Class'></td></tr>
</table></form></td>
<!-- --------------------------------------------------------------------
ADD A SECTION
---------------------------------------------------------------------- -->
<td width='5%'></td><td valign='top'>
<h4><img src="../images/checkmark.gif">Add a section:</h4>
<table border='1'><tr><td>
<%
sqltext = "SELECT * FROM Course ORDER BY Course_Code"
oRS.Open sqltext, oConn
%>
<form method='post' action='admin_class_change.asp'>
<select name='new_class_section' size='1'>
<%
DO WHILE NOT oRS.EOF
response.write "<option value='" & oRS("Course_Code") & "'>" & oRS("Course_Code") & " " & oRS("Course_Name") & "</option>"
oRS.MoveNext
LOOP
oRS.Close
%>
</select></td>
<td valign='top'>
<select name='new_section_number' size='1'>
<%
response.write "<option value='0'>No Section</option>"
for x=1 to 10
response.write "<option value='" & x & "'>" & x & "</option>"
next
%>
</select></td>
<tr><td colspan='2'>New Section Teacher:
<%
for x=1 to 26
response.write " "
next
%>
<select name='new_section_teacher' size='1'>
<%
sqltext = "SELECT * FROM Instructor"
oRS.Open sqltext, oConn
do while not oRS.EOF
response.write "<option value='" & oRS("Inst_Code") & "'>" & oRS("Inst_LastName") & ", " & oRS("Inst_FirstName") & "</option>"
oRS.MoveNext
loop
oRS.Close
%>
</select>
</td></tr>
<tr><td height='31' colspan='2' align='right' valign='bottom'><input name='submit_add_section' type='submit' value='Add Section'></td></tr>
</form></table>
</td></tr></table><br>
<!-- --------------------------------------------------------------------
DELETE A CLASS
---------------------------------------------------------------------- -->
<table border='0'><tr><td valign='top'>
<h4><img src="../images/checkmark.gif">Delete a class:</h4>
<%
sqltext = "SELECT * FROM Course ORDER BY Course_Code"
oRS.Open sqltext, oConn
%>
<table border='1'>
<form method='post' action='admin_class_change.asp'><tr><td><select name='delete_class' size='1'>
<%
DO WHILE NOT oRS.EOF
response.write "<option value='" & oRS("Course_Code") & "'>" & oRS("Course_Code") & " " & oRS("Course_Name") & "</option>"
oRS.MoveNext
LOOP
oRS.Close
%>
</select></td></tr>
<tr><td colspan='2' align='right' valign='bottom'><input name='submit_delete_class' type='submit' value='Delete Class'></td></tr>
</form></table>
</td>
<!-- --------------------------------------------------------------------
DELETE A SECTION
---------------------------------------------------------------------- -->
<td width='5%'></td><td valign='top'>
<h4><img src="../images/checkmark.gif">Delete a section:</h4>
<table border='1'><tr><td>
<%
sqltext = "SELECT * FROM Course ORDER BY Course_Code"
oRS.Open sqltext, oConn
%>
<form method='post' action='admin_class_change.asp'><select name='delete_class_section' size='1'>
<%
DO WHILE NOT oRS.EOF
response.write "<option value='" & oRS("Course_Code") & "'>" & oRS("Course_Code") & " " & oRS("Course_Name") & "</option>"
oRS.MoveNext
LOOP
oRS.Close
%>
</select>
<td align='right' valign='top'><select name='delete_section_number'>
<%
response.write "<option value='0'>No Section</option>"
for x=1 to 10
response.write "<option value='x'>" & x & "</option>"
next
%>
</select></td></tr>
<tr><td colspan='2' align='right'><input name='submit_delete_section' type='submit' value='Delete Section'></td></tr>
</table></form>
</td></tr></table><br>
<!-- --------------------------------------------------------------------
MODIFY A CLASS
---------------------------------------------------------------------- -->
<table border='0'><tr><td valign='top'>
<h4><img src="../images/checkmark.gif">Modify a class:</h4>
<%
sqltext = "SELECT * FROM Course ORDER BY Course_Code"
oRS.Open sqltext, oConn
%>
<table border='1'>
<form method='post' action='admin_class_change.asp'><tr><td><select name='modify_class' size='1'>
<%
DO WHILE NOT oRS.EOF
response.write "<option value='" & oRS("Course_Code") & "'>" & oRS("Course_Code") & " " & oRS("Course_Name") & "</option>"
oRS.MoveNext
LOOP
oRS.Close
%>
</select></td></tr>
<tr><td colspan='2' align='right' valign='bottom'><input name='submit_modify_class' type='submit' value='Modify Class'></td></tr>
</form></table>
</td>
<!-- --------------------------------------------------------------------
MODIFY A SECTION
---------------------------------------------------------------------- -->
<td width='5%'></td><td valign='top'>
<h4><img src="../images/checkmark.gif">Modify a section:</h4>
<table border='1'><tr><td>
<%
sqltext = "SELECT * FROM Course ORDER BY Course_Code"
oRS.Open sqltext, oConn
%>
<form method='post' action='admin_class_change.asp'><select name='modify_class_section' size='1'>
<%
DO WHILE NOT oRS.EOF
response.write "<option value='" & oRS("Course_Code") & "'>" & oRS("Course_Code") & " " & oRS("Course_Name") & "</option>"
oRS.MoveNext
LOOP
oRS.Close
%>
</select>
<td align='right' valign='top'><select name='modify_section_number'>
<%
response.write "<option value='0'>No Section</option>"
for x=1 to 10
response.write "<option value='" & x & "'>" & x & "</option>"
next
%>
</select></td></tr>
<tr><td colspan='2' align='right'><input name='submit_modify_section' type='submit' value='Modify Section'></td></tr>
</table></form>
</td></tr></table><br>
</body>
</td></tr>
<tr><td></td><td colspan='2'><br><br><hr size='2' color='#000000'>
<font size='1'>Powered by Netest</font>
</td></tr></table>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -