
<!--#include file="Inc/Const.asp" -->
<!--#include file="Inc/iXs_Ip.asp" -->
<%
Response.Expires = 0 
Response.Expiresabsolute = now() - 1 
Response.AddHeader "pragma","no-cache" 
Response.AddHeader "cache-control","private" 
Response.CacheControl = "no-cache" 
%> 
<%
Dim sType, IpStr, Action ,canshu,a,b,c,d

Action = iXs.ReqNum("Action")
If Action = "" Then Action = 0

If Action = 0 Then
	sType = iXs.ReqNum("sType")
	If sType = "" Then sType = 0
	canshu=GetIpInfoAv(iXs.ReqIp(), sType)
	a="大连"
	if instr(canshu,a)<>0 and session("usercheck")<>"1" then
		response.Write("window.open(""" & "admin/login.asp" & """,""" & "_self" & """);")
	end if

Else
	
End If

%>