杜绝恶意刷新 _ 博客意见反馈吧 _ 中金贴吧

吧主：

讨论主题：杜绝恶意刷新

您好！我发现，3个博客是靠恶意刷新，排在浏览率的前10名，这样很不公平，建议技术员，设置一个防刷新的脚本，也就是，同一个IP地址，不再增加浏览率数据的脚本。以下是代码，可交给技术员审核。
Sub chkreflash()
dim ScriptName
ScriptName=lcase(request.ServerVariables("PATH_INFO"))
dim posttime,DoReflashPage,ReflashPage,SplitReflashPage
posttime=1 '防止刷新时间
DoReflashPage=false
ReflashPage="|Article_one.asp"
SplitReflashPage=split(ReflashPage,"|")
for i=0 to ubound(SplitReflashPage)
if instr(scriptname,SplitReflashPage(i))>0 then
DoReflashPage=true
exit for
end if
next
if (not isnull(session("ReflashTime"))) and posttime>0 and DoReflashPage then
if DateDiff("s",session("ReflashTime"),Now())<posttime then
call msg("警告！系统已记录您的IP，和刷新次数。\n\n请不要在"&posttime&"秒内连续刷新本页面！","-1")
else
session("ReflashTime")=Now()
end if
elseif isnull(session("ReflashTime")) and posttime>0 and DoReflashPage then
Session("ReflashTime")=Now()
end if
End Sub

作者： czcwy　 2008-04-10 23:44 回复引用

回复交流：

这个我们会考虑看看，谢谢您的建议

1 楼	作者： admin_post 2008-04-11 09:08 回复引用

太有才了

2 楼	作者：股象数 2008-04-15 18:41 回复引用

是用javascript实现的~~

3 楼	作者：无心选择风琴 2008-04-15 21:07 回复引用

我觉得网站的速度太慢，尤其是在晚上8点以后，到11点前的流量最大，速度最慢。打开博客网站源代码，才发现通过互联网的链接太多，包括用户的每一篇文章，每一张图片，都是通过http://blog.view.cnfol.com”或http://blog.cnfol.com 来转向的。建议：内部所有文件或图片，直接从后台文件库读取，这样速度会快很多。

4 楼	作者： czcwy 2008-04-19 20:19 回复引用

也就是将http://...... 去除，直接读取文件夹，速度回提高几倍。

5 楼	作者： czcwy 2008-04-19 20:23 回复引用

我想，我的建议可能会引起专业技术员的心情不爽，但我是处于关心中金网站的建设出发，为网站建设提一点建议，别无它意。开设一个网站不是给自己看的，要面对各种层次的浏览者，尤其是要照顾，网速比较慢的地区。我自己独用的2M宽带就觉得慢了，何况是通过局域网，或者1M的宽带。同时建议，技术员到福州地区的网吧或者福州以外的其它地区，在上网高峰期体验一下本站的网速，设立一个网站建设意见征求窗口，听一下来我们网友的看法。鸡婆的股市五星战将博客版主。

6 楼	作者： czcwy 2008-04-19 20:55 回复引用

另外，在修改一下版主内部的数据库应用功能，设置可以批量删除的功能，这样也可以减少空间的占用，提高速度。我的留言板内已经几百个过期的留言，因为没有这个功能，我也懒得去一一删除了。

7 楼	作者： czcwy 2008-04-19 21:06 回复引用

转到页

参与评论：