<%
'*********************************
'Function: userip ()
'Параметры: нет
Автор: Аликси
Дата: 2007/7/12
'Описание: Получить IP -адрес клиента
Пример: <%= userip ()%>
'*********************************
FunctionUserip ()
DimgetClientip
'Если клиент использует прокси -сервер, он должен использовать метод ServerVariables ("http_x_forwarded_for")
GetClientip = request.servervariables ("http_x_forwarded_for")
IfgetClientip = "" orisnull (getClientip) orisempty (getClientip)
'Если клиент не использует прокси, следует использовать метод request.servervariables ("remote_addr")
GetClientip = request.servervariables ("remote_addr")
эндиф
Userip = getClientip
Конечная функция
%>
Конвертировать функцию IP -адреса
Кода -копия выглядит следующим образом:
<%
'*********************************
'Функция: CIP (SIP)
'Параметры: SIP, IP -адрес
Автор: Аликси
Дата: 2007/7/12
'Описание: конвертировать функцию IP -адреса
Пример: <%= cip ("219,16,73,120")%>
'*********************************
functionCip (SIP)
TIP = CSTR (SIP)
SIP1 = слева (TIP, CINT (instr (tip, ".")-1))
TIP = MID (TIP, CINT (instr (tip, ".")+1)))
SIP2 = слева (TIP, CINT (Instr (Tip, ".")-1))
TIP = MID (TIP, CINT (instr (tip, ".")+1)))
SIP3 = слева (TIP, CINT (instr (tip, ".")-1))
sip4 = mid (tip, cint (instr (tip, ".")+1))
cip = cint (sip1)*256*256*256+cint (sip2)*256*256+cint (sip3)*256+cint (sip4)
конечная функция
%>