云上運維及應(yīng)用實踐教程（第2版） 教案 20 項目六 任務(wù)3 制作搜索結(jié)果頁面

教案序號：.課題項目六任務(wù)3制作搜索結(jié)果頁面授課形式√理論□理實一體□實訓(xùn)(驗)□其它：學(xué)時安排本單元總學(xué)時：2（其中：理論2學(xué)時、實踐學(xué)時）教學(xué)內(nèi)容及目標(biāo)掌握使用簡單搜索的方法及相關(guān)功能代碼，模糊搜索的相關(guān)功能代碼。教學(xué)重點及難點重點、難點：模糊搜索方法與代碼。授課對象學(xué)情分析學(xué)生接觸網(wǎng)站建設(shè)的相關(guān)內(nèi)容時間不長，雖然有網(wǎng)頁制作的基礎(chǔ)，但基礎(chǔ)較差，需要在講授過程中，教師進(jìn)行巡回指導(dǎo)或同學(xué)間小組討論。教學(xué)媒介機房授課地點5405教學(xué)過程及設(shè)計：一、課前回顧：搜索功能的界面設(shè)計？二、新課內(nèi)容：項目六任務(wù)3制作搜索結(jié)果頁面任務(wù)頁面搜索功能設(shè)計一、任務(wù)引出信息搜索是指從浩瀚的網(wǎng)絡(luò)資源中迅速找到自己需要的信息，當(dāng)前主流的搜索方式是搜索引擎技術(shù)所謂搜索引擎是指自動從網(wǎng)絡(luò)上搜集信息，經(jīng)過一定整理后，提供給用戶進(jìn)行查詢的系統(tǒng)主要的有：百度，Google，Yahoo等商業(yè)站點二、實踐操作<%@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頁獲取標(biāo)題、日期、作者、關(guān)鍵詞的值

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,"","%")

'顯示搜索結(jié)果

ifrs.eofandrs.bofthen

response.write"目前通訊錄中沒有記錄"

else

dowhilenotrs.eof

response.write"標(biāo)題：<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

'斷開數(shù)據(jù)庫

setrs=nothing