风讯广告数据表无限增大修正方法3.12版-全面提高的访问数据_风讯Cms教程

编辑Tag赚U币
教程Tag:暂无Tag,欢迎添加,赚取U币!

我的站点建立2个月,今天发现数据库中FS_AdsVisitList这个表的数据竟然达到了57238条,这将严重的影响客户访问你页面的访问速度!!!

这个问题同时请参见这个帖子的问题提出,我竟然没有找到,那位找到了在后面补充!!!!

上面帖子的内容本人也没有什么在意,今天没有什么事情重新看到了这个帖子,发现真实存在这个问题,就看了看,花费了5分钟解决掉了,下面是解决方法:

这个问题主要是有个系统访问这个文件造成的 Plus\Ads\Show.asp ,这个文件记录的不是点击广告的次数,而是显示的次数,所以没有什么意义!!!

方法修正1:简单

直接将这个文件中的内容清空就可以了保留一个空的Show.asp 文件,这样不是很好的也可以仅仅删除红色的内容

<% Option Explicit %>
<!--#include file="../../Inc/Const.asp" -->
<!--#include file="../../Inc/Cls_DB.asp" -->
<!--#include file="../../Inc/NoSqlHack.asp" -->
<%
Dim DBC,Conn
Set DBC = New DataBaseClass
Set Conn = DBC.OpenConnection()
Set DBC = Nothing
if request("Location")<>"" and isnull(request("Location"))=false then
Conn.Execute("update FS_Ads set ShowNum=ShowNum 1 where Location="&clng(request("Location"))&"")

dim Getip,AdsRsObj,AdsRsSql
Getip=request.ServerVariables("REMOTE_ADDR")
set AdsRsObj=server.createobject(G_FS_RS)
AdsRsSql="select * from FS_AdsVisitList"
AdsRsObj.open AdsRsSql,conn,1,3
AdsRsObj.AddNew
AdsRsObj("AdsLocation") = clng(request("Location"))
AdsRsObj("VisitTime") = now()
AdsRsObj("VisitIP") = Getip
AdsRsObj("VisitType") = 2
AdsRsObj.update
AdsRsObj.close
set AdsRsObj=nothing
end if
Set Conn=nothing
%>

查看更多 风讯cms教程  风讯cms模板

来源:模板无忧//所属分类:风讯Cms教程/更新时间:2006-06-19
相关风讯Cms教程