Network Examination Room (9) (turn) taddsub.asp

<%@ Language=vbscript%>
<%
If Request.ServerVariables ("http_method") = "Get" Then
' If you request a page as a GET, set the page number to 1
Page=1
End If
Set Rec=server. CreateObject ("Adodb.recordset")
Rec. activeconnection= "Dsn=testsys"
Rec. Source= "SELECT * from Subinfo where teachid= '" & Session ("Teachid") & "'"
' Find out the records of all teachid= current teacher numbers in the schedule
Rec. Open, 1,3
If Request.ServerVariables ("http_method") = "POST" Then
Page=cint (Request.Form ("page"))
If Request.Form ("submit") = "Join" Then
' Request to join a new course
Rec. AddNew
Rec ("Teachid") =session ("Teachid")
Rec ("sub") =request.form ("SubName")
Rec ("Testtime") =request.form ("Testtime")
Rec ("Testnum") =request.form ("Testnum")
Rec. Update
End If
If Request.Form ("submit") = "Modify" Then
' Request to process a course change
Rec. Pagesize=1
' Set the page number to the current page
Rec. Absolutepage=page
' Change according to the content of the course submitted
Rec ("Teachid") =session ("Teachid")