Filtrage de la fonction limite pour IP dans ASP
<%
'Obtenez l'adresse du visiteur
ip = request.servervariables ("reote_addr")
«Les segments d'adresse IP autorisés sont 10.0.0.0 ~ 10.68.63.255
allowip1 = "10.0.0.0"
allowip2 = "10.68.10.71"
réponse.WriteCheckip (IP, allowip1, allowip2)
FonctionCheckip (IP, allowip1, allowip2)
dimcheck (4)
Checkip = false
ipstr = split (ip, ".")
allow1 = divisé (allowip1, ".")
allow2 = se fendre (allowip2, ".")
ifcint (perte1 (0))> cint (perte2 (0)) puis
«Déterminez simplement si le segment d'adresse IP est légal
Response.Write "Il y a une erreur dans le segment d'adresse IP!"
sortie
endire
fori = 0Toubund (ipstr)
ifcint (perte1 (i)) <cint (perte2 (i)) puis
ifcint (perte1 (i)) = Cint (ipstr (i)) puis
vérifier (i) = vrai
Checkip = true
sortie
elseiFcint (ipstr (i)) <Cint (perte2 (i)) puis
vérifier (i) = vrai
Checkip = true
sortie
elseifcint (ipstr (i))> cint (perte2 (i)) puis
vérifier (i) = faux
Checkip = false
sortie
autre
vérifier (i) = vrai
Checkip = true
endire
endire
endire
elseifcint (allow1 (i))> cint (ipstr (i)) orcint (allow1 (i)) <cint (ipstr (i)) puis
vérifier (i) = faux
Checkip = false
ifi <> ubund (ipstr) puis
sortie
endire
autre
vérifier (i) = vrai
endire
endire
suivant
if (check (0) = trueandcheck (1) = trueandcheck (2) = trueandcheck (3) = false) et (cint (perte2 (2))> cint (ipstr (2))) puis
Checkip = true
endire
finition de fin
%>
<%
«Énuez toutes les valeurs soumises à l'aide du formulaire HTML
ForEachItemInRequest.Form
Réponse.writeRequest.form (item)
Suivant
%>
Énumérez toutes les valeurs soumises à l'aide de formulaires HTML
Utilisez ASP pour obtenir la taille de l'image
<%
imgpath = "default_22.gif"
setpp = newimbginfo
w = pp.imgw (server.mappath (imgpath))
h = pp.imgh (server.mappath (imgpath))
setpp = rien
réponse.Write "<imgsrc = '" & imgpath & "' border = 0> <br> largeur:" & w & "; high:" & h
Classimginfo
dimaso
PrivésubClass_Initialize
setaso = createObject ("adodb.stream")
aso.mode = 3
aso.type = 1
aso.open
Fin
PrivésUbclass_termince
err.Clear
setaso = rien
Fin
PrivateFunctionBin2str (bac)
Dimi, str