<%
if search_q<>"" then
set rs=server.createobject("adodb.recordset")
rs.open(s_sql),cn,1,1
%>
<%'=============分頁(yè)定義開(kāi)始,要放在數據庫打開(kāi)之后
if err.number<>0 then '錯誤處理
response.write "數據庫操作失?。? & err.description
err.clear
else
if not (rs.eof and rs.bof) then '檢測記錄集是否為空
r=cint(rs.RecordCount) '記錄總數
rowcount = 10 '設置每一頁(yè)的數據記錄數,可根據實(shí)際自定義
rs.pagesize = rowcount '分頁(yè)記錄集每頁(yè)顯示記錄數
maxpagecount=rs.pagecount '分頁(yè)頁(yè)數
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
'=============分頁(yè)定義結束%>
<%
else
response.write "
您正在搜索“<%=search_q%>”,找到相關(guān)信息 <%=rcount%> 條
提示:用空格隔開(kāi)多個(gè)搜尋關(guān)鍵詞可獲取更理想結果,如“最新 產(chǎn)品”。
-
<%'===========循環(huán)體開(kāi)始
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)體結束%>
很抱歉,沒(méi)有找到與 "&search_q&" 相關(guān)的信息!
"
end if
end if
end if%>
提示:用空格隔開(kāi)多個(gè)搜尋關(guān)鍵詞可獲取更理想結果,如“最新 產(chǎn)品”。