% userip = Request.ServerVariables ("HTTP_X_FORWARDED_FOR") If userip = "" Then userip = Request.ServerVariables ("REMOTE_ADDR") End if %> <% Set FSO = Server.CreateObject("Scripting.FileSystemObject") Set RS = FSO.GetFile(Server.MapPath("acceso.asp")) modificado = RS.DateLastModified Response.AddHeader "Last-modified",FormatDateTime(modificado,1) Response.Expires=1440 %> <% Set RS = Nothing Set FSO = Nothing %>
|
| SOPORTE ONLINE |
<% = Time() %>
|
Tu IP: <%=userip%> |
|
|||||
|
|
|
|
|