云上运维及应用实践教程（第2版） 教案 21 实验七 搜索功能制作

教案序号：.课题实验七搜索功能制作授课形式□理论□理实一体√实训(验)□其它：学时安排本单元总学时：2（其中：理论学时、实践2学时）教学内容及目标掌握新闻搜索功能前台界面的设计后台ASP代码的编写方法。教学重点及难点重点、难点：搜索功能ASP代码编写方法授课对象学情分析学生接触网站建设的相关内容时间不长，虽然有网页制作的基础，但基础较差，需要在讲授过程中，教师进行巡回指导或同学间小组讨论。教学媒介机房授课地点5405教学过程及设计：实验七搜索功能制作一、实验目的

通过本实验掌握新闻搜索功能前台界面的设计与后台ASP代码的编写方法。二、实验内容

1、新闻搜索功能实现需要涉及到哪些页面？2、要求新建以data命名的数据库?数据表的名称用xwb表示，xwb表中各字段分别为：id,title(标题),author(作者),dep(部门),cat(类别)，content(内容),addtime(添加的时间)。3、新闻搜索功能实现的ASP代码？三、实验指导1、完成conn..asp的页面：<%setconn=server.CreateObject("adodb.connection")conn.open"driver=microsoftaccessdriver(*.mdb);dbq="&server.MapPath("data/wzjs.mdb")%>2、完成新闻功能实现的ASP代码。<% gjc=request.form("gjc") ifgjc<>""then session("gjc")=gjc elseifrequest.form("gjc")=""then session("gjc")=gjc endif %><% setrs=server.CreateObject("adodb.recordset") ifrequest("page")<>""then page=clng(request("page")) endif ifpage<1then page=1 endif pagesize=10 b="selectcount(*)ascfromnewswherexwbtlike'%"&session("gjc")&"%'" rs.openb,conn,1,3 d=rs("c") pagecount=cint(d/10+0.5) rs.close %> <% ifpage=1then setrs=server.CreateObject("adodb.recordset") a="selecttop10*fromnewswherexwbtlike'%"&session("gjc")&"%'orderbyiddesc" else a="selecttop10*fromnewsandwhereidnotin(selecttop"&cstr(pagesize*(1))&"idfromnewswherexwbtlike'%"&session("gjc")&"%'orderbyiddesc)andxwbtlike'%"&session("gjc")&"%'orderbyiddesc" endif rs.opena,conn ifrs.eofandrs.bofthen %>三、小结本次实验主要是要求学生掌握新闻搜索功能制作