ASP教程之用ASP开辟一个在线测验程序（七）
ActiveServerPage技术为应用开发商提供了基于脚本的直观、快速、高效的应用开发手段，极大地提高了开发的效果。在讨论ASP的安全性问题之前，让我们来看看ASP是怎么工作的。程序|在线Result.asp这一页的次要目标是显现了局，同时将这些了局拔出数据库以备未来参考。
foreachiteminRequest.Form
sql_check="selectCount(*)from"&subject&"whereanswer="&Request.Form(item)&""
SetRS_check=Application("Conn").Execute(sql_check)
ifRS_check(0)>0then
result=result+1
endif
next
变量result中存储了却果。
百分数是从result中算出来的，以下所示：
percent=round((100*result)/count)
要将这个了局存储在数据库中，实行以下查询：
sql_id="selectidfromloginuserwhereusername="&Session("username")&""
SetRS_id=Application("Conn").Execute(sql_id)
id=RS_id(0)
SQL_insert="insertintodetails(ref_id,subject,score)values("&id&","_
&subject&","&percent&")"
SetRS_insert=Application("Conn").Execute(SQL_insert)
View.asp
寓目模块反省会员是不是之前已经举行过在线测验。假如是的话，将用户引诱到viewrecord.asp。假如没有的话，显现响应的信息。
sql_id="selectidfromloginuserwhereusername="&Session("username")&""
SetRS_id=Application("Conn").Execute(sql_id)
id=RS_id(0)
sql_count="Selectcount(*)fromdetailswhereref_id="&id&""
SetRS_count=Application("Conn").Execute(sql_count)
IfRS_count(0)0Then
response.redirect"viewrecord.asp"
EndIf
IfRS_count(0)=0Then
Session("noview")="NOONLINEEXAMINATIONSHAVEBEENGIVEN"
response.redirect"default.asp"
EndIf
Viewrecord.asp
Viewrecord.asp页使会员可以寓目一些他们的细节信息。查询以下：
sql_details="Select*subject,scorefromdetailswhereref_id="&id&""
SetRS_details=Application("Conn").Execute(sql_details)
了局是用一个复杂的表格格局来显现的。
请注重，我并未将会员能够举行一个主题的测验次数限定为一次。统一个主题测验能够举行恣意次。
</p>ASP在国内异常流行，因为国内大多使用的是盗版的Windows和盗版的SQLServer，而ASP＋COM＋SQLServer实际上也是一种不错的搭配，其性能也不输于PHP+MYSQL，特别是Windows系统和SQLServer都有图形界面，比APACHE和MYSQL易于维护，因此对于不重视知识产权的国家来说也是一种不错的选择。 从事这个行业，那么你可以学ASP语言，简单快速上手，熟练dreamweav排版，写asp代码，熟练photoshop处理图片，打好基础就行了 我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标. ASP主要是用好六个对象，其实最主要的是用好其中两个：response和request，就可以随心所欲地控制网页变换和响应用户动作了。 不能只是将它停留在纸上谈兵的程度上。 ASP（ActiveServerPages）是Microsfot公司1996年11月推出的WEB应用程序开发技术，它既不是一种程序语言，也不是一种开发工具，而是一种技术框架，不须使用微软的产品就能编写它的代码，能产生和执行动态、交互式、高效率的站占服务器的应用程序。 如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助: 还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。
页:
[1]