网络考场（9）（转）taddsub.asp_自动测试脚本语言

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

发表于：2007-06-30来源：作者：点击数：标签：

%@ Language= VB Script % % 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 subi

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

</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>

原文转自：http://www.ltesting.net

软件测试 > 测试开发技术 > 软件测试开发语言 > 自动测试脚本语言 >