|
用ASP开发试题库与在线考试系统(8)(1) 七、附录：源程序列表
由于源代码繁多，限于篇幅，无法一一列举，现只公布部分代码，具体以系统实物为准。下面是录入试题.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=Server.CreateObject("ADODB.Connection")
adocon.Open "zxtest"
set sa1=adocon.Execute(SQLstr)
If sa1.EOF Then
check_Pass = False
Else
check_Pass = True
End If
sa1.Close adocon.Close
End Function
Sub Add_Comment()'开始插入数据并显示出来
Dim kmxxmc,xzsj,tmlx,nycd,jxyq,stbh,stnr
|
