Foros del Web - Ver Mensaje Individual - Detectar IP del DOMINIO y Directorio de la aplicac

Owen-Bonilla · #3 (**permalink**) 20/04/2002, 11:47

Código:

  &lt;title&gt;
Información de [ &lt;%=Request.ServerVariables(&quot;SERVER_NAME&quot;)%&gt;]
&lt;/title&gt;

&lt;%
If Request.ServerVariables(&quot;HTTPS&quot;) = &quot;off&quot; then ' off for example only
 Dim MyFSO, MyFiles, MySelf, MySelfTemp
 Dim MyPhysPath, MyRootPath, MyURLPath
 MySelf = Request.ServerVariables(&quot;SCRIPT_NAME&quot;)
 MyRootPath = Server.MapPath(MySelf)
 MySelfTemp = Replace(MySelf, &quot;/&quot;, &quot;\&quot;)
 MyRootPath = Replace(MyRootPath, MySelfTemp, &quot;\&quot;)
 Set MyFSO = CreateObject(&quot;Scripting.FileSystemObject&quot;)
 
 MyPhysPath = Request(&quot;MyPhysPath&quot;)
 If MyPhysPath = &quot;&quot; then
  MyPhysPath = MyRootPath
 Else
  MyPhysPath = MyPhysPath &amp;&quot;\&quot;
 End if
 
 Set MyFiles = MyFSO.GetFolder(MyPhysPath)
 MyDirName = MyFiles.Name
 MyURLPath = Replace(MyPhysPath, MyRootPath, &quot;/&quot;)
 MyURLPath = Replace(MyURLPath, &quot;\&quot;, &quot;/&quot;)
 
 Response.Write &quot;&lt;style type=text/css&gt;&quot;&amp; vbCrLf
 Response.Write &quot;td { font-size:11px; font-family: verdana, arial; font-weight: normal; color: #666666; background-color: #ffffff; }&quot;&amp; vbCrLf
 Response.Write &quot;a { font-size:11px; font-family: verdana, arial; font-weight: bold; color: #003366; }&quot;&amp; vbCrLf
 Response.Write &quot;&lt;/style&gt;&quot;
 Response.Write &quot;&lt;table border=0 cellspacing=1 cellpadding=5 align=center bgcolor=#cccccc&gt;&quot;&amp; vbCrLf
 Response.Write &quot;&lt;tr&gt;&lt;td colspan=3&gt;&lt;b&gt;Sitio:&lt;/b&gt; &quot;&amp; Request.ServerVariables(&quot;SERVER_NAME&quot;) &amp;&quot;&lt;/td&gt;&lt;/tr&gt;&quot;&amp; vbCrLf
 Response.Write &quot;&lt;tr&gt;&lt;td colspan=3&gt;&lt;b&gt;Directorio Virtual:&lt;/b&gt; &quot;&amp; MyURLPath &amp;&quot;&lt;/td&gt;&lt;/tr&gt;&quot;&amp; vbCrLf
 Response.Write &quot;&lt;tr&gt;&lt;td colspan=3&gt;&lt;b&gt;Directorio Fisico:&lt;/b&gt; &quot;&amp; MyPhysPath &amp;&quot;&lt;/td&gt;&lt;/tr&gt;&quot;&amp; vbCrLf

Owen Bonilla
Webmaster Weblaguna S. C.
[email protected]
[email protected]