您的位置:首页网页设计ASP实例 → 用ASP开发试题库与在线考试系统8

用ASP开发试题库与在线考试系统8

时间:2004/11/7 3:00:00来源:本站整理作者:蓝点我要评论(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 & "'" & lrz & "')"

 set sa1 = adocon.Execute(SQLstr)

 Picstr="<img src='/images/hekai.jpg'>"

 Response.Write "恭喜!此为<i> " & lrz & "</i> 刚才录入的试题"

 Response.Write Picstr & " 试题编号:" & stbh

 Response.Write "试题内容:" & stnr & "<br>"

 Response.Write "答案_A:" & A & "<br>"

  ┋ ┋ ┋

 adocon.Close

End Sub



Sub Register()

 If check_Pass() Then '如果库中已有的话,则给出提示信息

  Show_Warning()

 Else '否则添加进去

  Add_Comment()

 End If

End Sub



Sub Show_Warning()'给出提示信息的函数

 Response.Write("<p>")

 Response.Write("<center>很抱歉<p>")

 Response.Write("库中已有此试题编号或试题内容,请返回前页修改!")

 Response.Write("</center>")

 Response.Write("Made by hekai himself in 2001")

End Sub

</script>



此为"检索试题"的程序代码:

<script Language="VBScript" RunAt="Server">

Function adjust_sql(adj_str)

 '目的---转换查询字符串中的特殊字符至SQL指令

 Dim final_str, i 'WRITE BY HEKAI2001

 adj_str = Trim(adj_str)

 final_str = "" '每次从传进来的字符串中取出一个字符,并判断是否为下述三个字符之一: DOS的Filter符号"|"、左中括号"["以及单引号"'"

 If Len(adj_str) > 0 Then

  For i = 1 To Len(adj_str)

   Select Case Mid(adj_str, i, 1)

     Case "[": final_str = final_str & "[[]"

     Case "|": final_str = final_str & "[{-}]"

     Case "'": final_str = final_str & "[&-()"

     Case Else: '以上皆非则什么事都不做!

     final_str = final_str & Mid(adj_str, i, 1)

   End Select

  Next

 End If

 adjust_sql = final_str

End Function



Sub Output_shiti()

 Dim kmxxmc,xzsj,stbh,zhang,jie,tmlx,nycd,jxyq,lrz,stnr,cond_count, Picstr

 Dim SQLstr,mf,zhangfw,jiefw,stbhfw,nycdfw,lr_datefw,lr_date

 '记录指定条件的栏位总数

 cond_count = 10; mf = "%"

 Picstr="<img src='/images/hk.gif'>"

 '取得表单栏位内容

 kmxxmc = Request.Form("kmxxmc")

 stbh = Request.Form("stbh")

  ┋ ┋ ┋

 stnr = Request.Form("stnr")

 '调整SQL指令中的特定字元

 kmxxmc = adjust_sql(kmxxmc)

 stbh = adjust_sql(stbh)

  ┋ ┋ ┋

 stnr = adjust_sql(stnr)

 If Len(xzsj) = 0 Then cond_count = cond_count - 1

  If Len(stbh) = 0 Then cond_count = cond_count - 1

  ┋ ┋ ┋

  If Len(stnr) = 0 Then cond_count = cond_count - 1

   SQLstr = "select * from " & kmxxmc & " where "

  If Len(stbh) > 0 Then

   SQLstr = SQLstr & " stbh " & stbhfw & "'" & stbh & "'"

  If cond_count > 1 Then

   SQLstr = SQLstr & " and "

   cond_count = cond_count - 1

  End If

 End If

  ┋ ┋ ┋

 If Len(stnr) > 0 Then

  SQLstr = SQLstr & " tmnr like " & "'" & mf & stnr & mf & "'"

  If cond_count > 1 Then

   SQLstr = SQLstr & " and "

   cond_count = cond_count - 1

  End If

 End If

 SQLstr = SQLstr & " order by lr_date DESC "

 set adocon=Server.CreateObject("ADODB.Connection")

 adocon.Open "zxtest"

 set sa1 = adocon.Execute(SQLstr)

 If sa1.EOF Then

  Response.Write "<br><center><h1>"

  Response.Write "Sorry!<p>"

  Response.Write "没有找到试题,"

  esponse.Write "请重试一次!</center><p>"

  Response.Write "<hr></h1>"

 Else

  i = 0

  Response.Write "<h2>"

  Response.Write "符合条件的试题相关内容如下:"

  Response.Write "</h2>"

  While Not sa1.EOF

   i = i + 1

   Response.Write "第 <i>" & i & "</i>题 题编号:<i>" & sa1("stbh") & "</i><br>"

   Response.Write "试题内容:" & sa1("tmnr") & "<br>"

    ┋ ┋ ┋

  Response.Write "答案A:" & sa1("bxda_a") & "<br>"

  sa1.MoveNext

  WEnd

  adocon.Close

 End If

End Sub

</script>



<% '"检索试卷"的查询方式源代码

 mf="%"

 select case request("findfs")

  case "sjbh"

   sqlstr="SELECT * FROM tbsjxx WHERE " & " sjbh LIKE"

   sqlstr=sqlstr & "'" & mf & request("findfsz") & mf & "'order by ksrq DESC"

   ┋ ┋ ┋

  case "lr_date"

   sqlstr="SELECT * FROM tbsjxx WHERE " & " lr_date LIKE"

   sqlstr=sqlstr & "'" & mf & request("findfsz") & mf & "'order by ksrq DESC"

  case else

   sqlstr="SELECT * FROM tbsjxx order by ksrq DESC"

end select %>



  下面是考试的时间自动控制程序(便于演示只设了60秒钟,实际应用应以系统调出试卷的考试时间为准!):



<SCRIPT language=JavaScript>

<!-- Write by HEKAI for TestTimeContorl

var timerID = null;var timerRunning = false

var stardate = new Date();var startime = gettotalsecond(stardate)

var totaltime = 60; var lasttime;var facetime

function Stepclock(){

// hk made by himself

if(timerRunning)

clearTimeout(timerID)

timerRunning = false }

function startclock(){

Stepclock();showtime() }

function gettotalsecond(getdate){

var hours = getdate.getHours()

var minutes = getdate.getMinutes();var seconds = getdate.getSeconds()

var gettotalsecond = seconds + minutes * 60 + hours * 3600

return(gettotalsecond) }

function showtime(){

var now = new Date();var timeValue = gettotalsecond(now)

document.clock.face.value = timeValue - startime

facetime = document.clock.face.value;lasttime = totaltime - facetime

document.clock.sytime.value = lasttime

timerID = setTimeout("showtime()",1000)

timerRunning = true

if (lasttime == 20){

for(i=1;i<=3;i++){

alert('考试时间只剩下最后20秒!')}}

if (lasttime == 0){

for(i=1;i<=5;i++){

alert('时间完毕!请迅速交卷!!')}}

if (lasttime == -10){

for(i=1;i<=10;i++){

alert('考试时间超过10秒,关闭此窗口!')}}

}//-->

</SCRIPT>  



  八、后记



  此系统从研究设计到投入实际应用历时4个月之余,通过多次细致的测试及鉴定,证明系统完全具有可行性与可扩充性,就最近传来的消息,该系统获得了湖南省科技厅的普遍好评。另外,系统还有待于进一步升级,并将实现试卷的主观题部分和多媒体试卷。因此,仍有大量的工作需要开展。若有不详或不妥之处,请您以应用程序为准以及提出良好的意见与建议。


相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论
发表评论

热门文章 没有查询到任何记录。

最新文章 迅雷新手完全入门手册 asp下面javascript上传图片限制格式大小方法告诉大家网页弹出窗口应用总结ASP常见错误类型大全asp常见错误分析和解决办法

人气排行 总是弹出visual studio 实时调试器 三种解决SQLSERVER存储过程及调用详解Asp获取真实IP地址ASP中连接Mssql的几种方法一个简单好用的UBB编辑器(含代码)如何用Split将字符串转换为数组并获取数组下ASP防止表单重复提交的办法告诉你免费的简单聊天室源代码