网络考场（9）（转）taddsub.asp

网络

<%@ 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=&

时间： 2024-08-03 21:01:20

网络考场（9）（转）taddsub.asp的相关文章

网络考场（6）（转）stselectsub.asp

select|网络 <%@ Language=VBScript %><%if Request.Form("selsub")<>"" then'如果选择了考科目,则进入考试界面    marray=split(Request.Form("selsub"),",")    '保存考试科目的教师编号    session("teachid")=trim(marray(0))    '

网络考场（2）（转）screatefrm1.asp

<%@ Language=VBScript %><html><head><title>网络考场</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head><frameset rows="*" cols="120,509*" borde

网络考场（4）（转）smessage.asp

<%@ Language=VBScript %><%'计算考试已过时间gotime=hour(now())*60+minute(now())-hour(session("starttime"))*60-minute(session("starttime"))'计算考试剩余时间lefttime=session("testtime")-gotime%><HTML><HEAD><META http-

网络考场（1）（转）logon.asp

<%@ Language=VBScript %><%if Request.ServerVariables("http_method")="POST" then    if Request.Form("submit")="进入1" then        '学生进入网络考场的处理        set conn=server.CreateObject("adodb.connection") 

网络考场（13）（转）testtop.asp

网络 <%@ Language=VBScript %><HTML><HEAD><META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"></HEAD><BODY><P align=center><STRONG><FONT color=crimson face=幼圆 size=4>网络考场:<

网络考场（7）（转）taddquestion.asp

网络 <%@ Language=VBScript %><%if Request.ServerVariables("http_method")="POST" then    if Request.Form("submit")="加入" then    '处理加入试题请求        set mrs=server.CreateObject("adodb.recordset")        

网络考场（16）（转）tselectsub.asp

select|网络 <%@ Language=VBScript %><%Response.Buffer=true%><HTML><HEAD><META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"></HEAD><BODY bgColor=Azure><%if Request.QueryString("a

网络考场（10）（转）tcreatefrm2.asp

网络 <%@ Language=VBScript %><html><head><title>Untitled Document</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head><frameset rows="*" cols="120,

网络考场（8）（转）taddstudent.asp

网络 <%@ Language=VBScript %><HTML><HEAD><META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"></HEAD><BODY><%if Request.ServerVariables("http_method")="POST" and Request.