<%
'**********************************
'Función: UserIP ()
'Parámetros: ninguno
'Autor: Alixi
'Fecha: 2007/7/12
'Descripción: obtenga la dirección IP del cliente
'Ejemplo: <%= userIP ()%>
'**********************************
FunctionUserIP ()
Dimgetclientip
'Si el cliente usa un servidor proxy, debe usar el método ServerVariAbles ("http_x_forwarded_for")
GetClientip = request.ServerVariables ("http_x_forwarded_for")
IfgetClientip = "" orisnull (getClientip) orisempty (getClientip) entonces
'Si el cliente no usa un proxy, el método request.serverVariables ("remote_addr") debe usarse
GetClientip = request.ServerVariables ("Remote_addr")
endif
Userip = getClientip
Función final
%>
Convertir la función de dirección IP
La copia del código es la siguiente:
<%
'**********************************
'Función: CIP (SIP)
'Parámetros: SIP, dirección IP
'Autor: Alixi
'Fecha: 2007/7/12
'Descripción: Convertir la función de dirección IP
'Ejemplo: <%= CIP ("219.16.73.120")%>
'**********************************
functionCip (SIP)
consejo = CSTR (SIP)
SIP1 = Izquierda (punta, cint (instr (punta ".")-1))
TIP = Mid (Tip, Cint (Instr (punta, ".")+1))
SIP2 = Izquierda (punta, cint (instr (punta ".")-1))
TIP = Mid (Tip, Cint (Instr (punta, ".")+1))
SIP3 = Izquierda (punta, cint (instr (punta ".")-1))
SIP4 = Mid (TIP, Cint (Instr (punta ".")+1))
CIP = Cint (SIP1)*256*256*256+Cint (SIP2)*256*256+Cint (SIP3)*256+Cint (SIP4)
Función final
%>