<%@ LANGUAGE=VBScript CodePage=65001%> <% response.charset="utf-8" %> <% session.codepage=65001 %> <% search_q=request.querystring("q") %> 搜索:<%=search_q%>_鑫凌云光電
  • <% keywords=split(search_q," ") c=ubound(keywords) for i=0 to c if i=0 then search_sql1=search_sql1&"where ( [title] like '%"&keywords(i)&"%'" keywords_all=keywords(i) else search_sql1=search_sql1&" or [title] like '%"&keywords(i)&"%'" keywords_all=keywords_all&"+"&keywords(i) end if next s_sql="select [title],[content],[file_path],[time],ArticleType from [article] "&search_sql1&" ) and view_yes=1 order by [time] desc" %>
    你的位置:首頁 > 搜索
    <% if search_q<>"" then set rs=server.createobject("adodb.recordset") rs.open(s_sql),cn,1,1 %> <%'=============分頁定義開始,要放在數據庫打開之后 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 '設置每一頁的數據記錄數,可根據實際自定義 rs.pagesize = rowcount '分頁記錄集每頁顯示記錄數 maxpagecount=rs.pagecount '分頁頁數 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 '=============分頁定義結束%>
    您正在搜索“<%=search_q%>”,找到相關信息 <%=rcount%>
    提示:用空格隔開多個搜尋關鍵詞可獲取更理想結果,如“最新 產品”。
    <%'===========循環體開始 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 %>
    <% rowcount=rowcount-1 rs.movenext loop '===========循環體結束%>
    <% else response.write "
    很抱歉,沒有找到與 "&search_q&" 相關的信息!

    提示:用空格隔開多個搜尋關鍵詞可獲取更理想結果,如“最新 產品”。

    " end if end if end if%>