Network examination Room (11) (Turn) teditquestion.asp

<%@ Language=vbscript%>
<%
If Request.ServerVariables ("http_method") = "POST" Then
' Submit the question to the way of operation
Set Mrs=server. CreateObject ("Adodb.recordset")
Mrs. activeconnection= "Dsn=testsys"
Mrs. Source= "SELECT * from question where teachid= '" & Session ("Teachid") & "' and Sub= '" & Request.Form ("Selsub") & "'"
' Open a recordset that is the same name as the current teacher number and selection course
Mrs. Open, 1,3
If Request.Form ("submit") = "Delete" Then
' Perform the delete operation
Page=request.form ("page")
' Point to the record you want to delete
Mrs. Pagesize=1
Mrs. Absolutepage=page
' Delete and update
Mrs. Delete
Mrs. Update
If Request.Form ("page") >1 Then
Page=request.form ("page")-1
Else
Page=1
End If
End If
If Request.Form ("submit") = "Modify" Then
' Perform a modification operation
Page=request.form ("page")
' Point to the record you want to modify
Mrs. Pagesize=1