Функция предела фильтрации для IP в ASP
<%
'Получите адрес посетителя
ip = request.servervariables ("remote_addr")
'Разрешенные сегменты IP -адресов составляют 10,0.0.0 ~ 10.68.63.255
Allingip1 = "10.0.0.0"
Allingip2 = "10.68.10.71"
response.writecheckip (ip, alluckip1, alluctip2)
functioncheckip (ip, allowip1, allowip2)
Dimcheck (4)
checkip = false
ipstr = split (ip, ".")
Allow1 = Split (Allingip1, ".")
Allow2 = Split (Allingip2, ".")
ifcint (Alling1 (0))> cint (Alling2 (0)) Then
'Просто определите, является ли сегмент IP -адреса законным
response.write "В сегменте IP -адреса есть ошибка!"
Выходная функция
эндиф
fori = 0toubund (ipstr)
ifcint (Alling1 (i)) <cint (Alling2 (i))
ifcint (Alling1 (i)) = cint (ipstr (i))
Проверьте (i) = true
checkip = true
Выход
elseifcint (ipstr (i)) <cint (Alling2 (i))
Проверьте (i) = true
checkip = true
Выход
elseifcint (ipstr (i))> cint (Alling2 (i))
Проверьте (i) = false
checkip = false
Выход
еще
Проверьте (i) = true
checkip = true
эндиф
эндиф
эндиф
elseifcint (Alling1 (i))> cint (ipstr (i)) orcint (Alling1 (i)) <cint (ipstr (i)))
Проверьте (i) = false
checkip = false
ifi <> ubund (ipstr) тогда
Выход
эндиф
еще
Проверьте (i) = true
эндиф
эндиф
следующий
if (проверить (0) = trueAndcheck (1) = trueAndcheck (2) = trueAndcheck (3) = false) и (cint (Allow2 (2))> cint (ipstr (2))) затем
checkip = true
эндиф
конечная функция
%>
<%
'Enum все значения, представленные с помощью HTML -формы
Foreachiteminrequest.form
Response.writeRequest.form (item)
Следующий
%>
Перечислите все значения, представленные с помощью 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
Заканчивая
PrivateBclass_terminate
err.clear
setaso = ничего
Заканчивая
Privatefunctionbin2str (bin)
DiMi, str