《ASP网络程序设计》课程教学资源（试卷习题）课后习题及参考答案6

课后习题及参考答案 假设我们有一个Access数据库文件,里面有一个“出货单”表 内含12条记录，如图11-16所示 ( 请由此表算出各个客户的应收帐款并依照图11-17所示的格式显示出 来(注：应收帐款=定价×数量×折扣×1.05，其中1.05为包 含5%的发票税：另外，你可以使用VBScript函数Round(Number),将数字Sumber 四舍五入)。 6) 请编写一个ASP程序读取书名以“快快乐乐学”开头的记录并显示出 来，如图11-l8所示。 (c) 请由此表算出各个客户的应收帐款，并依照应收帐款由高至低筛选出前 5名显示出来(注：应收帐款=定价×数量×折扣×1.05， 其中l.05为包含5%的发票税：另外，你可以使用VBScript函数Round(Number), 将数字uber四舍五入)，如图11-19所示。 参考答案 一、操作题 a. 出货锋rL。一9T专auad定价数量折扣1.0时5应收帐款 Dim strSQl Dim objRS Set objRS=GetSQLRecordset(strSQL,"“order.mdb"”,"出货单") %> 书名书号应收帐款 客户 (% Do While Not objRS.EOF Response.Write""”&objRS("书名")& "”" Response.Write"”&objRS(“书号")&"“" Response.Write”“”&objRS("应收帐款"）& "" Response.Write"”&objRS("客户")）&

课后习题及参考答案 假设我们有一个 Access 数据库文件 ，里面有一个“出货单”表， 内含 12 条记录，如图 11-16 所示。 (a) 请由此表算出各个客户的应收帐款并依照图 11-17 所示的格式显示出 来 (注：应收帐款 = 定价×数量×折扣×1.05，其中 1.05 为包 含 5%的发票税；另外，你可以使用 VBScript 函数 Round(Number)，将数字 Number 四舍五入)。 (b) 请编写一个 ASP 程序读取书名以“快快乐乐学”开头的记录并显示出 来，如图 11-18 所示。 (c) 请由此表算出各个客户的应收帐款，并依照应收帐款由高至低筛选出前 5 名显示出来 (注：应收帐款 = 定价 × 数量 × 折扣 × 1.05， 其中 1.05 为包含 5% 的发票税；另外，你可以使用 VBScript 函数 Round(Number)， 将数字 Number 四舍五入)，如图 11-19 所示。 参考答案 一、操作题 a. 书名 书号 应收帐款 客户 "" & objRS(""书名"") & """" Response.Write """" & objRS(""书号"") & """" Response.Write """" & objRS(""应收帐款"") & """" Response.Write """" & objRS(""客户"") &

ob iRS.MoveNext Loop ’关闭数据库连接并释放对象 ob jRS.Close Set obiRs Nothing ob iConn.Close Set objConn=Nothing b. 〈！-#include file="ADOFunctions.asp"”-> "& objRS.Fields (1).Name &*" Next " For I=0 To objRS.Fields.Count-1 DataData """"&objRS.Fields(I).Value ""” Next

objRS.MoveNext Loop '关闭数据库连接并释放对象 objRS.Close Set objRS = Nothing objConn.Close Set objConn = Nothing %> b. "" & objRS.Fields(I).Name & """" Next %> "" For I = 0 To objRS.Fields.Count - 1 Data = Data & """" & objRS.Fields(I).Value & """" Next

Response.Write Data &/TR>* objRS.MoveNext Loop ”关闭数据库连接并释放对象 objRS.Close Set objRS Nothing n.Close Set objConn=Nothing c. g Dim strSQL strSQL=”“SELECT Top5*,Round(定价*数量*折扣*L.05)AS应收帐 款FRON出货单ORDER BY Round(定价*数量*折扣*L.O5)DESC” Dim obiRS Set ob jRS=GetSQLRecordset(strSQL,"“order.mdb","出货单") % 书名书号应收帐款客户 "”&objRS("书名")& ”"" Response.Write""”&objRS("书号")&"" Response.rite"”&objRS("应收帐款")）& " Response.Write""”&objRS("“客户")&""” objRS.MoveNext

Response.Write Data & """" objRS.MoveNext Loop '关闭数据库连接并释放对象 objRS.Close Set objRS = Nothing objConn.Close Set objConn = Nothing %> c. 书名 书号 应收帐款 客户 "" & objRS(""书名"") & """" Response.Write """" & objRS(""书号"") & """" Response.Write """" & objRS(""应收帐款"") & """" Response.Write """" & objRS(""客户"") & """" objRS.MoveNext

Loop '关闭数据库连接并释放对象 ob jRS.Close Set objRS =Nothing ob jConn.Close

Loop '关闭数据库连接并释放对象 objRS.Close Set objRS = Nothing objConn.Close Set objConn = Nothing %>