<%
'┌─  風(fēng)云ASP在線  ────────────────────────┐
'│                                                                 │
'│  作者：趙振波.	http://www.fyasp.com	    				    │
'│                                                                 │
'│   Q Q：176189168  										   	    │
'│                                                                 │
'│ Email：fy96@163.com                                             │
'│                                                                 │
'│ 程序定做，系統(tǒng)開(kāi)發(fā)，網(wǎng)站制作，提供高質(zhì)量的網(wǎng)絡(luò)產(chǎn)品、技術(shù)和服務(wù)！│
'│                                                                 │
'│【版權(quán)聲明】                                                     │
'│                                                                 │
'│     本程序版權(quán)歸坐看風(fēng)云所有，未經(jīng)授權(quán)擅自修改、復(fù)制或散布本程序│
'│                                                                 │
'│的部分或全部，將承受嚴(yán)厲的民事和刑事處罰，對(duì)已知的違反者將給予法 │
'│                                                                 │
'│律范圍內(nèi)的全面制裁。對(duì)非法使用此程序所造成的一切后果本人概不負(fù)責(zé)!│
'│                                                                 │
'└───────────────────  http://www.fyasp.com ──┘
%><%
	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 Not (IpRS.bof or IpRS.eof) Then
	WhyIpLock=split(IpRS("iplock"),"|")
		Response.Write"<BR><ol>你使用的IP段或IP地址已被封鎖"
		Response.Write"<Li>封鎖原因:"&WhyIpLock(1)
		Response.Write"<LI>封鎖時(shí)間:"&WhyIpLock(0)
		Response.Write"<LI>請(qǐng)與<a href=mailto:fy@sogou.com>管理員(坐看風(fēng)云)</a>聯(lián)系</ol>"
		Response.End
	End If
	Set IpRS=Nothing
	End Sub
%>