Redirect.asp
這一頁(yè)將用戶送到實(shí)際生成題目和選項(xiàng)的ASP頁(yè)。如果數(shù)據(jù)庫(kù)中沒(méi)有所選擇的特定主題的任何題目,就顯示錯(cuò)誤信息和返回連接。
首先:
id = Request.QueryString ("section")
調(diào)用查詢字符串部分,將值存入變量 id中。
然后:
SQL = "select tbl_name from paper where id="&id
Set RS = Application("Conn").Execute(SQL)
subject= RS(0)
MyString = Split(subject,"tbl",-1,1)
SQL聲明傳遞試卷表格中的域名 table_name 。結(jié)果存儲(chǔ)在subject中。進(jìn)一步分離變量subject,將其存儲(chǔ)在MyString中。Split 函數(shù)用來(lái)在客戶端顯示測(cè)驗(yàn)名,是為了看起來(lái)效果更好。
IF RS_subject.BOF AND RS_subject.EOF Then
Response.Write Online " & MyString(1) & Test is still to be launched. Come back _
later < a href=default.asp >BACK< /a >"
Else
Response.Redirect ("exam.asp?section="&id )
End If
如果以上查詢產(chǎn)生了結(jié)果,就表示會(huì)員所選擇的科目中有題目,可以進(jìn)行在線考試。如果特定部分還在創(chuàng)建中,就告訴訪問(wèn)者稍后再回來(lái)進(jìn)行考試。這是主考者的特殊興趣,因?yàn)闀?huì)員能夠知道在前面的屏幕上下拉菜單所提供的科目哪些是懸而未決的。這樣,如果這個(gè)部分有題目和相應(yīng)的選項(xiàng),這一頁(yè)就被重新引導(dǎo)到exam.asp 頁(yè),其中包含著實(shí)際的題目。