绘声绘色类似的词语:怎么样可以限制别人的IP访问我的个人ASP空间?

来源:百度文库 编辑:杭州交通信息网 时间:2024/05/09 09:27:31
我的ASP空间要限制一些IP的人的访问
我知道他们的IP
怎么限制?

iplist="192.168.0.1,192.168.0.2"
ipa=split(iplist,",")
for i=0 to ubound(ipa)
if ipa(i)=myip then
response.write '请求拒绝'
break
end if
next

可以用正则表达式来做
<%
Function RegExpTest(patrn, strng)
Dim regEx, retVal ' 建立变量。
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = False ' 设置是否区分大小写。
retVal = regEx.Test(strng) ' 执行搜索测试。
If retVal Then
RegExpTest = true
Else
RegExpTest = false
End If
End Function

if(RegExpTest("(192)\.(168)\.(\d+)\.(\d+)", "192.168.0.1") ) then
%>
IP被限制拒绝访问
<%
else
%>
欢迎光临
<%
end if
%>