📄 admin_edit_teachers.asp
字号:
<html>
<head>
<!-- Author: Brad Pierce -->
<title>Administrator Teacher 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>Teacher Management</h2></td></tr>
<!-- #include file="../admin_navbar/admin_navbar_print.inc" -->
<TD valign='top'><br>
<h3>Existing Teachers and Teacher 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 Instructor ORDER BY Inst_Code"
oRS.Open sqltext, oConn
%>
<table border='0'><tr><td valign='top'>
<textarea rows='3' cols='20' readonly id=textarea1 name=textarea1>
<%
Do While Not oRS.EOF
Response.Write oRS("Inst_Code")& " " & oRS("Inst_LastName") & ", " & oRS("Inst_FirstName") &vbcrlf&""
oRS.MoveNext
Loop
oRS.Close
%>
</textarea>
<br><br>
</td><td valign='top'>
</td></tr></table>
<!-- --------------------------------------------------------------------
ADD A Teacher
---------------------------------------------------------------------- -->
<table border='0'><tr><td>
<h4><img src="../images/checkmark.gif">Add a new Teacher </h4>
<FORM METHOD='post' ACTION='admin_submit_inst.asp'><table border = '1' >
<tr><td>Teacher's Code: </td><td><input type='text' name='inst_code' ></td></tr>
<tr><td>Teacher's Last Name: </td><td><input type='text' name='inst_lastname' ></td></tr>
<tr><td>Teacher's First Name:</td><td><input type='text' name='inst_firstname' ></td></tr>
<tr><td>Teacher's Password: </td><td><input type='text' name='inst_password' ></td></tr>
<tr><td>Administrator Code: </td><td><input type='text' name='admin_code' ></td></tr>
<tr><td></td><td align='right'><input type='submit' name='add_Teacher' value='Add Teacher'></td></tr>
</FORM> </table>
</td>
<!-- --------------------------------------------------------------------
Modify Teacher Information
---------------------------------------------------------------------- -->
<td width='5%'></td><td valign='left'>
<h4><img src="../images/checkmark.gif">Select Teacher to Modify:</h4>
<table border = '1'><tr><td>
<%
sqltext = "SELECT * FROM Instructor ORDER BY Inst_Code"
oRS.Open sqltext, oConn
%>
<FORM METHOD='post' ACTION='admin_submit_inst.asp'>
<SELECT name='modify_teacher' size='0' >
<%
Do While Not oRS.EOF
Response.Write "<option value='" & oRS("Inst_Code")& "'>" & oRS("Inst_LastName") & ", " & oRS("Inst_FirstName") &vbcrlf&"</option>"
oRS.MoveNext
Loop
oRS.Close
%>
<td><input type='submit' Name='Modify_Teacher' Value='Modify Teacher'></td></tr>
</select></FORM></td></tr></table>
<!-- --------------------------------------------------------------------
DELETE A TEACHER
---------------------------------------------------------------------- -->
<br><br>
<h4><img src="../images/checkmark.gif">Delete a Teacher:</h4>
<table border = '1' align = 'left'><tr><td>
<%
sqltext = "SELECT * FROM Instructor ORDER BY Inst_Code"
oRS.Open sqltext, oConn
%>
<FORM METHOD='post' ACTION='admin_submit_inst.asp' id=form1 name=form1>
<SELECT name='Delete_teacher' size='1' >
<%
Do While Not oRS.EOF
Response.Write "<option value='" & oRS("Inst_Code")& "'>" & oRS("Inst_LastName") & ", " & oRS("Inst_FirstName") & vbcrlf & "</option>"
oRS.MoveNext
Loop
oRS.Close
%>
<td><input type='submit' Name='Delete_Teacher' Value='Delete Teacher'></td></tr>
</select></FORM></td></tr></table></td></tr></table>
<br><br><br>
<tr><td></td><td colspan='2'><hr size='2' color='#000000'>
<font size='1'>Powered by Netest</font>
</td></tr></table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -