%@LANGUAGE="VBSCRIPT"%> <%OPTION EXPLICIT%> <% Response.AddHeader "Pragma", "no-cache" Response.ExpiresAbsolute = Now() - 1 Response.AddHeader "cache-control", "must-revalidate, private, no-cache" dim oDb, oRS, sTest Set oDb = Server.CreateObject("FurrySys.DB") if oDb.System("IpCheck.xml") then ' if oDb.CmdSetup("up_IPCheck") = 1 then ' oDb.CmdParamAdd isErr(Request.ServerVariables("REMOTE_ADDR")),2,100,"vIP" ' oDb.CmdParamAdd isErr(Request.ServerVariables("HTTP_USER_AGENT")),2,200,"vBrowser" ' oDb.CmdParamAdd isErr(Request.ServerVariables("SCRIPT_NAME")),2,100,"vPage" ' oDb.CmdParamAdd isErrRef(Request.ServerVariables("HTTP_REFERER")),2,100,"vRef" ' oDb.CmdParamAdd isErr(Session.SessionID),2,200,"vSession" ' sTest = oDb.CmdExecute ' end if end if Set oDb = Nothing function isErrRef(sInpt) if len(sInpt) = 0 then sInpt = "Typed" end if isErrRef = sInpt end function function isErr(sInpt) if len(sInpt) = 0 then sInpt = "Blocked" end if isErr = sInpt end function %>