Función de límite de filtrado para IP en ASP
<%
'Obtenga la dirección del visitante
ip = request.serverVariAbles ("remota_addr")
'Los segmentos de dirección IP permitidos son 10.0.0.0 ~ 10.68.63.255
tampodip1 = "10.0.0.0"
tampodip2 = "10.68.10.71"
Response.WriteCheckip (IP, INSKIPTIP1, INSKING2)
FunctionCheckip (IP, INSKIP1, INSKING2)
DimCheck (4)
checkip = falso
IPSTR = Split (IP, ".")
permitir1 = dividir (tampable1, ".")
Illow2 = Split (INSHEWP2, ".")
ifcint (permiso1 (0))> Cint (permitido2 (0)) Entonces
'Simplemente determine si el segmento de direcciones IP es legal
Response.WRITE "¡Hay un error en el segmento de direcciones IP!"
extinción
endif
Fori = 0ToUbund (iPSTR)
ifcint (permiso1 (i)) <cint (permiso2 (i)) entonces entonces
ifcint (permiso1 (i)) = cint (iPSTR (i)) Entonces
comprobar (i) = verdadero
checkip = verdadero
salir
ElseifCint (IPSTR (i)) <Cint (permitido2 (i)) entonces
comprobar (i) = verdadero
checkip = verdadero
salir
ElseifCint (IPSTR (i))> Cint (permiso2 (i)) Entonces
comprobar (i) = falso
checkip = falso
salir
demás
comprobar (i) = verdadero
checkip = verdadero
endif
endif
endif
ElseifCint (Illow1 (i))> Cint (IPSTR (i)) Orcint (Illow1 (i)) <Cint (IPSTR (i)) Entonces
comprobar (i) = falso
checkip = falso
ifi <> ubund (iPStr) entonces
salir
endif
demás
comprobar (i) = verdadero
endif
endif
próximo
if (check (0) = TrueAndCheck (1) = TrueAndCheck (2) = TrueAndCheck (3) = falso) y (cint (permiso2 (2))> Cint (iPSTR (2))) Entonces
checkip = verdadero
endif
Función final
%>
<%
'Enum todos los valores enviados usando el formulario HTML
ForeachIteminRequest.Form
Response.Writequest.Form (ítem)
Próximo
%>
Enumere todos los valores enviados utilizando formularios HTML
Use ASP para obtener el tamaño de la imagen
<%
imgpath = "default_22.gif"
setpp = newimginfo
w = pp.imgw (server.mappath (imgpath))
h = pp.imgh (server.mappath (imgpath))
setpp = nada
respuesta.write "<imgsrc = '" & imgpath & "' border = 0> <br> ancho:" & w & "; alto:" & h
Classimginfo
dimaso
Privatesubclass_initialize
setaso = createObject ("ADODB.Stream")
aso.mode = 3
aso.type = 1
Aso. Abre
Endsub
Privatesubclass_merminate
Err.Clear
setaso = nada
Endsub
PrivateFunctionBin2str (bin)
Dimi, str