2.分頁顯示，請參考以下過程。
'=================================================
流程名稱:ShowSearchResult
功能:在頁面中顯示搜索結果。
參數:無
'=================================================
sub ShowSearchResult()
if currentpage & lt那麽1
currentpage=1
如果…就會結束
if(current page-1)* MaxPerPage & gt；那麽總投入
如果(totalPut mod MaxPerPage)=0，則
current page = total put \ MaxPerPage
其他
current page = total put \ MaxPerPage+1
如果…就會結束
如果…就會結束
如果當前頁面=1，則
sqlSearch = " select top " & amp最大頁面
其他
sqlSearch="select "
如果…就會結束
sqlSearch = sqlSearch & amp" * from Bs _ Product where Passed = True "
如果BigClassName & lt& gt”“那麽
sqlSearch = sqlSearch & amp和BigClassName = ' " & ampBigClassName & amp"
如果SmallClassName & lt& gt”“那麽
sqlSearch = sqlSearch & amp和SmallClassName = ' " & ampSmallClassName & amp"
如果…就會結束
其他
if SpecialName & lt& gt”“那麽
sqlSearch = sqlSearch & amp和SpecialName = ' " & amp特殊名稱和名稱；"
如果…就會結束
如果…就會結束
if關鍵字& lt& gt”“那麽
選擇案例字段
案例“標題”
sqlSearch = sqlSearch & amp像“%”& amp；關鍵詞和；%' "
案例“內容”
sqlSearch = sqlSearch & amp和類似“%”的內容。關鍵詞和；%' "
其他情況
sqlSearch = sqlSearch & amp像“%”& amp；關鍵詞和；%' "
結束選擇
如果…就會結束
sqlSearch = sqlSearch & amp“由阿克萊德order訂購”
設置rsSearch= Server。CreateObject("ADODB。記錄集”)
康涅狄格州，1，1
如果rsSearch.eof和rsSearch.bof那麽
response.write " & ltp align='center ' >& ltbr & gt& ltbr & gt沒有或沒有找到產品
其他
如果當前頁面=1，則
調用SearchResultContent()
其他
if(current page-1)* MaxPerPage & lt；那麽總投入
RS search . move(current page-1)* MaxPerPage
暗淡書簽
bookmark=rsSearch.bookmark
調用SearchResultContent()
其他
currentPage=1
調用SearchResultContent()
如果…就會結束
如果…就會結束
如果…就會結束
rsSearch.close
設置rsSearch=nothing
末端接頭
sub SearchResultContent()
尺寸I，strTemp，內容
i=1
do while not rsSearch.eof
strTemp= " "
strTemp = strTemp & ampcstr(i)和".& lta href='Bs_ProductShow.asp？ArticleID = " & ampRS search(" articleid ")& amp；& gt"
如果strField="Title "那麽
strTemp = strTemp & amp“& ltb >；& amp替換(rsSearch("title ")、" " & amp關鍵詞& amp""，" & ltfont color = red & gt”& amp關鍵詞& amp“& lt/font >)& amp“& lt/b & gt；& lt/font & gt；& lt/a >；
其他
strTemp = strTemp & amp“& ltb >；& ampRS search(" title ")& amp；“& lt/b & gt；& lt/a >；
如果…就會結束
strTemp = strTemp & amp"[" & amp；format datetime(RS search(" update time ")，1)"]"
content = left(no html(RS search(" content "))，200)
如果strField="Content "那麽
strTemp = strTemp & amp“& ltdiv style = ' padding:10px 20px ' >& amp替換(內容。關鍵詞& amp""，" & ltfont color = red & gt”& amp關鍵詞& amp“& lt/font >)& amp“……& lt；/div >；"
其他
strTemp = strTemp & amp“& ltdiv style = ' padding:10px 20px ' >& amp內容& amp“……& lt；/div >；"
如果…就會結束
strTemp = strTemp & amp“& lt/a >；
response.write字符串
i=i+1
如果我& gtMaxPerPage然後退出do
rsSearch.movenext
環
末端接頭