用dreamweaver制作查詢表單

用Dreamweaver做搜索表單本例介紹了在DreamweaverMX2004中如何制作ASP搜索表單。應(yīng)用本教程前的準(zhǔn)備工作：已經(jīng)成功建立ASP運(yùn)行環(huán)境；已經(jīng)在Dreamweaver中建立動(dòng)態(tài)站點(diǎn)并成功連接數(shù)據(jù)庫；1、首先在要輸入搜索信息的頁面上（如：index.htm）建立一個(gè)搜索的表單,表單中包含一個(gè)文本域（inputtext），名稱（name）為"keyword"，表單(form)的名稱(name)為"forml"，動(dòng)作(Action)填入"search.asp"；2、制作處理搜索結(jié)果頁search.asp，你可以先設(shè)計(jì)好頁面的界面。設(shè)計(jì)好之后，開始建立記錄集。在“應(yīng)用程序”面板上點(diǎn)擊“綁定”>“記錄集（查詢）”。輸入名稱，選擇相應(yīng)的連接和數(shù)據(jù)表，在“篩選”中,選擇一個(gè)字段“包含”“表單變量”：〃keyword〃（和你在index.htm中定義的文本框的名稱一致），

切換到高級(jí)視圖，可以看到生成的SQL語句3、 在頁面中將記錄一一綁定，圖中的{Form.keyword}，實(shí)際上是<%=Request.Form("keyword")%>以獲取搜索的內(nèi)容。接下來就可以對(duì)已經(jīng)綁定的動(dòng)態(tài)數(shù)據(jù)添加服務(wù)器行為，如“重復(fù)區(qū)域”、“分頁”等等，BorderWidthColor(Top：t||pixelTai#H9DEE8#D9DEE8#D9DEE8#D9DEE8*Right:#D9DEE8*Left：2 F[pixel^J #D9DEE8?Style:|unitset 〒|L▼|Ipixel刁*Bo+tom：因?yàn)樗阉鬟^程中很有可能出現(xiàn)搜索的內(nèi)容不存在的情況，所以我們這里一定要添加一個(gè)“如果記錄集不為空則顯示”的服務(wù)器行為。選中動(dòng)態(tài)數(shù)據(jù)所在的那一行(〈tr〉...〈/tr〉)，點(diǎn)擊“服務(wù)器行為”中的“顯示區(qū)域”>“如果記錄集不為空則顯示”。再找到〈%EndIfendNotsearch.EOFOrNOTsearch.BOF%〉所在的地方，在前面添加幾行代碼，成為如下：〈%Else%〉<tr><td〉你所查詢的內(nèi)容不存在，請(qǐng)更改關(guān)鍵詞后再查詢！〈/td〉〈/tr〉〈%EndIfendNotsearch.EOFOrNOTsearch.BOF%〉4、這個(gè)搜索表單基本上已經(jīng)完成了。但如果要想讓搜索出的結(jié)果以突出的方式顯示(比如用紅色、加粗的字體表示)，則可以在html代碼的〈html〉標(biāo)記之前加入以下代碼：Repeat1 nuinRows=10Repeat1 index=0Search_numRows=Search_nuinRows+Repeat1nuinRows%><卷functionShowBold(theField)SetobjRegExp=NewRegExp□bjRegExp.Pattern=7(FF￡Request.Form(rrkeywordrr)￡rr)"□bjRegExp.IgnoreCase=True□bjRegExp.Global=TrueShowBold=objRegExp.Replace(theField^rr<fontcolor=redxb>$ ont>rr)endfunction%><!DOCTYPEHTHLPUBLICrr-//W3C//DTDHTML4.01Transitional//ENrr28293031323334282930313233343536373S39404142圖中橙色背景的部分即是頁面中要突出顯示的效果。5、然后在要突出顯示的地方修改以下代碼：如將原來的〈％=(search.Fields.Item("n_contents").value)%〉修改為：<%=ShowBold(search.Fields.Item("n_contents").value)%>以下為引用的內(nèi)容：〈%functionShowBold(theField)SetobjRegExp=NewRegExpobjRegExp.Pattern="("&Request.Form("keyword")&")"其中的keyword要和index.htm中文本框的名字一致objRegExp.IgnoreCase=TrueobjRegExp.Global=TrueShowBold=objRegExp.Replace(theField,"〈fontcolor=red〉〈b〉$1〈/b〉〈/font〉")Endfunction%〉■■n_auiz.noE"