IDC资讯中心 <%@ 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")
rec("sub")=request.form("subname")
rec("testtime")=request.form("testtime")
rec("testnum")=request.form("testnum")
rec.update
page=cint(request.form("page"))
elseif request.form("submit")="前一个" then
如果要求显示前一个记录，则页码-1
page=page-1
else
要求显示后一个记录，页码+1
page=page+1
end if
end if
if not rec.bof and not rec.eof then
如果课程记录不为空
rec.pagesize=1
根据页码设定当前的记录位置
rec.absolutepage=page
根据当前记录取得课程信息
subname=rec("sub")
testtime=rec("testtime")
testnum=rec("testnum")
if page>1 then
如果页码>1，则字符串变量prebut="false"，根据该变量
在window_onload事件中设定按扭(id=submit3,value="前一个")
的disabled值决定该按扭是否可用
以下的nextbut、revisebut变量作用类似
prebut="false"
else
如果当前页码<0则设定prebut="true"设定"前一个"按扭不可用
prebut="true"
end if
if cint(page)<rec.pagecount then
当前页码<最大页码，则设定"后一个"按扭可用
nextbut="false"
else
设定"后一个"按扭不可用
nextbut="true"
end if
修改按扭可用
revisebut="false"
else
revisebut="true"
prebut="true"
nextbut="true"
end if
dim pagecount 当前课程的总数
pagecount=rec.pagecount
rec.close
set rec=nothing
%>
<html>
<head>
<meta name="generator" content="microsoft visual studio 6.0">
<script id=clienteventhandlersjs language=javascript>
<!–
function window_onload() {
<%以下为根据各个变量初始化表单form1的各个元素%>
<%根据字符串变量prebut,nextbut,revisebut决定相应的按扭是否可用%>
form1.prebut.disabled=<%=prebut%>
form1.nextbut.disabled=<%=nextbut%>
form1.revisebut.disabled=<%=revisebut%>
<%根据字符串变量subname、testtime、testnum初始化相应的文本框%>
form1.txtsubname.value="<%=subname%>"
form1.txttestnum.value="<%=testtime%>"
form1.txttesttime.value="<%=testtime%>"
<%根据变量page的值初始化文本框txtpage的值，该文本框为hidden类型，用于
在页面间传递当前页码值%>
form1.txtpage.value="<%=page%>"
}
//–>
</script>
</head>
<body language=javascript onload="return window_onload()">
<form action="taddsub.asp" method="post" id="form1" name="form1">
<%
response.write "课程总数:" & pagecount & "/"
response.write "当前课程:" & page
%>
<p>
<table border="0" cellpadding="1" cellspacing="1" width="75%">
<tr>
<td>
<div align="center"><font color="crimson" face="幼圆" size="4">
<strong>新增加考试科目</strong></font></div>
</td></tr>
<tr>
<td>增加科目
<input id=txtsubname name="subname" ></td></tr>
<tr>
<td>考试时间
<input id=txttesttime name="testtime">（分钟）
<tr>
<td>考试题量
<input id=txttestnum name="testnum">
</table></p>
<p><input id=addbut 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>
<input type="hidden" id=txtpage name="page" >
</form>
</body>
</html>
网络考场（9）（转）taddsub.asp
版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com 特别注意：本站所有转载文章言论不代表本站观点！ 本站所提供的图片等素材，版权归原作者所有，如需使用，请与原作者联系。未经允许不得转载：IDC资讯中心 » 网络考场（9）（转）taddsub.asp
相关推荐
- 暂无文章
