<%@ Language=VBScript %>
<%
if Request.ServerVariables("http_method")="GET" then
'如果是以GET方式请求页面,则将页码定为1
page=1
end if
set rec=server.CreateObject("adodb.recordset")
rec.ActiveConnection="dsn=testsys"
rec.Source="select * from subinfo where teachid='" & session("teachid") & "'"
'将课程表中所有teachid=当前教师编号的记录查找出来
rec.Open ,,1,3
if Request.ServerVariables("http_method")="POST" then
page=cint(Request.Form("page"))
if Request.Form("submit")="加入" then
'处理加入新的课程的请求
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")="修改" then
'处理修改课程的请求
rec.PageSize=1
'将页码设置为当前页
rec.AbsolutePage=page
'根据提交的课程内容进行修改
rec("teachid")=session("teachid")