V6总站搜索增加时间限制的方法

KesionCMS V6分频道搜索是有时间限制了,但默认情况下如果是整站搜索是不带这个功能的,我们可以做下小修改,来实现这个功能 ,方法我们可以参考/plus/search.asp的频道搜索,

请用编辑工具打开plus/search/index.asp

找到以下代码  

Public Sub Kesion()
   Dim Template,KSR
   FCls.RefreshType = "searchIndex"  
   Set KSR = New Refresh
     If KS.Setting(139)="" Then KS.Die "请先到""基本信息设置->模板绑定""进行模板绑定操作!"
     Template = KSR.LoadTemplate(KS.Setting(139))
     Template = KSR.KSLabelReplaceAll(Template)
     Set KSR = Nothing
     StartTime = Timer()
     InitialSearch
     Scan Template
    End Sub
 

改成

  Public Sub Kesion()
  
  Dim RefreshTime:RefreshTime = 2  '设置防刷新时间
  If DateDiff("s", Session("SearchTime"), Now()) < RefreshTime Then
   Response.Write "<META http-equiv=Content-Type content=text/html; chaRset=gb2312><meta HTTP-EQUIV=REFRESH CONTENT="&RefreshTime&"><br>本页面起用了防刷新机制，请不要在"&RefreshTime&"秒内连续刷新本页面<BR>正在打开页面，请稍后……"
   Response.End
  End If
  Session("SearchTime")=Now()

  
   Dim Template,KSR
   FCls.RefreshType = "searchIndex"  
   Set KSR = New Refresh
     If KS.Setting(139)="" Then KS.Die "请先到""基本信息设置->模板绑定""进行模板绑定操作!"
     Template = KSR.LoadTemplate(KS.Setting(139))
     Template = KSR.KSLabelReplaceAll(Template)
     Set KSR = Nothing
     StartTime = Timer()
     InitialSearch
     Scan Template
    End Sub
 

增加以上红色代码就行了

  Dim RefreshTime:RefreshTime = 2  '设置防刷新时间

以上代码是设置时间限制的,可以自己修改