ASP의 IP에 대한 필터링 제한 기능
<%
'방문자의 주소를 얻으십시오
ip = request.servervariables ( "remote_addr")
'허용 된 IP 주소 세그먼트는 10.0.0.0 ~ 10.68.63.255입니다
allowip1 = "10.0.0.0"
allowip2 = "10.68.10.71"
response.writecheckip (ip, allowip1, allowip2)
functioncheckip (ip, allowip1, allowip2)
DIMCHECK (4)
checkip = false
ipStr = split (ip, ".")
allow1 = split (allowip1, ".")
allow2 = split (allowip2, ".")
ifcint (allow1 (0))> cint (allow2 (0))
'IP 주소 세그먼트가 합법적인지 확인하십시오
응답. "IP 주소 세그먼트에 오류가 있습니다!"
종료 기능
endif
fori = 0toubund (ipstr)
ifcint (allow1 (i)) <cint (allow2 (i))
ifcint (allow1 (i)) = cint (ipstr (i))
확인 (i) = true
checkip = true
exitfor
elseifcint (ipstr (i)) <incint (allow2 (i))
확인 (i) = true
checkip = true
exitfor
elseifcint (ipstr (i))> cint (allow2 (i))
(i) = false를 확인하십시오
checkip = false
exitfor
또 다른
확인 (i) = true
checkip = true
endif
endif
endif
elseifcint (allow1 (i))> cint (ipstr (i)) orcint (allow1 (i)) <cint (ipstr (i))
(i) = false를 확인하십시오
checkip = false
그런 다음 ifi <> ubund (ipstr)
exitfor
endif
또 다른
확인 (i) = true
endif
endif
다음
if (check (0) = trueandcheck (1) = trueandcheck (2) = trueandcheck (3) = false) 및 (cint (allow2 (2))> cint (ipstr (2)))
checkip = true
endif
최종 기능 장애
%>
<%
'ENUM HTML 양식을 사용하여 제출 된 모든 값
foreachiteminRequest.form
Response.writeRequest.form (항목)
다음
%>
HTML 양식을 사용하여 제출 된 모든 값을 나열하십시오
ASP를 사용하여 이미지 크기를 얻으십시오
<%
imgpath = "default_22.gif"
setpp = newimginfo
w = pp.imgw (server.mappath (imgpath))
h = pp.imgh (Server.mappath (imgpath))
setpp = 아무것도
response.write "<imgsrc = '"& imgpath & "'border = 0> <br> 너비 :"& w & "; High :"& h
classimginfo
디마소
privatesubclass_initialize
setaso = createobject ( "adodb.stream")
aso.mode = 3
aso.type = 1
ASO. OPEN
Endsub
privatesubclass_terminate
err.clear
setaso = 아무것도
Endsub
privateFunctionBin2str (bin)
Dimi, Str