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"〉?
百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说计算机如何设计与实现当前网上考试系统(2)在线全文阅读。
