ASP禁止指定IP进行相关操作的方法

请将以下代码加入数据库添加记录执行页面开头：

<%
Dim IP,IPString,VisitIP
'要禁止的IP地址
IPString="|***.***.***.***|***.***.***.***|***.***.***.***|"
'获取IP地址 
IP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If IP = "" Then
IP = Request.ServerVariables("REMOTE_ADDR")
End If 
VisitIP="|"&IP&"|"
If instr(1,IPString,VisitIP)>0 Then 
response.write "您的IP被禁止发表留言，请与站长联系！"
response.end
End If
%>