广东科学技术职业学院：《WEB开发技术（ASP）》第五章（5-6） ADO综合应用实例分析

WEB开发技术第五章 数据对象 56ADO综合应用实例分析 From:吴教育 Email wujiaoyu@21cn.com QQ:188128997 (广东学钱米职业学院

WEB开发技术 第五章 5.6 ADO综合应用实例分析 From：吴教育 Email： wujiaoyu@21cn.com Q Q: 188128997

课程引入与回顾 利用 Command对象来执行各种SQL指令 利用 ommand对象调用 access的查询 利用 Command对象调用 sql server的存储过程 (广东学钱米职业学院

课程引入与回顾 • 利用Command对象来执行各种SQL指令 • 利用Command对象调用access的查询 • 利用Command对象调用sql server的存储过程

目标 实现具有分页功能的留言簿 实现新闻自动发布系统 实现在线考试系统 (广东学钱米职业学院

目标 • 实现具有分页功能的留言簿 • 实现新闻自动发布系统 • 实现在线考试系统

具有分页功能的留言簿 在ASP中利用ADO来实现一个具有分面功能的留言簿,分 页显示如图所示: 小天鹅留言算- Microsoft Internet Explorer 文件()编辑(E)查看(收藏(工具(D帮助 ⊙后退·②·索收创,·回國6中回名但⊙ 地址http://localho就Aypy印 囝转到‖链接” 小天鹅留言簿 姓名:dd Email: dd 主题:dd dd 留言:dd n w Email:gfg@163.com We⊥cOme you are we come 留言: you are we come! 返回留言表单下一页最后一页页码:1/8 完毕 山画四::nant

具有分页功能的留言簿 • 在ASP中利用ADO来实现一个具有分面功能的留言簿，分 页显示如图所示：

数据库设计 回 Microsoft Access-[ GuestBook:表 睏文件①)编辑)视图α插入〔)工具①)窗口)帮助 影33回细·回 字段名称 数据类型 兑 n 「留言 时间 日期/时间 宇段属性 常规|查阅 字段大小 长整型 新值 递增 格式 有(无重复〕 字段名称最长可到64个字符〔包括空格〕。按F1键可查看 有关字段名称的帮助 设计视图。F6=切换窗格。F1=帮助。 (广东学钱米职业学院

数据库设计

留言页面显示效果 到小天鹅留言簿 Microsoft Internet Explorer 文件()编辑(E查看(收藏(A工具①帮助(H ⊙后分·搜索次收藏夹创回,國 也址D)htp:/ localhost./yan/ INPUT. HTM ]转到‖链接” 小天鹅留言簿 姓名 , Email 留言 匚提交留言 查着留言 清除重写 本地 Intranet (广东学钱米职业学院

留言页面显示效果

留盲页面代码( input. htm) stle>小天留言 td alIgn" CENTER'小天熟留言簿 sform Action=hand le. asp"Method="POST"> td姓名: Email:/td> std> td主题: td查看留言td td <center</div </body? (广东学钱米职业学院

留言页面代码(input.htm) 小天鹅留言簿 小 天 鹅 留 言 簿 姓名： Email: 主题： 留言： 查看留言

留盲处理页面( handle.asp) % Name Request( Name ") Email Request( Email Subject= Request("Subject) Memo= Request("Memo") If Name =Or Email =Or Subject="Or Memo="Then Response. Write"字段空白不接受!" Response. End不再处理以下的程序 End If Set conn= Server Create Object("ADODB Connection") DBPath=Server MapPath(lyb. mdb") conn Open"driver Microsoft Access Driver(. mdb)): dbq=& DBPath Set rs= Server CreateObject("ADODB. Recordset") rsOpen"GuestBook", conn, adOpenDynamic, adLockPessimistic rs AddNew rs(姓名")=Name rs(Email")=Email rs("主题")= Subject rs(留言")=Memo rs Update Response. Redirect"display. asp %> (广东学钱米职业学院

留言处理页面(handle.asp)

留盲分页显示页面 display asp) #include file="adovbs inc"-> 小天鹅留言簿rs Page Count Then Page =rs Page Count ShowonePa 返回留言表单上一页 End If If Page <>rs Page Count Then Response. Write"下一页 Response. Write"最后一页 End If %>311: / (广东学钱米职业学院

留言分页显示页面(display.asp) 小 天 鹅 留 言 簿 rs.PageCount Then Page = rs.PageCount ShowOnePage rs, Page %> 返回留言表单 1 Then Response.Write "第一页 " Response.Write "上一页 " End If If Page <> rs.PageCount Then Response.Write "下一页 " Response.Write "最后一页 " End If %>页码：/

留言分页显示页面( gbookutl, asp) <% Sub ShowOnePage( rs, Page) rs. AbsolutePage= Page For iPage 1 To rs Page Size Rs ToGbook rs rs MoveNext If rs eoF Then Exit for Next End sub (广东学钱米职业学院

留言分页显示页面(gbookutl.asp)