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

我的站点建立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
%>