求救!!考试题目,请帮忙给下答案!!是ASP的，图片等都输入完整了

muyizi 2008-07-12 11:35:53

考试需要,题目如下。.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分）。

...全文

104 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

mengjun5200 2008-07-13

打赏
举报

。。。。。。。。。。。。。。。。。。太晚了，早点睡觉

cat_hsfz 2008-07-13

打赏
举报

这些都是ASP时代的思想了，去ASP版问问吧。

octwind 2008-07-13

打赏
举报

sheyanfen 2008-07-13

打赏
举报

核心代码给你，具体的你自己调吧。

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"

octwind 2008-07-13

打赏
举报

<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>