<% '****************************************************************************************** ' Software name: Max(马克斯) Content Management System ' Version:2.6_User ' Web: http://maxcms.bokecc.com ' Author: 石头、酒瓶 ' Copyright (C) 2005-2009 北京梦之窗数码科技有限公司 版权所有 ' 法律申明:MaxCMS程序所有代码100%原创、未引入任何网上代码,对一切抄袭行为、坚决严肃追究法律责任 '****************************************************************************************** if user.level = "" then user.level = 1 dim searchLimitFlag,searchtime:searchLimitFlag=0:searchtime=5'searchLimitFlag为显示搜索控制标识(0不开启,1开启),searchtime为搜索间隔秒数 dim action : action = getForm("action", "get") dim templateobj : set templateobj = mainClassobj.createObject("MainClass.template") dim searchword,searchType,page : searchword=getForm("searchword","both") : searchType=getForm("searchtype","both") : page=getForm("page","both") if isNul(searchType) then searchType=-1 else if isNum(searchType) then searchType=clng(searchType) else echoSaveStr "safe" end if if isNul(page) then page=1 else if isNum(page) then page=clng(page) else echoSaveStr "safe" end if dim whereCourt if user.level = 9999 then whereCourt = "" else dim currentLevel : currentLevel = getLevelCourt whereCourt = " and m_hide=0 and m_type in ("¤tLevel&")" end if searchword=preventSqlin(filterStr(searchword,"html"),"") : if len(searchword)>20 then searchword=left(searchword,20) echoSearchPage set templateobj=nothing : terminateAllObjects Sub echoSearchPage dim i,rsObj,pSize,whereStr,curTypeId,pCount,searchTemplatePath,searchTemplateName,tempStr,searchPageStr if isNul(searchword) then echoMsgAndGo "请输入搜索关键字",searchtime:die "" if searchLimitFlag=1 then checkSearchTimes searchTemplateName="search.html" searchTemplatePath = "/"&sitePath&"template/"&defaultTemplate&"/"&templateFileFolder&"/"&searchTemplateName pSize = getPageSizeOnCache(searchTemplatePath,"search","") : if isNul(pSize) then pSize=12 select case clng(searchType) case -1 : whereStr=" where (m_name like '%"&searchword&"%' or m_actor like '%"&searchword&"%' or m_publisharea like '%"&searchword&"%' or m_publishyear like '%"&searchword&"%')"&whereCourt case 0 : whereStr=" where m_name like '%"&searchword&"%'"&whereCourt case 1 : whereStr=" where m_actor like '%"&searchword&"%'"&whereCourt case 2 : whereStr=" where m_publisharea like '%"&searchword&"%'"&whereCourt case 3 : whereStr=" where m_publishyear like '%"&searchword&"%'"&whereCourt case 4 : whereStr=" where m_letter='"&UCase(searchword)&"'"&whereCourt case else : whereStr=" where 1=1" &whereCourt end select 'whereStr = whereStr & " and m_type in ("¤tLevel&")" set rsObj = conn.db("select m_id from {pre}data "&whereStr,"records1") rsObj.pagesize = pSize with templateObj .load(searchTemplatePath) : .parseTop():.parseFoot() : .parseSelf() : .parseGlobal() : .parseMenuList("") :.parseNewsList: .parseVideoList() : .parseTopicList() end with tempStr = templateObj.content : pCount = rsObj.pagecount tempStr=replaceStr(tempStr,"{maxcms:searchword}",searchword) : tempStr=replaceStr(tempStr,"{maxcms:searchnum}",rsObj.recordcount) with templateObj : .content=tempStr : .ParsePageList "",page,pCount,"search" : .content=replaceCurrentTypeId(.content) : .parseIf() : searchPageStr = .content : end with echo replaceStr(searchPageStr,"{maxcms:runinfo}",getRunTime()) rsObj.close set rsObj = nothing End Sub Sub checkSearchTimes if not isNul(getForm("searchword", "post")) then if rCookie("maxcms2_search")="ok" then echoMsgAndGo "搜索限制为"&searchtime&"秒一次",searchtime:die "" wCookieInTime "maxcms2_search","ok","s",searchtime 'echo "