📄 admin_edit_students.asp
字号:
<html>
<head>
<!-- Author: Brad Pierce -->
<title>Administrator Student Management</title>
<link href="admin_basics.css" rel="stylesheet" type="text/css">
<%
If NOT Session("admin_authenticated") Then
Response.Redirect("admin_login.asp")
End If
%>
</head>
<table border='0'><tr><td><img src="../images/netest.png"></td><td width='5%'></td><td width='100%'><br><h2>Student Management</h2></td></tr>
<!-- #include file="../admin_navbar/admin_navbar_print.inc" -->
<TD valign='top'><br>
<h3>Existing Students and Student Codes</h3>
<%
dim oConn ' Connection Object
dim oRS ' Record Set Object
Set oConn=Server.CreateObject("ADODB.connection")
set oRS=Server.CreateObject("ADODB.recordset")
oConn.Open "DSN=sd2db; UserID=Admin; pwd=netest"
sqltext = "SELECT * FROM Student ORDER BY Student_Code"
oRS.Open sqltext, oConn
%>
<table border='0'><tr><td valign='top'>
<textarea rows='3' cols='25' readonly id=textarea1 name=textarea1>
<%
Do While Not oRS.EOF
Response.Write oRS("Student_Code")& " " & oRS("Student_LastName") & ", " & oRS("Student_FirstName") &vbcrlf&""
oRS.MoveNext
Loop
oRS.Close
%>
</textarea>
<br>
</td><td valign='top'>
</td></tr></table><br>
<!-- --------------------------------------------------------------------
ADD A student
---------------------------------------------------------------------- -->
<table border='0'><tr><td>
<h4><img src="../images/checkmark.gif">Add a New Student </h4>
<FORM METHOD='post' ACTION='admin_submit_student.asp' id=form2 name=form2><table border = '1' >
<tr><td>Student's Code: </td><td><input type='text' name='student_code' ></td></tr>
<tr><td>Student's Last Name: </td><td><input type='text' name='student_lastname' ></td></tr>
<tr><td>Student's First Name:</td><td><input type='text' name='student_firstname' ></td></tr>
<tr><td>Student's Password: </td><td><input type='text' name='student_password' ></td></tr>
<tr><td>Teacher Code: </td><td><input type='text' name='admin_code' ></td></tr>
<tr><td></td><td align='right'><input type='submit' name='Add_Student' value='Add Student' id='submit'1></td></tr>
</table> </FORM></td>
<!-- --------------------------------------------------------------------
Modify Student Information
---------------------------------------------------------------------- -->
<td width='5%'></td><td valign='top'>
<h4><img src="../images/checkmark.gif">Select Student to Modify:</h4>
<table border = '1' ><tr><td>
<%
sqltext = "SELECT * FROM Student ORDER BY Student_Code"
oRS.Open sqltext, oConn
%>
<FORM METHOD='post' ACTION='admin_submit_student.asp' id=form3 name=form3>
<SELECT name='modify_student' size='1' >
<%
Do While Not oRS.EOF
Response.Write "<option value='" & oRS("Student_Code")& "'>" & oRS("Student_LastName") & ", " & oRS("Student_FirstName") &vbcrlf&"</option>"
oRS.MoveNext
Loop
oRS.Close
%>
<td><input type='submit' Name='Modify_Student' Value='Modify Student'></td></tr>
</select></td></tr></table></FORM>
<!-- --------------------------------------------------------------------
DELETE A Student
---------------------------------------------------------------------- -->
<br>
<h4><img src="../images/checkmark.gif">Delete a Student:</h4>
<table border = '1' ><tr><td>
<%
sqltext = "SELECT * FROM Student ORDER BY Student_Code"
oRS.Open sqltext, oConn
%>
<FORM METHOD='post' ACTION='admin_submit_student.asp' id=form1 name=form1>
<SELECT name='Delete_student' size='1' >
<%
Do While Not oRS.EOF
Response.Write "<option value='" & oRS("Student_Code")& "'>" & oRS("Student_LastName") & ", " & oRS("Student_FirstName") &vbcrlf&"</option>"
oRS.MoveNext
Loop
oRS.Close
%>
<td><input type='submit' Name='Delete_Student' Value='Delete Student'></td></tr>
</select></td></tr></table></FORM>
<!-- --------------------------------------------------------------------
Enroll A Student
---------------------------------------------------------------------- -->
<tr><td valign='top' colspan='3'><br>
<h4><img src="../images/checkmark.gif">Enroll a Student:</h4>
<table border='1'><tr><td>
<%
sqltext = "SELECT * FROM Course ORDER BY Course_Code"
oRS.Open sqltext, oConn
%>
<form method='post' action='admin_submit_student.asp'>
<select name='enroll_class_code' 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='enroll_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 Student Enrollment:
<%
for x=1 to 14
response.write " "
next
%>
<select name='enroll_student_code' size='1'>
<%
sqltext = "SELECT * FROM Student"
oRS.Open sqltext, oConn
do while not oRS.EOF
response.write "<option value='" & oRS("Student_Code") & "'>" & oRS("Student_LastName") & ", " & oRS("Student_FirstName") & "</option>"
oRS.MoveNext
loop
oRS.Close
%>
</select>
</td></tr>
<tr><td height='31' colspan='2' align='right' valign='bottom'><input name='Enroll_Student' type='submit' value='Enroll Student'></td></tr>
</form></table>
</td></tr></table><br>
<tr><td></td><td colspan='2'><br><br><hr size='2' color='#000000'>
<font size='1'>Powered by Netest</font>
</td></tr></table>
</body>
</html>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -