用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 页，其中包含着实际的题目。