求救!!考试题目,请帮忙给下答案!!是ASP的，图片等都输入完整了
考试需要,题目如下。.2题已做,寻求三四题答案2、请在D盘建立的目录下制作一个Acsess数据库文件 <Grades.mdb>,表名称为”成绩表”，字段名称与数据类型如图1，然后再依照图2输入6条记录（20分）。
3、 请在D盘建立的目录下编写一个ASP程序读取表的所有记录并依照图3的格式将读取的内容显示出来，文件命名为【Exam1.asp】（25分）。
4、请在D盘建立的目录下编写一个ASP程序在此表新增加一条记录，其值分别为 ”A7” , ”张小华” , ”87” , ”90” , ”76”，文件命名为【Exam2.asp】（25分）。
5、请在D盘建立的目录下编写一个ASP程序读取表的所有记录，并按照语文由高到低的排列将数据显示出来，结果如图4，文件命名为【Exam3.asp】（25分）。
--------------------编程问答--------------------
。。。。。。。。。。。。。。。。。。太晚了，早点睡觉
--------------------编程问答--------------------
如果是asp.net还差不多，asp的一点兴趣都没
--------------------编程问答--------------------
<html><body>
<%
dim conn,strsql,rs
set conn=server.createobject("adodb.connection")
conn.open "Driver={Microsoft Access Driver(*.mdb)};DBQ=" & _
Server.Mappath=("/Grades.mdb")
strsql="select * from 成绩单"
set rs=server.createobject("adodb.recordset")
rs.open strsql,adconn,1,3
%>
<table>
<tr><td>学号</td><td>姓名</td><td>语文</td><td>数学</td><td>自然</td></tr>
<% while (not rs.eof) %> '如果有此记录的话
<tr>
<td><%=rs("学号").value%></td><td><%=rs("姓名").value%></td>
<td><%=rs("语文").value%></td><td><%=rs("数学").value%></td>
<td><%=rs("自然").value%></td>
</tr>
<%
rs.MoveNext
wend
%>
</table>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</body>
</html> --------------------编程问答-------------------- 核心代码给你，具体的你自己调吧。
3、Exam1.asp
<%
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &"d:/Grades.mdb"
conn.Open connstr
%>
<table border="1">
<tr><td align="center">学号</td><td align="center">姓名</td><td align="center">语文</td><td align="center">数学</td><td align="center">自然</td></tr>
<%
dim rs,sql
sql = "select * from 成绩表 order by 学号"
Set rs = conn.execute(sql)
do while not rs.eof
%>
<tr><td><%=rs("学号")%></td><td><%=rs("姓名")%></td><td><%=rs("语文")%></td><td><%=rs("数学")%></td><td><%=rs("自然")%></td>
<%
rs.movenext
loop
rs.close
set rs = nothing
%>
</table>
4、Exam2.asp
执行新增：
sql="insert into 成绩表(学号, 姓名, 语文, 数学, 自然) values('A7','张小华',87,90,76)"
conn.execute(sql)
5、Exam3.asp
同Exam1.asp，只需要把select改一下排序就可以了
sql = "select * from 成绩表 order by 语文 desc" --------------------编程问答-------------------- <html>
<body>
<%
dim conn,strsql
set conn=server.createobject("adodb.connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("\Grades.mdb")
strsql="insert into 成绩单(学号,姓名,语文,数学,自然) values " & _
"('A7','张小华',87,90,76)"
conn.execute(strsql)
conn.close
set conn=nothing
%>
</body>
</html> --------------------编程问答-------------------- 他们说帮人做作业就是在害人，哎 --------------------编程问答-------------------- 这些都是ASP时代的思想了，去ASP版问问吧。
补充：.NET技术 , ASP.NET
