Filterungslimitfunktion für IP in ASP
<%
»Holen Sie sich die Adresse des Besuchers
IP = Request.Servervariables ("remote_addr")
'Die zulässigen IP -Adresssegmente sind 10.0.0.0 ~ 10.68.63.255
LEIDIP1 = "10.0.0.0"
LEIDIP2 = "10.68.10.71"
response.writecheckip (IP, erlaubig1, erlaubteIp2)
functionCheckip (ip, deglyip1, deglyip2)
Dimcheck (4)
checkip = false
ipstr = split (ip, ".")
erlauben1 = split (deglyIp1, ".")
erlauben2 = split (deglyiP2, ".")
ifcint (erlauben 1 (0))> cint (erlauben2 (0)) dann
„Stellen Sie einfach fest, ob das IP -Adresssegment legal ist
Antwort.Write "Es gibt einen Fehler im IP -Adresssegment!"
Ausgangsfunktion
Endif
fei = 0toubund (ipstr)
ifcint (erlauben 1 (i)) <cint (erlauben2 (i)) dann
ifcint (erlauben 1 (i)) = cint (ipstr (i)) dann
Überprüfen Sie (i) = true
checkip = true
ausgehen
Elseifcint (ipstr (i)) <cint (erlauben2 (i)) dann
Überprüfen Sie (i) = true
checkip = true
ausgehen
elseifcint (ipstr (i))> cint (erlauben2 (i)) dann
Überprüfen Sie (i) = false
checkip = false
ausgehen
anders
Überprüfen Sie (i) = true
checkip = true
Endif
Endif
Endif
elseifcint (degly (i))> cint (ipstr (i)) orcint (degly (i)) <cint (ipstr (i)) dann
Überprüfen Sie (i) = false
checkip = false
ifi <> ubund (ipstr) dann
ausgehen
Endif
anders
Überprüfen Sie (i) = true
Endif
Endif
nächste
if (prüfen (0) = TrueandCheck (1) = TrueandCheck (2) = TrueandCheck (3) = False) und (cint (erlauben 2))> cint (ipstr (2)))
checkip = true
Endif
Endfunktion
%>
<%
'Aufzeigen alle mit dem HTML -Formular übermittelten Werte
ForeachIteminRequest.Form
Response.writeRequest.form (Element)
Nächste
%>
Listen Sie alle mit HTML -Formularen übermittelten Werte auf
Verwenden Sie ASP, um Bildgröße zu erhalten
<%
imgpath = "default_22.gif"
setPP = newiNginfo
w = pp.imgw (server.mappath (imgpath))
H = pp.imgh (server.mappath (imgPath))
setpp = nichts
response.write "<imgsrc = '" & imgpath & "' border = 0> <br> Breite:" & w & "hoch:" & h
Classimginfo
Dimaso
PrivateSubclass_initialize
setAso = createObject ("adodb.stream")
ASO.MODE = 3
ASO.Type = 1
ASO.Open
Ende
PrivateSubclass_terate
err.clear
setaso = nichts
Ende
PrivateFunctionBin2str (bin)
Dimi, str