<%
function ip2num(sip)
dim str1,str2,str3,str4
dim num
ip2num=0
if isnumeric(left(sip,2)) then
str1=left(sip,instr(sip,".")-1)
sip=mid(sip,instr(sip,".")+1)
str2=left(sip,instr(sip,".")-1)
sip=mid(sip,instr(sip,".")+1)
str3=left(sip,instr(sip,".")-1)
str4=mid(sip,instr(sip,".")+1)
num=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1
ip2num = num
end if
end function
function num2ip(nip)
iip1 = int(nip/256/256/256)
iip2 = int((nip-iip1*256*256*256)/256/256)
iip3 = int((nip-iip1*256*256*256-iip2*256*256)/256)
iip4 = int((nip-iip1*256*256*256-iip2*256*256-iip3*256) mod 256)
iip0 = iip1 &"."& iip2 & "." &iip3 &"."& iip4
num2ip = iip0
end function
useripnum = ip2num(request.servervariables("remote_addr"))
if useripnum > ip2num("218.12.194.0") and useripnum < ip2num("218.12.194.255") then
response.write ("此ip被禁止")
response.end
'页面asp解释结束
end if
%>