網路考場（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