限制IP访问页面--限制IP

'''''''''''''''''''''''''''''''' 限制IP访问页面''''''''''''''''''''''''''''''' '``````作者：yonker QQ：451900800 Function IsBlockedIP() Dim UserIP Dim BlockedIParray(2) '分配ip在数组中 BlockedIParray(0) = "60.0.201.209" BlockedIParray(1) = "218.11.15.212" ' '获取访问者的IP UserIP = Request.ServerVariables("REMOTE_ADDR") ' loop through the Blocked IPs For i = 0 to UBound(BlockedIParray) If UserIP = BlockedIParray(i) Then Response.Redirect "index.asp" 'Response.Redirect "noaccess.asp" End If Next End Function