La colección de funciones comunes de ASP es desordenada y desorganizada

<%

'********************************************************************************

'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)