Conn.Open“exam"
然后执行 SQL 命令，即对数据库进行操作，这里要使用Execute 命令
set rs=server.createobject(“adodb.recordset")
sql=“select * from rest"
set rs=conn.execute(sql)
2.具体实现
主页文件 index.asp 的源代码如下：
〈html〉
〈head〉
〈meta http-equiv=”Content-Type" content=”text/html;charset=gb2312"〉
〈meta name=“GENERATOR" content=”Microsoft FrontPage 4.0"〉
〈meta name=“Progld" content=”Fronpage. Editor.Document"〉
〈title〉用户口令检查〈/title〉
〈/head〉
〈body bgcolor=”#008080”〉
〈form method=”post" action=”login.asp"〉
〈p align=”center"〉〈font size=”6"face=”黑体"〉网上考试系统v4.0〈/font〉〈/p>
〈p align=”center"〉〈font color=“#0000FF"〉作者：尹春勇 孙如霞 〈/font>〈/p〉
〈p align=”center"〉2002.4.24〈/p〉
〈p align=”center"〉用户:〈input type=”text" name”name"size=”20"〉〈/p〉
〈p align=”center”〉口令:〈input type=”password”name=”passwd”size=“20"〉〈/p>
〈p ailgn=”center"〉〈input type=”submit" value=“提交"name=“B1"〉
〈input type=“reset" value=”全部重写" name=”B2"〉〈/p〉
〈/form〉
〈/body〉
〈/html〉
信息递交后验证源代码login.asp如下：
〈％
name=request.form(“name")
passwd=request.form(“passwd")
set rs=server.createobject(“adodb.recordset”)
set conn=server.createobject(“adodb.connection")
connstr=“excise"
conn.open connstr
sql=“select * from user where user=`“&name&" ’"
set rs=conn.execute(sql)
if not(rs.eof) then
if rs(“score")〈〉O then
response.write rs(“user")&“的成绩是"&rs(“score")
else
session(“pass")=1
session(“user")=name
response.redirect “test.asp"
end if
else
response.write“对不起，用户和口令不正确!"
end if
％〉
信息通过后抽取试题源代码test.asp 如下：
〈％@ language=vbscript％〉
〈％
if session(“pass")〈〉1 then response.redirect”login.asp"
set rs=server.createobject(“adodb.recordset")
set conn=server.createobject(“adodb.connection")
connstr=“excise"
conn.open connstr
sql=“select * from test"
set rs=conn.execute(sql)
％〉
〈html〉
〈body bgcolor=“#COCOCO"〉
百度搜索“70edu”或“70教育网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，70教育网，提供经典计算机如何设计与实现当前网上考试系统(2)在线全文阅读。
