<%
'********************************************************************************
'Obtener la dirección IP
'********************************************************************************
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 dirección IP
'********************************************************************************
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
'********************************************************************************
'Aparece el cuadro de diálogo
'********************************************************************************
Subalert (mensaje)
mensaje = reemplazar (mensaje, "'", "/'")
Response.Write ("<Script> Alert ('" & Message & "') </script>")
Endsub
'********************************************************************************
'Regrese a la página anterior, generalmente utilizada después de juzgar si la información se envía por completo
'********************************************************************************
Subgoback ()
Response.Write ("<Script> History.go (-1) </script>")
Endsub
'********************************************************************************
'Redirige otra conexión
'********************************************************************************
Subgo (URL)