用ASP编程开发试题库与在线考试系统(8)

ASP 21NN 2年前 (2018-05-24) 78次浏览 已收录 0个评论 扫描二维码

七、附录:源程序列表

  由于源代码繁多,限于篇幅,无法一一列举,现只公布部分代码,具体以系统实物为准。下面是录入试题.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

 Dim A,B,C,D,E,F,bzda,lrz,Picstr,SQLstr,lr_date,zhang,jie

 kmxxmc = Request.Form(“kmxxmc”) xzsj = Request.Form(“xzsj”)

  ┋ ┋ ┋

 bzda = Request.Form(“bzda”) zhang = Request.form(“zhang”)

 set adocon=Server.CreateObject(“ADODB.Connection”)

 adocon.Open “zxtest”

 SQLstr = “insert into ” & kmxxmc & ” (xzsj,tmlx,tmnd,jxyq,stbh,tmnr,  bxda_a,”

 SQLstr = SQLstr & “,jie,lrz) values (” & “‘” & xzsj & “‘,” & “‘” & tmlx & “‘,”

  ┋ ┋ ┋

 SQLstr = SQLstr & “‘,” & “‘” & date & “‘,” & “‘” & zhang & “‘,” & “‘” & jie & “‘,” SQLstr = SQLstr & “‘” &

1234下一页


本文:用ASP编程开发试题库与在线考试系统(8) 本文链接:https://www.21nn.cn/biancheng/asp/2043.html 本站所以图片、文章仅限用于学习和研究目的; 不得将上述内容用于商业或者非法用途,否则,一切后果请用户自负。 本站信息来自网络,版权争议与本站无关。 您必须在下载后的24个小时之内,从您的电脑中彻底删除上述内容。 如有侵权请邮件与我们联系处理。i@ki4.cn
喜欢 (0)
[1353713598@qq.com]
分享 (0)
发表我的评论
取消评论
表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址