云上运维及应用实践教程（第2版） 教案 20 项目六 任务3 制作搜索结果页面

教案序号：.课题项目六任务3制作搜索结果页面授课形式√理论□理实一体□实训(验)□其它：学时安排本单元总学时：2（其中：理论2学时、实践学时）教学内容及目标掌握使用简单搜索的方法及相关功能代码，模糊搜索的相关功能代码。教学重点及难点重点、难点：模糊搜索方法与代码。授课对象学情分析学生接触网站建设的相关内容时间不长，虽然有网页制作的基础，但基础较差，需要在讲授过程中，教师进行巡回指导或同学间小组讨论。教学媒介机房授课地点5405教学过程及设计：一、课前回顾：搜索功能的界面设计？二、新课内容：项目六任务3制作搜索结果页面任务页面搜索功能设计一、任务引出信息搜索是指从浩瀚的网络资源中迅速找到自己需要的信息，当前主流的搜索方式是搜索引擎技术所谓搜索引擎是指自动从网络上搜集信息，经过一定整理后，提供给用户进行查询的系统主要的有：百度，Google，Yahoo等商业站点二、实践操作<%@CODEPAGE="936"%>

<%

dimconn

dimDBOath

dimrs

dimsql

Setconn=Server.CreateObject("ADODB.Connection")

DBPath=Server.MapPath("Digest.mdb")

conn.Open"driver={MicrosoftAccessDriver(*.mdb)};dbq="&DBPath

Setrs=Server.CreateObject("ADODB.Recordset")

'从Web页获取标题、日期、作者、关键词的值

dimtitle

dimdateandtime

dimwriter

dimNclassid

dimcontent

title=request("title")

dateandtime=request("dateandtime")

writer=request("writer")

Nclassidr=request("Nclassid")

content=request("content")

title=replace(title,"","%")

dateandtime=replace(dateandtime,"","%")

writer=replace(writer,"","%")

Nclassidr=replace(Nclassid,"","%")

content=replace(content,"","%")

sql="select*fromArticlewhere"

iftitle<>""then

sql=sql&"titlelike'%"&title&"%'"

flag=1

endif

ifdateandtime<>""andflag=1then

sql=sql&"anddateandtimelike'%"&dateandtime&"%'"

flag=1

elseifdateandtime<>""then

sql=sql&"dateandtimelike'%"&dateandtime&"%'"

flag=1

endif

ifwriter<>""andflag=1then

sql=sql&"andwriterlike'%"&writer&"%'"

flag=1

elseifwriter<>""then

sql=sql&"writerlike'%"&writer&"%'"

flag=1

endif

ifNclassid<>""andflag=1then

sql=sql&"andNclassidlike'%"&Nclassid&"%'"

flag=1

elseifNclassid<>""then

sql=sql&"Nclassidlike'%"&Nclassid&"%'"

flag=1

endif

ifcontent<>""andflag=1then

sql=sql&"andcontentlike'%"&content&"%'"

flag=1

elseifcontent<>""then

sql=sql&"contentlike'%"&content&"%'"

flag=1

endif

ifflag=0then

sql="select*fromArticleorderbyIDasc"

endif

rs.opensql,conn,1,1

title=replace(title,"","%")

dateandtime=replace(dateandtime,"","%")

writer=replace(writer,"","%")

Nclassidr=replace(Nclassid,"","%")

content=replace(content,"","%")

'显示搜索结果

ifrs.eofandrs.bofthen

response.write"目前通讯录中没有记录"

else

dowhilenotrs.eof

response.write"标题：<ahref=read.asp?id="&rs("ID")&">"&rs("title")&"</a>

<fontcolor=#999999>[日期："&rs("dateandtime")&"

作者："&rs("writer")&"]</font><br>正文："&left(rs("content"),150)&"...<br>"

rs.movenext

loop

endif

'断开数据库

setrs=nothing