Español
Miré algunas funciones de restricción de IP y las encontré demasiado complicadas. Entonces, intenté escribir uno, que es relativamente simple. Internautas, consulten esta guía. ¡Gracias! ~
Cuadro de copia de código <% 'Obtener la dirección del visitante ip=Request.ServerVariables("REMOTE_ADDR") 'El rango de direcciones IP permitido es 10.0.0.0~10.68.63.255allowip1="10.0.0.0"allowip2="10.68.10.71"response.write checkip ( ip,allowip1,allowip2) función checkip(ip,allowip1,allowip2) dim check(4) checkip=false ipstr=split(ip,".") enable1=split(allowip1,".") enable2=split(allowip2, " .") if cint(allow1(0))>cint(allow2(0)) entonces 'Juzga si el segmento de dirección IP es respuesta legal.escribe "¡El segmento de dirección IP es incorrecto!" exit function end if for i=0 to ubound(ipstr) si cint(allow1(i))<cint(allow2(i)) entonces si cint(allow1(i))=cint(ipstr(i)) entonces check(i)=true checkip=true salir para else si cint(ipstr(i))<cint(allow2(i)) entonces check(i)=true checkip=true salir de lo contrario if cint(ipstr(i))>cint(allow2(i)) luego check(i) =falso checkip =falso salir para else check(i)=true checkip=true final si final si final si lo contrario si cint(allow1(i))>cint(ipstr(i)) o cint(allow1(i))<cint (ipstr(i)) luego check(i)=false checkip=false si i<>ubound(ipstr) luego salga para finalizar si no check(i)=true end if end if next if (check(0)=true y check(1)=true y check(2)=true y check(3)=false) y (cint(allow2(2))>cint(ipstr(2))) luego checkip=true fin si finaliza la función %>
