| t;)；adocon.Open "zxtest"
第三步 设定SQL命令，使用"Execute"命令，即可开始执行访问数据库的动作。
sqlstr ="select * from jsjwl where stbh like ''PD'' order by stbh ASC"
set rs = adocon.Execute(sqlstr) ′adocon为第二步所设定的对象名称
第四步 使用Recordset对象的命令，显示结果，其中rs为第三步所定义。
rs.fields.count:记录的字段数；
rs(i).name:第i(指针)个字段名，i由0算起到rs.fields.count-1；
rs(i):读取第i(指针)个字段的记录，i由0算起到rs.fields.count-1；
rs("字段名"):读取指定的字段的记录；rs.eof:是否已指定最末条；
rs.movenext:将指针移到下一条；rs.moveprev:将指针移到上一条；
rs.movefirst:将指针移到第一条；rs.movelast:将指针移到最末条；
第五步 使用后关闭数据库：
rs.close；adocon.close
六、数据的安全与保密
由于此系统的特殊性，数据的安全与保密显得尤为重要。保密性是指用户在网上的所有信息应有一定的保密度，不同类型的用户之间的内容是互相保密的。安全性是指用户参加一次活动是一个安全的过程，对于所有用户的动作，服务器都加以跟踪。为了确保其安全与保密性，一要确保考生不能联网作弊；二要在试卷上实时加以监控；三要在时间上加以严格的控制等。主要通过下列两种途径予以实现：
其一，凡进入在线****的用户，都要通过用户身份验证（见下图）才能进入。而且，不同用户具有不同的操作权限，支持按权限进行操作，确保数据的公共性与私有性。不允许用户执行非法的操作，防止用户无意或有意的破坏。
其二，禁止用户查看所有试卷的源文件及拷贝功能，方法有二：
1、禁止使用鼠标右键等功能；
II、试卷库中的试卷将以无下拉菜单及工具栏等的页面方式呈现在浏览者面前。
七、附录：源程序列表
由于源代码繁多，限于篇幅，无法一一列举，现只公布部分代码，具体以系统实物为准。下面是录入试题.asp文件：
<script language="VBScript">
<!-- ''Written by HeKai 2001
Function datacheck()''确保前台输入数据合法
dim errflag, msg
errflag = True
if Len(Trim(luru.xzsj.value)) = 0 Then
focusto(1); errflag = false; msg="请输入 ''选自书籍名称''"
ElseIf Len(Trim(luru.stnr.value)) = 0 Then
focusto(9); errflag = false; msg=" ''试题内容'' 呢"
ElseIf Len(Trim(luru.A.value)) = 0 Then
focusto(10); errflag = false; msg=" ''****_A'' 呢"
┋ ┋ ┋
ElseIf Len(Trim(luru.F.value)) = 0 Then
focusto(15); errflag = false; msg="请还原成默认值"
End if
If (errflag = false) then
msg = msg & vbCRLF
MsgBox msg, 64, "提示"
Exit Function
End if
datacheck = errflag; luru.Submit
End Function
Sub focusto(x)''将鼠标定位在出错处
document.luru.elements(x).focus()
End Sub
--></script>
以下是录入试题.inc文件：
<script Language="VBScript" RunAt="Server">
Function check_Pass()''检查库中是否已有此数据
kmxxmc = Request.Form("kmxxmc")
stbh = Request.Form("stbh") stnr = Request.Form("stnr")
SQLstr = "select * from " & kmxxmc & " where stbh=" & "''" & stbh & "''"
SQLstr = SQLstr & " or tmnr=" & "''" & stnr & "''"
set adocon=S
|
