<%
'***************************************************************
'Получите IP -адрес
'***************************************************************
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 -адрес
'***************************************************************
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)
Конечная функция
'***************************************************************
'Диалоговое окно появляется
'***************************************************************
Subalert (сообщение)
Сообщение = заменить (сообщение, "'", "/'")
Response.write ("<cript> alert ('" & message & "') </script>")
Заканчивая
'***************************************************************
'Вернитесь на предыдущую страницу, обычно используемой после оценки того, полностью ли представлена информация
'***************************************************************
Subgoback ()
Response.write ("<script> inistory.go (-1) </script>")
Заканчивая
'***************************************************************
'Перенаправить другое соединение
'***************************************************************
Subgo (url)