山西机电职业技术学院教案.doc

《山西机电职业技术学院教案.doc》由会员分享，可在线阅读，更多相关《山西机电职业技术学院教案.doc（8页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、山西机电职业技术学院教案首页 序号章 节任务27：讨论区目的及要求1掌握讨论区的结构设计。2掌握分页浏览数据的技巧，sql语法的top来限制最多传回笔数及定期清除留言方法。重点与难点重点：sql语法的top来限制最多传回笔数及定期清除留言方法。难点：访客留言簿需要的各种模块的设计思路。 教学方法1.项目教学法 2.任务驱动法3.总结归纳法4.合作学习法教学用具多媒体计算机授课课型理论+实践授课地点机房时间分配100min课后记任务27讨论区任务描述： 讨论区(NewsGroup)基本上，讨论区和访客留言簿是很类似的服务，比较不同的是讨论区允许浏览者针对特定主题另辟版面进行讨论。组成网页的文件清

2、单现在，我们来制作一个讨论区，这个讨论区的所有数据存放在SampleCh12News文件夹中，它总共有如下表所示的文件。见教材。网页的执行流程您必须具备的背景知识 首先，您必须悉HTML或其他网页编辑软件，因为我们将用到许多表格及超级链接。 其次，您必须了解表格的制作方法信如何读取表单文件，包括隐藏字段的应用。 其三，您必须懂得分页浏览数据库的技巧。 最后，您当然得熟悉SQL语法及访问数据库的方法。完整程序代码列表Newsgroup.asp % ShowPage子程序负责设置表格颜色及插图，然后显示PageNo参数所指定的页次的所有记录 Sub ShowPage(objRS, PageNo)

3、设置表格背景颜色及插图文件，同时加上Randomize使每次产生不同顺序的图形文件 ReDim Fig(objRS.PageSize - 1 ), BG(objRS.PageSize - 1 ) Randomize For I = 0 to objRS.PageSize - 1 Fig(I) = INT(RND * 9) + 1 & .gif Next BG(0) = #D9D9FF BG(1) = #FFCAEE BG(2) = #FFFFCC BG(3) = #B9EEB9 BG(4) = #B9E9FF 显示留言并加以格式化 Response.Write objRS.AbsolutePa

4、ge = PageNo For I = 1 To objRS.PageSize Response.Write Response.Write 显示留言的作者、主题及时间，至于内容则设计为连接至ShowNews.asp的超链接 Response.Write 作者： & objRS(作者) & 主题： & objRS(主题) & 时间： & objRS(时间) & _ 阅读留言与加入讨论 objRS.MoveNext If objRS.EOF Then Exit For Next Response.Write End Sub% % 读取数据表的所有记录并依照时间递减顺序排列 strSQL = SEL

5、ECT * FROM 留言板 ORDER BY 时间 DESC Set objRS = GetSQLRecordset(strSQL, Books.mdb, 留言板) 设置分页大小，您可视实际情况设置其他数值 objRS.PageSize = 5 显示页次超链接 PageNo = Request(PageNo) 读取浏览者所点取的页次超链接 Response.Write For I = 1 To objRS.PageCount If I = CInt(PageNo) Then 若到浏览者所点取的页次超链接，便不再当成超链接 Response.Write I &  |  El

6、se Response.Write & _ I & &  |  超链接到NewsGroup.asp并将页次当成参数传送 End If Next Response.Write % % 根据页次调用ShowPage子程序来显示留言，若没有指定页次，就显示第1页 If PageNo Then ShowPage objRS, PageNo Else ShowPage objRS, 1 End If 关闭数据库连接并释放对象 objRS.Close Set objRS = Nothing objConn.Close Set objConn = Nothing % 请在此输入新的留言

7、作者 主题 内容 Post.asp 留言主题 主题：   作者：  时间： 内容： % strSQL2 = SELECT * FROM 回复留言 WHERE 回复主题= & objRS(主题) & Set objRS2 = objConn.Execute(strSQL2) If Not objRS2.EOF Then Response.Write & _ 回复留言 End If Do While Not objRS2.EOF Response.Write 主题： & objRS2(主题) & _   作者： & objRS2(作者) &   时间： & objRS2(时间) & Response.Write 内容： & objRS2(内容) objRS2.MoveNext Loop % INPUT TYPE=HIDDEN NAME=ReplyTitle VALUE= 请在此输入您的回复 作者 主题 内容 Postreply.asp