?? ipcode.asp
字號(hào):
<%
'┌─ 風(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
%>
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -