快精灵印艺坊 您身边的文印专家 广州名片 深圳名片 会员卡 贵宾卡 印刷 设计教程
产品展示 在线订购 会员中心 产品模板 设计指南 在线编辑
 首页 名片设计   CorelDRAW   Illustrator   AuotoCAD   Painter   其他软件   Photoshop   Fireworks   Flash  

 » 彩色名片
 » PVC卡
 » 彩色磁性卡
 » 彩页/画册
 » 个性印务
 » 彩色不干胶
 » 明信片
   » 明信片
   » 彩色书签
   » 门挂
 » 其他产品与服务
   » 创业锦囊
   » 办公用品
     » 信封、信纸
     » 便签纸、斜面纸砖
     » 无碳复印纸
   » 海报
   » 大篇幅印刷
     » KT板
     » 海报
     » 横幅

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

　七、附录：源程序列表

　　由于源代码繁多，限于篇幅，无法一一列举，现只宣布部分代码，详细以系统实物为准。下面是录入试题.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个月之余，通过多次细致的测试及鉴定，证实系统完全具有可行性与可扩充性，就最近传来的消息，该系统获得了湖南省科技厅的普遍好评。另外，系统还有待于进一步升级，并将实现试卷的主观题部分和多媒体试卷。因此，仍有大量的工作需要开展。若有不详或不妥之处，请您以应用程序为准以及提出良好的意见与建议。
返回类别: 教程
上一教程: 一个BBS的源代码(三)
下一教程: 十天学会ASP之第一天

您可以阅读与"用ASP开发试题库与在线考试系统(8)"相关的教程:
· 用ASP开发试题库与在线考试系统(2)
· 用ASP开发试题库与在线考试系统(7)
· 用ASP开发试题库与在线考试系统(1)
· 用ASP开发试题库与在线考试系统(4)
· 用ASP开发试题库与在线考试系统(5)
    微笑服务 优质保证 索取样品  
  快精灵印艺坊 版权所有 首页会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
网站地图关于我们友情链接