用ASP开发一个在线考试程序(五)
程序员文章站
2022-07-04 11:47:18
redirect. 这一页将用户送到实际生成题目和选项的asp页。如果中没有所选择的特定主题的任何题目,就显示错误信息和返回连接。首先:id = request.querystr...
redirect.
这一页将用户送到实际生成题目和选项的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 页,其中包含着实际的题目。