看到你所说的catalog.asp过度刷新耗资源的问题,可以试试我以前搞过的一个BanIP模块,能否解决这个问题.

大致的用法:

Dim BanIP
Set BanIP=New TBanIP

BanIP.CLSID=ZC_BLOG_CLSID
BanIP.Name="防刷catalog" '随便起个名字
BanIP.Length=50 '队列的长度,可以记住50个不同的IP
BanIP.Interval=100 '时间间隔,单位是毫秒

BanIP.LoadList

If BanIP.Check(Request.ServerVariables("LOCAL_ADDR"))=False Then
  '如果当前IP出现在这个列表里,说明它在规定时间内重复出现了
  Call ShowError(0)
End If

BanIP.SaveList

Set BanIP=Nothing
'可放在Call System_Initialize吧

短信已禁用，有事发贴。