四、 根据下面的查询页面文件，填充完成响应页面（20分）：
下列的响应页面功能是将表单提交的姓名和课程信息查询数据库grade.mdb的数据表student（共有name，subject和score三个字段，前两字段数据类型均为文本，最后字段数据类型为数字）是否有该记录，若有则在浏览器上显示成绩，如果表内不存在对应成绩，显示“对不起，未找到您需要的信息！”。表单的文本框名称为“subject“和“name”（对应subject和name字段值）。数据源与数据库同名。
<%
a1= ____________
a2= ______________
set Conn=Server.CreateObject(ADODB.connection")
Conn.open("testdata")
set RS1=Server.CreateObject("ADODB.RecordSet")
SQL="____________* from_____________ where_____________________________
Set RS1=Conn.Execute(SQL)
If _________________ then Response.write "<html><head><title></title></head>"
Response.write "<body bgcolor=#fff5ee>"
Response.write "<center>对不起，未能找到您需要的信息！</center>"
Response.write "</body></html>"
else
Response.write "<html><head><title></title></head>"
Response.write "<body bgcolor=#fff5ee>"
Response.write "<center>您的成绩："______________________ Response.write "</body></html>"
end if
___________________
___________________
%>
五、 对下图所示HTML表单，填充以下的Radd.asp响应页面程序(15分)
Radd.asp功能是将表单提交的信息作为一个记录插入数据库grade.mdb的数据表student（共有name，subject和score三个字段，前两字段数据类型均为文本，最后字段数据类型为数字）中。表单的文本框名称依次为“tx1”，“tx2”，“tx3”，键入的内容为新记录中对应字段的值。数据源与数据库同名。
<%
T1=________________
T2=_________________
T3=_____________________
set cn=server.CreateObject ("ADODB.Connection")
cn.Open ("DSN=grade")
SQL="_________into student( _____________ ) values_______________________
set rs=server.CreateObject ("ADODB.RecordSet")
set rs=cn.Execute (__________________)
set rs=nothing
set cn=nothing
Response.Write "已输入完毕！"
%>
<html>
<head><title>add1.asp</title></head>
<body>
</body>
</html>
參考答案:四
<%
a1= request("name")
a2= request("subject")
set Conn=Server.CreateObject(ADODB.connection")
Conn.open("testdata")
set RS1=Server.CreateObject("ADODB.RecordSet")
SQL="select* from student where name= request("name") and subject= request("subject")"
Set RS1=Conn.Execute(SQL)
If RS1.eof or err then Response.write "<html><head><title></title></head>"
Response.write "<body bgcolor=#fff5ee>"
Response.write "<center>对不起，未能找到您需要的信息！</center>"
Response.write "</body></html>"
else
Response.write "<html><head><title></title></head>"
Response.write "<body bgcolor=#fff5ee>"
Response.write "<center>您的成绩："<%=RS1("score")%> Response.write "</body></html>"
end if
set RS1=nothing
set Conn =nothing
%>
五
<%
T1=request("name")
T2= request("subject")
T3= request("score")
set cn=server.CreateObject ("ADODB.Connection")
cn.Open ("DSN=grade")
SQL="insert into student(name,subject,score) values('"&name&"', '"&subject&"', '"&score&"')
set rs=server.CreateObject ("ADODB.RecordSet")
set rs=cn.Execute (SQL)
set rs=nothing
set cn=nothing
Response.Write "已输入完毕！"
%>
<html>
<head><title>add1.asp</title></head>
<body>
</body>
</html>
