<%
if search_q<>"" then
set rs=server.createobject("adodb.recordset")
rs.open(s_sql),cn,1,1
%>
<%'=============分頁定義開始，要放在數(shù)據(jù)庫打開之后
if err.number<>0 then '錯誤處理
response.write "數(shù)據(jù)庫操作失敗：" & err.description
err.clear
else
if not (rs.eof and rs.bof) then '檢測記錄集是否為空
r=cint(rs.RecordCount) '記錄總數(shù)
rowcount = 10 '設置每一頁的數(shù)據(jù)記錄數(shù)，可根據(jù)實際自定義
rs.pagesize = rowcount '分頁記錄集每頁顯示記錄數(shù)
maxpagecount=rs.pagecount '分頁頁數(shù)
page=request.querystring("page")
if page="" then
page=1
end if
rs.absolutepage = page
rcount1=0
pagestart=page-5
pageend=page+5
if pagestart<1 then
pagestart=1
end if
if pageend>maxpagecount then
pageend=maxpagecount
end if
rcount=rs.RecordCount
'=============分頁定義結束%>
<%
else
response.write "
您正在搜索“<%=search_q%>”,找到相關信息 <%=rcount%> 條
提示：用空格隔開多個搜尋關鍵詞可獲取更理想結果，如“最新 產(chǎn)品”。
-
<%'===========循環(huán)體開始
do while not rs.eof and rowcount%>
<%
select case rs("ArticleType")
case 1
Content_FolderName=Article_FolderName
case 2
Content_FolderName=Product_FolderName
case 3
Content_FolderName=Case_FolderName
end select
title1=left(rs("title"),30)
for i=0 to c
title1=Replace(title1, keywords(i), "" & keywords(i)& "")
next
content1=left(nohtml(rs("content")),110)
for i=0 to c
content1=Replace(content1,keywords(i), "" & keywords(i)& "")
next
%>
- <%=title1%>
- <%=content1%>...
- <%=web_url&"/"&Content_FolderName&"/"&rs("file_path")%><%=year(rs("time"))%>-<%=month(rs("time"))%>-<%=day(rs("time"))%> <% rowcount=rowcount-1 rs.movenext loop '===========循環(huán)體結束%>
很抱歉,沒有找到與 "&search_q&" 相關的信息！
"
end if
end if
end if%>
提示：用空格隔開多個搜尋關鍵詞可獲取更理想結果，如“最新 產(chǎn)品”。
