用ASP開發一個在線考試程序（五）
Redirect.asp
這一頁將用戶送到實際生成題目和選項的ASP頁。如果數據庫中沒有所選擇的特定主題的任何題目，就顯示錯誤信息和返回連接。
首先：
id = Request.QueryString ("section")
調用查詢字符串部分，將值存入變量 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 。結果存儲在subject中。進一步分離變量subject，將其存儲在MyString中。Split 函數用來在客戶端顯示測驗名，是為了看起來效果更好。
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
如果以上查詢產生了結果，就表示會員所選擇的科目中有題目，可以進行在線考試。如果特定部分還在創建中，就告訴訪問者稍后再回來進行考試。這是主考者的特殊興趣，因為會員能夠知道在前面的屏幕上下拉菜單所提供的科目哪些是懸而未決的。這樣，如果這個部分有題目和相應的選項，這一頁就被重新引導到exam.asp 頁，其中包含著實際的題目。
這一頁將用戶送到實際生成題目和選項的ASP頁。如果數據庫中沒有所選擇的特定主題的任何題目，就顯示錯誤信息和返回連接。
首先：
id = Request.QueryString ("section")
調用查詢字符串部分，將值存入變量 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 。結果存儲在subject中。進一步分離變量subject，將其存儲在MyString中。Split 函數用來在客戶端顯示測驗名，是為了看起來效果更好。
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
如果以上查詢產生了結果，就表示會員所選擇的科目中有題目，可以進行在線考試。如果特定部分還在創建中，就告訴訪問者稍后再回來進行考試。這是主考者的特殊興趣，因為會員能夠知道在前面的屏幕上下拉菜單所提供的科目哪些是懸而未決的。這樣，如果這個部分有題目和相應的選項，這一頁就被重新引導到exam.asp 頁，其中包含著實際的題目。