ipcode.asp

社区天地图文系统(核心:尘缘雅境图文系统) 版本: 1.0 本系统是ASP+ACCESS环境下开发成功

<!--#include file="IPConn.Asp"-->
<%
	Dim User_Ip
	User_Ip=Request.servervariables("REMOTE_ADDR")
	call IpLock(User_Ip)
	Sub IpLock(User_Ip)
	Dim IpArray,WhyIpLock
	IpArray=split(User_Ip,".")
	Dim IpSQL,IpRS
	IpSQL="SELECT iplock From IpLock Where  "& _
	" (ipsame=4 and ip1="&Cint(IpArray(0))&" and ip2="&Cint(IpArray(1))&" and ip3="&Cint(IpArray(2))&" and ip4="&Cint(IpArray(3))&" )  "& _
	" Or (ipsame=3 and  ip1="&Cint(IpArray(0))&"  and  ip2="&Cint(IpArray(1))&"  and  ip3="&Cint(IpArray(2))&" )   "& _
	" Or (ipsame=2 and ip1="&Cint(IpArray(0))&" and ip2="&Cint(IpArray(1))&" )   "& _
	" Or (ipsame=1 and ip1="&Cint(IpArray(0))&" ) Order By ipid "
	Set IpRS=Conn.execute(IpSQL)
	If (IpRS.bof or IpRS.eof) Then
	WhyIpLock=split(IpRS("iplock"),"|")
		Response.Write"<BR><ol>你使用的IP段或IP地址已被封锁"
		Response.Write"<Li>封锁原因:"&WhyIpLock(1)
		Response.Write"<LI>封锁时间:"&WhyIpLock(0)
		Response.Write"<LI>请与<a href=mailto:[e-mail]>管理员(枫树)</a>联系</ol>"
		Response.End
	End If
	Set IpRS=Nothing
	End Sub
%>