Alguien tiene un codigo ASP que muestre todos los datos del visitante en una pagina como..
Alguien tiene un codigo ASP que muestre todos los datos del visitante en una pagina como IP, proveedor, y todos los datos de su coneccion y su computadora.
Asi sabra que se quien es.
Muchisimas gracias, Sandra
Asi sabra que se quien es.
Muchisimas gracias, Sandra
Puedes utilizar la coleccion request.servervariables() que devuelve algunos datos dependiendo de lo que pongas en los parentesis. Por ejemplo:
<HTML>
<HEAD>
<TITLE>Variables del servidor</TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF">
<%
Response.Write("<PRE>" & vbCrLf)
Response.Write("ALL_HTTP: " & Request.ServerVariables("ALL_HTTP") & "<BR>")
Response.Write("</PRE>" & vbCrLf)
Response.Write("<HR>" & vbCrLf)
Response.Write("HTTP_ACCEPT_LANGUAGE: " &
Request.ServerVariables("HTTP_ACCEPT_LANGUAGE") & "<BR>")
Response.Write("HTTP_USER_AGENT: " &
Request.ServerVariables("HTTP_USER_AGENT") & "<BR>")
Response.Write("REMOTE_ADDR: " &
Request.ServerVariables("REMOTE_ADDR") & "<BR>")
Response.Write("REMOTE_HOST: " &
Request.ServerVariables("REMOTE_HOST") & "<BR>")
Response.Write("URL: " & Request.ServerVariables("URL") & "<BR>")
Response.Write("<HR>" & vbCrLf)
If InStr(Request.ServerVariables("HTTP_ACCEPT_LANGUAGE"), "es") > 0
Then
Response.Write("Se elige el idioma espaol")
Else
Response.Write("Se elige otro idioma")
End If
%>
</BODY>
</HTML>
<HTML>
<HEAD>
<TITLE>Variables del servidor</TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF">
<%
Response.Write("<PRE>" & vbCrLf)
Response.Write("ALL_HTTP: " & Request.ServerVariables("ALL_HTTP") & "<BR>")
Response.Write("</PRE>" & vbCrLf)
Response.Write("<HR>" & vbCrLf)
Response.Write("HTTP_ACCEPT_LANGUAGE: " &
Request.ServerVariables("HTTP_ACCEPT_LANGUAGE") & "<BR>")
Response.Write("HTTP_USER_AGENT: " &
Request.ServerVariables("HTTP_USER_AGENT") & "<BR>")
Response.Write("REMOTE_ADDR: " &
Request.ServerVariables("REMOTE_ADDR") & "<BR>")
Response.Write("REMOTE_HOST: " &
Request.ServerVariables("REMOTE_HOST") & "<BR>")
Response.Write("URL: " & Request.ServerVariables("URL") & "<BR>")
Response.Write("<HR>" & vbCrLf)
If InStr(Request.ServerVariables("HTTP_ACCEPT_LANGUAGE"), "es") > 0
Then
Response.Write("Se elige el idioma espaol")
Else
Response.Write("Se elige otro idioma")
End If
%>
</BODY>
</HTML>