实验四_Web数据库的应用

课程名称：WEB编程实验名称：实验四Web数据库的应用班级：学生姓名：学号：指导教师评定：签名：一、实验要求：1.了解ADO技术2.掌握Connection对象连接数据库的方法3.掌握RecordSet对象读取并输出数据的方法4.掌握使用SQL语句维护数据库的方法二、实验内容1.使用Access建立数据库、定义表结构、输入数据使用ODBC数据源管理器创建数据源名2.分别使用Connection对象的3种连接字符串方式连接“northwind.mdb”数据库的“产品表”，具体连接字符串如下：dns=dbProvider=Microsoft.Jet.OLEDB.4.0;DataSource=&Server.MapPath(northwind.mdb)driver={MicrosoftAccessDriver(*.mdb)};dbq=&Server.MapPath(northwind.mdb)3.使用RecordSet对象读取表中的数据，并用表格方式显示出来4.在上一题的基础上，改为用分页表格的方式显示数据5.统计表中所有产品的总价、统计表中库存量大于100的产品数量6.添加一种新产品，数据分别是：特仑苏、30、1、每箱12盒、￥56、10、0、0、false修改产品“酱油”的供应商为“康富食品”，单价为￥26、库存量为50删除表中库存量、订购量、再订购量都为0的所有产品三、实验步骤1.配置环境：（1）iis默认网站目录的设置以及Dreamweaver站点的设置（2）在Dreamweaver的代码视图下使用ASP对象和脚本语言编程（3）使用Dreamweaver的预览功能运行ASP程序2.设计介绍：（1）display.asp：显示产品表的内容，具有分页功能。（2）tongji.asp完成统计表中所有产品的总价和表中库存量大于100的产品数量的任务（3）deal.asp实现题目要求的添加、修改和删除的任务四、实验源代码源代码：1.display.asp%@LANGUAGE=VBSCRIPTCODEPAGE=65001%!DOCTYPEhtmlPUBLIC-//W3C//DTDXHTML1.0Transitional//EN==Content-Typecontent=text/html;charset=utf-8/title分页显示数据库/title/headbody%'建立连接和记录集Setconn=Server.CreateObject(ADODB.Connection)conn.ConnectionString=Provider=Microsoft.Jet.OLEDB.4.0;DataSource=&Server.MapPath(northwind.mdb)conn.opensetrs=Server.CreateObject(ADODB.Recordset)sqlstr=select*from产品rs.Opensqlstr,conn,1,1'设置每页记录数rs.pagesize=10'使用超级链接翻页p=cint(request(p))ifp1thenp=1endififprs.pagecountthenp=rs.pagecountendifrs.absolutepage=p'显示表头response.writetableborder=1trfori=0tors.fields.count-1response.writeth&rs(i).name&/thnextresponse.write/tr'显示数据j=1whilej=rs.pagesizeandnotrs.eofresponse.writetrfori=0tors.fields.count-1response.writetd&rs(i)&/tdnextresponse.write/trrs.movenextj=j+1wendresponse.write/table'设置每页的超级链接response.writebr第fori=1tors.pagecountresponse.writeahref=display.asp?p=&i&&[&i&]&/a&nextresponse.write页brbr'设置翻页的超级链接response.writeahref=display.asp?p=1首页/a&response.writeahref=display.asp?p=&p-1&&上一页&/a&response.writeahref=display.asp?p=&p+1&&下一页&/a&response.writeahref=display.asp?p=&rs.pagecount&&尾页&/a&'关闭连接和记录集rs.closesetrs=nothingconn.closesetconn=nothing%/body/html2.sum.asp%@Language=VBScript%htmlheadtitle统计/title/headbody%'建立连接Setconn=Server.CreateObject(ADODB.Connection)conn.openProvider=Microsoft.Jet.OLEDB.4.0;DataSource=&Server.MapPath(northwind.mdb)setrs=Server.CreateObject(ADODB.Recordset)sqlstr=select*from产品rs.Opensqlstr,conn,1,1dimsum,a,b,dsum=0d=0rs.movefirstwhilenotrs.eofa=csng(rs(5).value)b=csng(rs(6).value)ifb100thend=d+1endifsum=sum+a*brs.movenextwend%统计表中所有产品的总价：%response.writesum&br%统计表中库存量大于100的产品数量:%response.writedrs.closesetrs=nothingconn.closesetconn=nothing%/body/head/html3.deal.asp%@LANGUAGE=VBSCRIPTCODEPAGE=65001%!DOCTYPEhtmlPUBLIC-//W3C//DTDXHTML1.0Transitional//EN==Content-Typecontent=text/html;charset=utf-8/title处理信息/title/headbody%'建立连接和记录集Setconn=Server.CreateObject(ADODB.Connection)conn.ConnectionString=Provider=Microsoft.Jet.OLEDB.4.0;DataSource=&Server.MapPath(northwind.mdb)conn.openConnectionString'添加一种新产品，数据分别是：特仑苏、20、1、每箱15盒、￥76、10、0、0、false'修改产品“酱油”的供应商为“康富食品”，单价为￥35、库存量为64'删除表中库存量、订购量、再订购量都为0的所有产品'添加strsql=insertinto供应商(供应商ID,公司名称,联系人姓名,联系人职务,地址,城市,地区,邮政编码,国家,电话,传真,主页)values(14,'伊利牛奶','严总','总裁','丰和南大道696号','南昌','红谷滩新区','330063','中国','[phone]','','')conn.executestrsqlstrsql=insertinto产品(产品ID,产品名称,供应商ID,类别ID,单位数量,单价,库存量,订购量,再订购量,中止)values(78,'特仑苏',30,1,'每箱12盒',56,10,0,0,No)conn.executestrsql'修改strsql=update产品set供应商ID=2,单价='￥26',库存量=50where产品名称='酱油'conn.executestrsql'删除strsql=deletefrom订单明细where产品IDin(select产品IDfrom产品where库存量=0and订购量=0and再订购量=0)conn.executestrsqlstrsql=deletefrom产品where库存量=0and订购量=0and再订购量=0conn.executestrsql'关闭连接和记录集conn.closesetconn=nothing%p操作成功！/body/html五、实验结果1.显示表中的数据2.统计表中所有产品的总价和表中库存量大于100的产品数量，页面显示以下字符串：所有产品的总价为：3.实现题目要求的添加、修改和删除的任务，页面显示以下字符串：操作成功！数据库中变化如下：首先是供应商表中增加了个供应商：其次是产品表中增加了个产品：另外是产品表中“酱油”的变化最后是产品中5号产品麻油、17号产品猪肉、29号产品鸭肉和53号产品盐水鸭被删除。五、实验心得