ip.asp

中国网站网贴吧程序源码（ASP+ACCESS） 实现功能： 多级分类查找,可按多级分类查找贴吧,多用户申请,任何人都可以申请自己的贴吧, 用户三种权限管理,1,普通会员,2,普通版主(只有管理自己的贴

<%
	Dim User_Ip
	User_Ip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
	If User_Ip = "" Then 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 Not (IpRS.bof or IpRS.eof) Then
	WhyIpLock=split(IpRS("iplock"),"|")
		response.write "<br><br><center><table border=1 cellpadding=20 bordercolor=black bgcolor=#EEEEEE width=450>"
		response.write "<tr><td style=font:9pt Verdana>"
		response.write "<font face=courier new size=2>非法操作！您的ＩＰ地址或网卡ＭＡＣ编码已被锁定↓<br>ＩＰ地址："&User_Ip&"<br>锁定时间："&WhyIpLock(0)&"<br>锁定原因："&WhyIpLock(1)&"<br>如有问题,请与管理员(QQ:"&HOST_OICQ&"-"&HOST_USER&")联系...</font>"
		response.write "</td></tr></table></center>"
		Response.End
	End If
	Set IpRS=Nothing
	End Sub
%>