ASP 授课教案20

. 网页设计与制作 课程授课教案课次20授课方式（请打）理论课 讨论课 实验课 习题课 其他课时安排2授课题目（教学章、节或主题）： 第五章：数据库编程基础 5.3 ASP使用SQL语句操作数据库初步教学目的、要求（分掌握、熟悉、了解三个层次）：1. 熟悉SQL语句和数据库在ASP中的应用2. 了解记录以表格形式输出的代码教学重点及难点：SQL语句和数据库在ASP中应用案例的制作教 学 基 本 内 容方法及手段5.3.1 执行 SQL 查询语句 实例：测试 SQL 查询语句（5-01.asp） %If Request(SQL) ThenstrSQL = Request(SQL)set conn = Server.CreateObject(ADODB.Connection)conn.Open(driver=Microsoft Access Driver (*.mdb);dbq= &_Server.MapPath(person.mdb)set rs = conn.Execute(strSQL)rstotab(rs)conn.close()End If% %Function rstotab(rs)Response.write ()Response.write () Part I输出表头名称For i=0 to rs.Fields.Count-1Response.Write( & rs(i).Name & )NextResponse.write () Part II输出数据表的内容rs.MoveFirst() 将目前的数据记录移到第一项While Not rs.EOF 判断是否过了最后一项Row = For i=0 to rs.Fields.Count-1Row = Row & & rs(i) & Next课本实例讲解，多媒体讲解，先演示本实例的操作过程，与person.mdb数据库中内容进行对比，分析本实例具备的功能。教 学 基 本 内 容方法及手段Response.Write(Row & )rs.MoveNext() 移到下一项WendEnd Function% 指令： INPUT Type=Text Name=SQL Size =60 Value= 思考：1.运行5-01.asp页面，在文本框中输入“ select * from grade where 性别=女 ”，然后点击“执行”按钮，浏览器输出结果是什么？2.如果输入的是错误的SQL语句，比如输入“se”，然后点击“执行”按钮，浏览器的输出结果是什么？3. 如何解决第2步的问题？如何更改代码？ 解答：1. 输出结果见下图： 2. 浏览器提示ASP代码错误。 3. 用户输入错误的sql语句，导致程序执行出错，所以判断执行sql语句后是否有错误产生，如果有，则提示用户输入有误；否则，显示正确结果。可以通过以下两个步骤实现： 在“ If Request(SQL) Then ”语句之前添加如下代码：On Error Resume Next 发生错误后，继续执行下一句 然后再用以下代码代替“rstotab(rs)”语句 if Err.Number 0 then Response.Write(您输入了错误的SQL语句,请重新输入) conn.close() else rstotab(rs) conn.close() end if一步步提示，举例讲解，多媒体讲解。教 学 基 本 内 容方法及手段 如何实现实例5-01.asp？步骤如何？解答：其步骤如下： （1）新建一个动态页面，以文件名为5-01.asp保存； （2）在页面中插入一个表单，在表单内输入“指令： ”，然后插入一个文本框和一个提交按钮； （3）选中表单，在其属性面板的“动作”一栏内输入：5-01.asp ； （4）选中文本框，为其命名为：SQL ； （5）切换到代码视图，在代码的最前面添加如下ASP代码： %On Error Resume Next 发生错误后，继续执行下一句If Request(SQL) ThenstrSQL = Request(SQL)set conn = Server.CreateObject(ADODB.Connection)conn.Open(driver=Microsoft Access Driver (*.mdb);dbq= &_Server.MapPath(person.mdb)set rs = conn.Execute(strSQL)if Err.Number 0 then Response.Write(您输入了错误的SQL语句,请重新输入) conn.close() else rstotab(rs) conn.close() end ifconn.close()End If% %Function rstotab(rs)Response.write ()Response.write () Part I输出表头名称For i=0 to rs.Fields.Count-1Response.Write( & rs(i).Name & )NextResponse.write () Part II输出数据表的内容rs.MoveFirst() 将目前的数据记录移到第一项While Not rs.EOF 判断是否过了最后一项Row = For i=0 to rs.Fields.Count-1Row = Row & & rs(i) & NextResponse.Write(Row & )rs.MoveNext() 移到下一项WendEnd Function% （6）准备一个person.mdb的数