% '----------------HOME IP----------------------------- 'Dim strClient 'strClient = Request.ServerVariables("REMOTE_ADDR") 'IF strClient = "217.26.79.70" THEN Session("loginvar") = True 'END IF '----------------GOOGLEBOT--------------------------- 'Dim strUAgent 'strUAgent = Request.ServerVariables("HTTP_USER_AGENT") 'strUAgent = Trim(strUAgent) 'If Left(strUAgent, 9) = "Googlebot" Then 'Session("loginvar") = True 'End If '----------------UNAUTORIZED------------------------- 'If Session("loginvar") <> True Then 'Response.Redirect("/bc/default.shtml") 'End If %>
![]() |
|
|
||||||||||||||||||||||||||||||
| Copyright © 2003-2009 KURIR
|