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

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