当前位置：编程学习 > 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")
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 &qu
- 更多asp疑问解答：
- asp正则过滤重复字符串的代码
- 用asp过滤全部html但保留br类似的符号
- 会asp，但感觉asp要过点，想学php。但我一般做的都是小公司的站，用access数
- PHP的空间可以用ASP的源代码吗？
- 以前做asp程序，现在应该怎样发展？是学.net还是php
- 以前做asp程序，现在应该怎样发展？是学.net还是php
- 想做一个市级的人才网acess,sql数据库，语言asp,jsp,php分别用哪种好
- jsp，asp，php 区别
- 我想找一个有比较多漏洞的网站的源码，比如可以asp，php注入等都可以。供学习研究用。请提供下载地址。。
- 现在候找人做个网站，用ASP，还是PHP语言去做好
- asp,php ,jsp,.net 对于做网站前台的重要吗？
- asp和php的区别是什么？
- 我是新手SEO菜鸟 请问wp dw php asp cms myspl dede 这些软件应该如何区分呀？
- 网页制作相关的三种语言：ASP JSP PHP那个好点，简单点？
- 网页制作相关的三种语言：ASP JSP PHP那个好点，简单点？