繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 用ASP开发一个在线考试程序（七）
- ASP
- asp搜索两个以上的词的原理
- 如何使用花生壳?
- asp汉字转换成汉语拼音代码
- asp程序实现伪静态的代码
- asp处理xml数据的发送、接收类
- ASP中使用jmail发送邮件的函数
- asp中获取字符串中的时间字符串
- ASP按照字数限制自动截取标题内容
- asp中将内容生成word文档的函数
- 用ASP自动清空IE缓存里的内容
- asp检测conn.execute是否执行成功的函数
- 自动获取当前页面URL的ASP函数
- ASP采集中获取网页内所需的html代码
- asp图片采集并且本地重命名保存的函数
- 如何使用asp去字符串中的超链接
- asp网站通过限制请求防止被采集的函数
- asp利用正则去掉字符串中所有html内容
- 用ASP取出HTML里面的图片地址的函数
- fso实现整个文件夹内容的复制到另一个文件夹中
- 适合所有表的添加、删除、修改的函数
用ASP开发一个在线考试程序（七）
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 69 ::
收藏到网摘: n/a
这一页的主要目的是显示结果，同时将这些结果插入数据库以备将来参考。
for each item in Request.Form
sql_check = "select Count(*) from "&subject&" where answer ='" & Request.Form(item) & "'"
Set RS_check = Application("Conn").Execute(sql_check)
if RS_check(0) > 0 then
result = result + 1
end if
next
变量result中存储了结果。
百分数是从result中算出来的，如下所示：
percent = round(( 100 * result )/count)
要将这个结果存储在数据库中，执行以下查询：
sql_id = "select id from loginuser where username='" & Session("username") &"'"
Set RS_id = Application("Conn").Execute(sql_id)
id= RS_id(0)
SQL_insert = "insert into details (ref_id,subject,score) values('" & id & "','" _
& subject & "', '" & percent &"') "
Set RS_insert = Application("Conn").Execute(SQL_insert)
View.asp
观看模块检查会员是否以前曾经进行过在线考试。如果是的话，将用户引导到viewrecord.asp。如果没有的话，显示
相应的信息。
sql_id= "select id from loginuser where username='" & Session("username") &"'"
Set RS_id = Application("Conn").Execute(sql_id)
id= RS_id(0)
sql_count = "Select count(*) from details where ref_id = '" & id &"'"
Set RS_count = Application("Conn").Execute(sql_count)
If RS_count(0) < > 0 Then
response.redirect "viewrecord.asp"
End If
If RS_count(0) = 0 Then
Session("noview") = "NO ONLINE EXAMINATIONS HAVE BEEN GIVEN"
response.redirect "default.asp"
End If
Viewrecord.asp
Viewrecord.asp页使会员能够观看一些他们的细节信息。查询如下：
sql_details = "Select *subject, score from details where ref_id = '" & id &"'"
Set RS_details = Application("Conn").Execute(sql_details)
结果是用一个简单的表格格式来显示的。
请注意，我并没有将会员可以进行一个主题的考试次数限制为一次。同一个主题考试可以进行任意次。
评论 (0) All
