在读取试题过程中，测试过程可以使用随机组卷的方式，这样可以避免所有参加测试者的试卷一样，防止作弊现象。随机读取试题的方法很简单，只需要把打开表中的select * from 测试表 where 项目类别=0更改成select * from 测试表 where 项目类别=0 order by newid()，主要使用了order by newid()的方法，此方法主要是在数据库中随机产生记录。

（2）secord.asp(测试考试评分程序)

<!-- #include file="title.asp"-->

    <%score=0

set rs=server.createobject("adodb.recordset")

    rs.open "select * from 测试表 where 项目类别=0",c1,1,1

    set r1=server.createobject("ADODB.Recordset")

    for i=1 to rs.recordcount

    r1.open "select * from 测试表 where id="&request("na"&i),c1,1,1

    sel=request("no"&r1("id"))

    sel=replace(sel," ","")

    ans=r1("标准答案")

    if trim(ans)=trim(sel) then

    '如果答案正确分值累加

        score=score+r1("分值")

    end if

    r1.close

    next

    rs.close

    response.write “您的考试成绩为”

    response.write score

    response.write “分！”

    c1.close%>