<%
'***********************************
'Função: userip ()
Parâmetros: Nenhum
'Autor: Alixi
Data: 2007/7/12
'Descrição: obtenha o endereço IP do cliente
'Exemplo: <%= userip ()%>
'***********************************
FunctionUserip ()
DimgetClientip
'Se o cliente usar um servidor proxy, ele deve usar o método ServerVariables ("http_x_forwarded_for")
GetClientip = request.servervariables ("http_x_forwarded_for")
IfgetClientip = "" ORISNULL (getClientip) orisEmpty (getClientip) então
'Se o cliente não usar um proxy, o método Request.ServerVariats ("Remote_addr") deve ser usado
GetClientip = request.servervariables ("remote_addr")
endif
Userip = getClientip
Função final
%>
Converter função de endereço IP
A cópia do código é a seguinte:
<%
'***********************************
'Função: CIP (SIP)
Parâmetros: SIP, endereço IP
'Autor: Alixi
Data: 2007/7/12
'Descrição: converter função de endereço IP
'Exemplo: <%= cip ("219.16.73.120")%>
'***********************************
functionCip (SIP)
TIP = CSTR (SIP)
sip1 = esquerda (dica, cint (instrum (tip, ".")-1)))
TIP = MID (TIP, CINT (Instr (Tip, ".")+1)))
sip2 = esquerda (dica, cint (instrum (tip, ".")-1)))
TIP = MID (TIP, CINT (Instr (Tip, ".")+1)))
sip3 = esquerda (dica, cint (instrum (tip, ".")-1)))
SIP4 = MID (TIP, CINT (Instr (Tip, ".")+1)))
cip = cint (sip1)*256*256*256+cint (sip2)*256*256+cint (sip3)*256+cint (sip4)
Função final
%>