Detectar IP del DOMINIO y Directorio de la aplicac

[Owen-Bonilla]

Código:

  Public Function DisplayFiles()
  Response.Write  "<tr><td style='background-color:#cfcfcf;'>Nombre Archivo</td><td style='background-color:#cfcfcf;'>Tipo de Archivo</td><td style='background-color:#cfcfcf;'>Tamaño del Archivo (Bytes)</td></tr>"& vbCrLf
  MyFileNum=0
  For Each File in MyFiles.Files
   Dim MyCurrentName, MyFileNum, MyFileSize, MyFileName
   Set MyCurrentName = MyFSO.GetFile(File)
   MyFileNum = MyFileNum+1
   MyFileSize = MyCurrentName.Size
   MyFileName = MyCurrentName.Name
   MyFileType = MyCurrentName.Type
   MyFileURL = Replace(MyPhysPath, MyRootPath, "/")
   MyFileURL = Replace(MyFileURL, "\", "/")
   MyFileURL = MyFileURL & MyFileName
   ' MyFileURL = Server.URLEncode(MyFileURL) messes up the code, i already tried =(
   Response.Write "<tr><td><img src=file.gif border=0 align=absolutemiddle> <a href='"& MyFileURL &"'>"& MyFileName &"</a></td><td>"& MyFileType &"</td><td>"& MyFileSize &"</td></tr>"& vbCrLf
   Set MyCurrentName = Nothing
  Next
 End Function
 
 Response.Write "<tr><td colspan=3><b>My IIS Admin Explorer.v1.0 Owen Bonilla</b></td></tr>"& vbCrLf
 Response.Write "</table>"& vbCrLf
 Set MyFSO = Nothing
Else
 Response.Write "Esta es una página segura!<br>Por Favor Use https:// Protocolo!"
End If
%>

Todo estos códigos copialos y guardalos en un solo archivo, y correlo en tu server. Espero y te sirva

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