试题四（15分）
阅读下列说明，回答问题1至问题2，将解答填入答题纸的对应栏内。
【说明】
访问某聊天系统必须先注册，然后登录才可进行聊天图4-1为注册页面，注册时需要输入用户名和密码以及性别信息，数据库将记录这些信息。
图4-1
表4-1为利用Microsoft Access创建的数据库msg，数据库记录用户名、密码、性别、登录时间、IP地址及状态信息。
表4-1 数据库创建的字段
【问题1】（6分）
以下是图4-1 所示页面的部分代码，请仔细阅读该段代码，将(1)-(6)的空缺代码补齐。
<%
Set MM_editCmd=Server.CreateObject(“ADODB.Command”)
MMxad_editCmd.ActiveConnection=MM_connbbs_STRING
MM_editCmd.CommandText=”INSERT INTO msg([user],upass,sex)VALUES(?,?,?)”
MM_editCmd.PrePared=true
MM_editCmd.Parameters.AppendMM_editCmd.CreateParameter(“param1”,202,1,225,
Request.Form(“user”))’adVarWChar
MM_editCmd.Parameters.AppendMM_editCmd.CreateParameter(“param2”,202,1,225,
Request.Form(“（ 1 ）”))’adVarWChar
MM_editCmd.Parameters.AppendMM_editCmd.CreateParameter(“param3”,202,1,225,
Request.Form(“sex”))’adVarWChar
MM_editCmd.Execute
MMxad_editCmd.ActiveConnection.Close
%>
女 （1）～（6）备选答案：
A.reset B.male C.post
D.text E.user F.upass
【问题2】（9分）
用户注册成功后的登录页面如图4-2所示。系统检查登录信息与数据库存储信息是否一致，如果一致则转到登录成功页面succ.asp。如果不一致则显示“警告：您输入的信息有误！”下面是信息显示页面的部分代码，请将下面代码补充完整。
图4-2
<%
Set conn=server.createobject(“adodb.connection”)
Conn.Open”Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:wwwrootbs.mdb”
If request.form(“user”)<>””then
U=request.form(“user”)
P=request.form(“upass”)
S=request.form(“sex”)
Set rs=server.createobject(“adodb.recordset”)
rs.open “select” * from msg where（7）=”&u&”and（8）=”&p&”and
Sex=”&s&”””,conn,1,3
If.rs.（9）and rs.bof then
Response.（10）(“警告：您输入的信息有误！”)
Else
rs(“t”)=（11）()
rs(“（12）”)=request.ServerVariables(“remote_host”)
rs(“zt”)=1
rs.update
session(“user”)=u
session(“（13）”)=s
response.（14）”suss.asp”
end if
rs.close()
set rs=nothing
end if
%>
试题四（15分）
阅读下列说明，回答问题1至问题2，将解答填入答题纸的对应栏内。
【说明】
访问某聊天系统必须先注册，然后登录才可进行聊天图4-1为注册页面，注册时需要输入用户名和密码以及性别信息，数据库将记录这些信息。
图4-1
表4-1为利用Microsoft Access创建的数据库msg，数据库记录用户名、密码、性别、登录时间、IP地址及状态信息。
表4-1 数据库创建的字段
【问题1】（6分）
以下是图4-1 所示页面的部分代码，请仔细阅读该段代码，将(1)-(6)的空缺代码补齐。
<%
Set MM_editCmd=Server.CreateObject(“ADODB.Command”)
MMxad_editCmd.ActiveConnection=MM_connbbs_STRING
MM_editCmd.CommandText=”INSERT INTO msg([user],upass,sex)VALUES(?,?,?)”
MM_editCmd.PrePared=true
MM_editCmd.Parameters.AppendMM_editCmd.CreateParameter(“param1”,202,1,225,
Request.Form(“user”))’adVarWChar
MM_editCmd.Parameters.AppendMM_editCmd.CreateParameter(“param2”,202,1,225,
Request.Form(“（ 1 ）”))’adVarWChar
MM_editCmd.Parameters.AppendMM_editCmd.CreateParameter(“param3”,202,1,225,
Request.Form(“sex”))’adVarWChar
MM_editCmd.Execute
MMxad_editCmd.ActiveConnection.Close
%>
A.reset B.male C.post
D.text E.user F.upass
【问题2】（9分）
用户注册成功后的登录页面如图4-2所示。系统检查登录信息与数据库存储信息是否一致，如果一致则转到登录成功页面succ.asp。如果不一致则显示“警告：您输入的信息有误！”下面是信息显示页面的部分代码，请将下面代码补充完整。
图4-2
<%
Set conn=server.createobject(“adodb.connection”)
Conn.Open”Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:wwwrootbs.mdb”
If request.form(“user”)<>””then
U=request.form(“user”)
P=request.form(“upass”)
S=request.form(“sex”)
Set rs=server.createobject(“adodb.recordset”)
rs.open “select” * from msg where（7）=”&u&”and（8）=”&p&”and
Sex=”&s&”””,conn,1,3
If.rs.（9）and rs.bof then
Response.（10）(“警告：您输入的信息有误！”)
Else
rs(“t”)=（11）()
rs(“（12）”)=request.ServerVariables(“remote_host”)
rs(“zt”)=1
rs.update
session(“user”)=u
session(“（13）”)=s
response.（14）”suss.asp”
end if
rs.close()
set rs=nothing
end if
%>