<% '============================================================ '插件名称：搜索 'Website：http://www.sdcms.cn 'Author：IT平民 'Date：2008-10-4 'Edit By IT平民 2009-1-11 '============================================================ Set Temp=New Templates keyword=Trim(request.QueryString()) keyword=Split(Keyword,"/") key=HTMLEncode(URLDecode(Re(keyword(1),"？",""))) page=HTMLEncode(keyword(2)) page=Requestint(page,1) IF key="" Then Echo "关键字不能为空":Died IF len(key)<2 Then Echo "关键字长度不能小于2个字符":Died classpage=20'定义每页数量 Temp.Label "{sdcms:keyword}",key Temp.Label "{sdcms:pages}",page set rs=server.CreateObject("adodb.recordset") sql="select id from sd_info where (" IF Is_sql Then Sql=Sql&"InStr(1,LCase(Title),LCase('"&key&"'),0)<>0 or InStr(1,LCase(jj),LCase('"&key&"'),0)<>0" Else Sql=Sql&"Title like '%"&key&"%' or jj like '%"&key&"%'" End IF Sql=Sql&") and ispass=1 and iscreate=1" rs.open sql,conn,1,1 rs.PageSize=classpage IF rs.eof and rs.bof then Temp.Label "{sdcms:listpage}","" IF Is_sql Then show=Temp.SDCMS_Templates(Load_temp_dir&Load_temp_file("sdcms_skins_search")) Else show=Temp.SDCMS_Templates(Load_temp_dir&Load_temp_file("sdcms_skins_search_sql")) End IF Else IF page=1 Then Add_key(key) maxpagecount=rs.pagecount rs.absolutepage =page rcount1=0 pagestart=page-2 pageend=page+2 if pagestart<1 then pagestart=1 end if if pageend>maxpagecount then pageend=maxpagecount end if rcount=rs.RecordCount Temp.Label "{sdcms:listpage}",Getpagelists(rcount,page,maxpagecount,pagestart,pageend,"?/"&key&"/","") IF Is_sql Then show=Temp.SDCMS_Templates(Load_temp_dir&Load_temp_file("sdcms_skins_search")) Else show=Temp.SDCMS_Templates(Load_temp_dir&Load_temp_file("sdcms_skins_search_sql")) End IF End IF Echo show Set Temp=Nothing Sub Add_key(t0) IF Conn.execute("select count(id) from sd_search where title='"&t0&"'")(0)=0 Then Conn.execute("Insert Into sd_search (title,ispass) values('"&t0&"',1)") Else Conn.execute("Update sd_search set hits=hits+1 where title='"&t0&"'") End If End Sub %>