📄 admin_submit_inst.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>
<%
dim oConn ' Connection Object
dim oRS ' Record Set Object
dim error_message ' contains the error message for the question
dim return_previous ' flag to indicate if the database can be updated or not
return_previous = FALSE
'IF trim(request("inst_code")) = "" THEN
' error_message = " Instructor's Code can not be blank"
' call DisplayError()
'END IF
'IF trim(request("inst_lastname")) = "" THEN
' error_message = " Instructor's Last Name can not be blank"
' call DisplayError()
'END IF
'IF trim(request("inst_firstname")) = "" THEN
' error_message = " Instructor's First Name can not be blank"
' call DisplayError()
'END IF
'IF trim(request("inst_password")) = "" THEN
' error_message = " Instructor's Password can not be blank"
' call DisplayError()
'END IF
'IF trim(request("admin_code")) = "" THEN
' error_message = " Instructor's Password can not be blank"
' call DisplayError()
'END IF
sub DisplayError()
Response.Write "<p><font color=red>" & error_message & "</font></p>"
return_previous = TRUE
end sub
'----------------------------------------------------------------------------------------------
'IF NO ERRORS, SUBMIT TO DATABASE
'----------------------------------------------------------------------------------------------
'IF return_previous = 99999 THEN
' Set oConn=Server.CreateObject("ADODB.connection")
' set oRS=Server.CreateObject("ADODB.recordset")
' oConn.Open "DSN=sd2db; UserID=Admin; pwd=netest"
'
' sqltext = "SELECT * FROM Instructor"
' oRS.Open sqltext, oConn, 2, 2
' oRS.AddNew
' oRS.Fields("Inst_Code") = session("inst_code")
' oRS.Fields("Inst_LastName") = session("inst_lastname")
' oRS.Fields("Inst_FirstName") = session("inst_firstname")
' oRS.Fields("Inst_Password") = session("inst_password")
' oRS.Fields("Admin_Code") = session("admin_code")
' oRS.Update
' oRS.Close
'Session("submitted") = TRUE
'-----------
'Add teacher
'-----------
if request("add_Teacher") <> "" then
response.write "<div id='warning'>Add teacher not implemented at this time.<br>Please hit back button.</div>"
end if
'--------------
'Modify teacher
'--------------
if request("Modify_Teacher") <> "" then
response.write "<div id='warning'>Modify teacher not implemented at this time.<br>Please hit back button.</div>"
end if
'--------------
'Delete teacher
'--------------
if request("Delete_Teacher") <> "" then
response.write "<div id='warning'>Delete teacher not implemented at this time.<br>Please hit back button.</div>"
end if
%>
<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 + -