网络考场（11）（转）teditquestion.asp

网络

<%@ Language=VBScript %>
<%
if Request.ServerVariables("http_method")="POST" then
'提交方式对试题进行操作
    set mrs=server.CreateObject("adodb.recordset")
    mrs.ActiveConnection="dsn=testsys"
    mrs.Source="select * from question where teachid='" & session("teachid") & "' and sub='" & Request.Form("selsub") & "'"
    '打开与当前教师编号和选择课程的名称一致的recordset
    mrs.Open ,,1,3
    if Request.Form("submit")="删除" then
        '执行删除操作
        page=Request.Form("page")
        '指向要删除的记录
        mrs.PageSize=1
        mrs.AbsolutePage=page
        '删除并更新
        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")="修改" then
        '执行修改操作
        page=Request.Form("page")
        '指向要修改的记录
        mrs.PageSize=1
        mrs.AbsolutePage=page
        '根据提交的内容修改当前记录
        mrs("teachid")=session("teachid")
        mrs("sub")=Request.Form("selsub")
        mrs("question")=Request.Form("question")
        mrs("A")=Request.Form("opta")
        mrs("B")=Request.Form("optb")
        mrs("C")=Request.Form("optc")
        mrs("D")=Request.Form("optd")
        mrs("answer")=Request.Form("answer")
        mrs.Update
        page=Request.Form("page")
    elseif Request.Form("submit")="前一个" then
        '执行查看前一个记录的请求
        page=Request.Form("page")-1
    elseif Request.Form("submit")="后一个" then
        '执行查看后一个记录的请求
        page=Request.Form("page")+1
    elseif Request.Form("submit")="确定" then
        '从选择课程的页面进入该页面时，将页数设定为1
        page=1
    end if
    if not mrs.BOF and not mrs.EOF then
        '如果选择的数据库不为空
        mrs.PageSize=1
        mrs.AbsolutePage=page
        '存放题目总数的变量
        quesnum=mrs.PageCount
        '存放当前题目序号的变量
        currques=page
        '存放题目内容的变量
        question=mrs("question")
        '存放题目选择答案A-D内容的变量
        opta=mrs("A")
       &nb