账号通
    

账号  

密码  

3020

查看

14

回复
主题:搜索关键词维护问题 [收藏主题] 转到:  
科汛官方 当前离线

47268

主题

145

广播

405

粉丝
添加关注
级别:管理员

用户积分:101604 分
登录次数:7935 次
注册时间:2006/12/7
最后登录:2023/12/14
科汛官方 发表于:2013/8/19 10:23:58   | 显示全部帖子 查看该作者主题 楼主 
科汛智能建站系统

这情况可以把记录搜索关键字的代码删除,



打开plus/search/index.asp,找到下面代码,并把红色的代码删除



Sub KeyToDataBase()

    If KS.IsNul(Trim(Key)) or CurrPage>1 Then Exit Sub

    Dim RS:Set RS=Server.CreateObject("adodb.recordset")

    RS.Open "Select top 1 * From KS_KeyWords Where IsSearch=1 and KeyText='" & Key &"'",conn,1,3

    If RS.Eof Then

      RS.AddNew

   RS("AddDate")=Now

   RS("IsSearch")=1

   RS("KeyText")=Key

   RS("Hits")=1

    End If

      RS("Hits")=RS("Hits")+1

   RS("LastUseTime")=Now

    RS.Update

    RS.Close:Set RS=Nothing

  End Sub

  

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.20313秒 powered by KesionCMS 9.0