IDC资讯中心
<%@ 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")
optb=mrs("b")
optc=mrs("c")
optd=mrs("d")
存放答案的变量
answer=mrs("answer")
以下的字符串变量prebut,nextbut,revisebut,deletebut
是根据一定的条件赋值为"true"或"false"，用来初始化
各个按扭的可用状态
if page>1 then
如果当前页>1，prebut="false"将用于window_onload初始化“前一个”按扭
是可用的，以下的用法类似
prebut="false"
else
否则“前一个”按扭置灰不可用
prebut="true"
end if
if cint(page)<mrs.pagecount then
如果当前页数<记录的总页数，则"下一个"按扭可用
nextbut="false"
else
nextbut="true"
end if
deletebut="false"
revisebut="false"
else
如果记录数为0，则全部按扭不可用
deletebut="true"
revisebut="true"
prebut="true"
nextbut="true"
end if
mrs.close
set mrs=nothing
end if
%>
<html>
<head>
<meta name="generator" content="microsoft visual studio 6.0">
<script id=clienteventhandlersjs language=javascript>
<!–
function window_onload() {
<%以下为根据各个变量初始化表单form1的各个元素%>
<%select case answer%>
<%根据题目的答案决定哪个radio被选中%>
<%case "a":%>form1.radio1.checked=true
<%case "b":%>form1.radio2.checked=true
<%case "c":%>form1.radio3.checked=true
<%case "d":%>form1.radio4.checked=true
<%end select%>
<%根据字符串变量prebut,nextbut,revisebut,deletebut决定相应的按扭是否可用%>
form1.prebut.disabled=<%=prebut%>
form1.nextbut.disabled=<%=nextbut%>
form1.revisebut.disabled=<%=revisebut%>
form1.deletebut.disabled=<%=deletebut%>
<%根据字符串变量opta,optb,optc,optd初始化相应的文本输入框的文本%>
form1.txtopta.value="<%=opta%>"
form1.txtoptb.value="<%=optb%>"
form1.txtoptc.value="<%=optc%>"
form1.txtoptd.value="<%=optd%>"
}
//–>
</script>
</head>
<body language=javascript onload="return window_onload()">
<form action="" method=post id=form1 name=form1>
<p><strong><font color=crimson face=幼圆
size=4>修改试题库试题</font></strong></p>
<p>课程—
<%
response.write request.form("selsub")
response.write " 试题总数：" & quesnum & "/当前试题：" & currques
%> </p>
<p>
<table border=0 cellpadding=1 cellspacing=1 width=90%>
<tr>
<td>题目</td></tr>
<tr>
<td><textarea id=textarea1 name=question style="height: 114px; width: 60%"><%=question%></textarea></td></tr>
<tr>
<td>选择答案
<tr>
<td>a.
<input id=txtopta name=opta style="height: 21px; width: 40%">
<tr>
<td>
<p>b.
<input id=txtoptb name=optb style="height: 21px; width: 40%" ></p>
<tr>
<td>c.
<input id=txtoptc name=optc style="height: 21px; width: 40%" >
<tr>
<td>
<p>d.
<input id=txtoptd name=optd style="height: 21px; width: 40%" ></p>
<tr>
<td>
<p>正确答案
<input id=radio1 name=answer type=radio value=a >a
<input id=radio2 name=answer type=radio value=b >b
<input id=radio3 name=answer type=radio value=c >c
<input id=radio4 name=answer type=radio value=d >d
</p></td></tr></table></p>
<p><input id=deletebut name=submit type=submit value=删除 >
<input id=revisebut name=submit type=submit value=修改 >
<input id=prebut name=submit type=submit value=前一个 >
<input id=nextbut name=submit type=submit value=后一个 ></p>
<%
response.write "<input type=hidden name=page value=" & page & ">"
response.write "<input type=hidden name=selsub value=" & request.form("selsub") & ">"
%>
</form>
</body>
</html>
