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

": 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='http://www.okasp.com/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个月之余，通过多次细致的测试及鉴定，证明系统完全具有可行性与可扩充性，就最近传来的消息，该系统获得了湖南省科技厅的普遍好评。另外，系统还有待于进一步升级，并将实现试卷的主观题部分和多媒体试卷。因此，仍有大量的工作需要开展。若有不详或不妥之处，请您以应用程序为准以及提出良好的意见与建议。

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