ASP 授课教案20(6页).doc

资源ID：36716736 资源大小：289KB 全文页数：6页
资源格式： DOC 下载积分：15金币

快捷下载

会员登录下载

微信登录下载

三方登录下载：

微信扫一扫登录

下载资源需要15金币

邮箱/手机：
温馨提示：	快捷下载时，用户名和密码都是您填写的邮箱或者手机号，方便查询和重复下载（系统自动生成）。如填写123，账号就是123，密码也是123。
支付方式：
验证码：	换一换

账号：
密码：
验证码：	换一换
当日自动登录忘记密码？

友情提示

1、下载资料失败解决办法

2、PDF文件下载后，可能会被浏览器默认打开，此种情况可以点击浏览器菜单，保存网页到桌面，就可以正常下载了。

3、本站不支持迅雷下载，请使用电脑自带的IE浏览器，或者360浏览器、谷歌浏览器下载即可。

4、本站资源下载后的文档和图纸-无水印,预览文档经过压缩，下载后原文更清晰。

5、试题试卷类文档，如果标题没有明确说明有答案则都视为没有答案，请知晓。

网站客服

侵权投诉

ASP 授课教案20(6页).doc

-ASP 授课教案20-第 5 页网页设计与制作课程授课教案课次20授课方式（请打）理论课讨论课实验课习题课其他课时安排2授课题目（教学章、节或主题）：第五章：数据库编程基础 5.3 ASP使用SQL语句操作数据库初步教学目的、要求（分掌握、熟悉、了解三个层次）：1. 熟悉SQL语句和数据库在ASP中的应用2. 了解记录以表格形式输出的代码教学重点及难点：SQL语句和数据库在ASP中应用案例的制作教学基本内容方法及手段5.3.1 执行 SQL 查询语句实例：测试 SQL 查询语句（5-01.asp） <HTML> <BODY><%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 ("<TABLE BORDER=1>")Response.write ("<TR>")' Part I输出"表头名称"For i=0 to rs.Fields.Count-1Response.Write("<TD><B>" & rs(i).Name & "</B></FONT></TD>")NextResponse.write ("</TR>")' Part II输出数据表的"内容"rs.MoveFirst() ' 将目前的数据记录移到第一项While Not rs.EOF ' 判断是否过了最后一项Row = "<TR ALIGN=MIDDLE>"For i=0 to rs.Fields.Count-1Row = Row & "<TD>" & rs(i) & "</TD>"Next课本实例讲解，多媒体讲解，先演示本实例的操作过程，与person.mdb数据库中内容进行对比，分析本实例具备的功能。教学基本内容方法及手段Response.Write(Row & "</TR>")rs.MoveNext() ' 移到下一项WendEnd Function%> <FORM Action="5-01.asp" Method=POST>指令： <INPUT Type="Text" Name="SQL" Size ="60" Value="<%=Request("SQL")%>"> <INPUT Type=Submit Value=" 执行"> </FORM> </BODY> </HTML>思考：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 ("<TABLE BORDER=1>")Response.write ("<TR>")' Part I输出"表头名称"For i=0 to rs.Fields.Count-1Response.Write("<TD><B>" & rs(i).Name & "</B></FONT></TD>")NextResponse.write ("</TR>")' Part II输出数据表的"内容"rs.MoveFirst() ' 将目前的数据记录移到第一项While Not rs.EOF ' 判断是否过了最后一项Row = "<TR ALIGN=MIDDLE>"For i=0 to rs.Fields.Count-1Row = Row & "<TD>" & rs(i) & "</TD>"NextResponse.Write(Row & "</TR>")rs.MoveNext() ' 移到下一项WendEnd Function%> （6）准备一个person.mdb的数据库，和5-01.asp页面一起放入同个目录中。一步步提示，与学生一起，完成该实例，多媒体讲解。上机作业： 1. 先运行该实例，了解其操作流程和功能。并根据课件上的思考步骤，更改和运行程序。2. 按照制作步骤，制作并运行测试SQL查询语句实例。

注意事项

本文（ASP 授课教案20(6页).doc）为本站会员（1595****071）主动上传，淘文阁 - 分享文档赚钱的网站仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对上载内容本身不做任何修改或编辑。若此文所含内容侵犯了您的版权或隐私，请立即通知淘文阁 - 分享文档赚钱的网站（点击联系客服），我们立即给予删除！

温馨提示：如果因为网速或其他原因下载失败请重新下载，重复下载不扣分。