search.asp   找到Sub GetSearchResult() 这段  然后做一下判断 

语句是

  Sub GetSearchResult() 
      on error resume next
   I=0
       Dim LC
   Select Case KS.C_S(ChannelID,6)
    Case 1
    Do While Not RS.Eof
    If Not Response.IsClientConnected Then Response.end
     LC=LoopContent
     LC=replace(LC,"{$GetArticleTitle}",ReplaceKeyWordRed(rs("title")))
     LC=replace(LC,"{$GetArticleHits}",rs("hits"))
     LC=replace(LC,"{$GetArticleAuthor}",rs("author"))
     LC=replace(LC,"{$GetArticleInput}",rs("articleinput"))
     LC=replace(LC,"{$GetArticleOrigin}",rs("origin"))
     LC=replace(LC,"{$GetArticleDate}",rs("adddate"))
         
     if rs("Recommend")=1 then  LC=replace(LC,"{$GetArticleRecommend}","推荐")
     if rs("Recommend")=0 then  LC=replace(LC,"{$GetArticleRecommend}","")
     if rs("Popular")=1 then  LC=replace(LC,"{$GetArticlePopular}","热门")
     if rs("Popular")=0 then  LC=replace(LC,"{$GetArticlePopular}","")
     if rs("Strip")=1 then  LC=replace(LC,"{$GetArticleStrip}","头条")
     if rs("Strip")=0 then  LC=replace(LC,"{$GetArticleStrip}","")
     if rs("Rolls")=1 then  LC=replace(LC,"{$GetArticleRolls}","滚动")
     if rs("Rolls")=0 then  LC=replace(LC,"{$GetArticleRolls}","")
     if rs("Slide")=1 then  LC=replace(LC,"{$GetArticleSlide}","幻灯片")
     if rs("Slide")=0 then  LC=replace(LC,"{$GetArticleSlide}","")
   
     if isnull(rs("intro")) then
     LC=replace(LC,"{$GetArticleIntro}",ReplaceKeyWordRed(KS.GotTopic(KS.LoseHtml(rs("articlecontent")),200)))
     else
     LC=replace(LC,"{$GetArticleIntro}",ReplaceKeyWordRed(rs("intro")))
     end if
     photourl=rs("picurl")
     if photourl="" then photourl=ks.setting(3) & "images/nopic.gif"
     LC=replace(LC,"{$GetArticlePic}",photourl)
     LC=replace(LC,"{$GetClassNameAndPath}",KS.GetClassNP(rs("tid")))
     LC=replace(LC,"{$GetArticleUrl}",KS.GetInfoUrl(ChannelID,rs("Tid"),rs("ID"),rs("Fname"),rs("ReadPoint"),rs("InfoPurview"),rs("Changes")))
     LC=LFCls.ReplaceUserDefine(ChannelID,LC,RS)
     SearchResult=SearchResult & LC
   I = I + 1
   If I >= MaxPerPage Then Exit Do
   RS.MoveNext
今天修改的，也希望高手能够，优化一下，谢谢