Asp访问多条件查询问题
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
环
末端接头