Tema: Detectar IP del DOMINIO y Directorio de la aplicac
Ver Mensaje Individual
  #4 (permalink)  
Antiguo 20/04/2002, 11:50
Owen-Bonilla
 
Fecha de Ingreso: mayo-2001
Ubicación: Monterrey, N.L.; México
Mensajes: 558
Antigüedad: 23 años, 9 meses
Puntos: 0
Re: Detectar IP del DOMINIO y Directorio de la aplicac
Código: 
  Response.Write "<tr><td colspan=3>"& vbCrLf
 Response.Write MyFileNum &" Archivos y "& MySubNum &" Sub Directorio en el Directorio Actual<br><br>"& vbCrLf
 

 Response.Write "<a href='"& MySelf &"'>Directorio del Servidor Remoto</a><br><p>"& vbCrLf
 Response.Write "<a href=javascript:history.go(-1);>Atras</a><br>"& vbCrLf
 Response.Write "</td></tr>"& vbCrLf

 Response.Write "<tr><td colspan=3><a href='"& MySelf &"?Display=SerVars'>Información del Servidor...</a></td></tr>"& vbCrLf
 
 Display = Request("Display")
 Select Case Display
  Case "SerVars": SerVarsNFO()
  Case Else: 
   DisplayFolders()
   DisplayFiles()
 End Select
 
 Public Function SerVarsNFO()
  For Each Item in Request.ServerVariables
   Response.Write "<tr><td>" & Item & "</td><td colspan=2> " & Request.ServerVariables(Item) & "</td></tr>"& vbCrLf
  Next
 End Function
 
 Public Function DisplayFolders()
  Response.Write  "<tr><td colspan=2 style='background-color:#cfcfcf;'>Nombre del Sub Directorio</td><td style='background-color:#cfcfcf;'>Sub Dir Size (Bytes)</td></tr>"& vbCrLf
  MySubNum = 0
  For Each Folder in MyFiles.SubFolders
   Dim MyCurrentSub, MySubSize, MySubName
   Set MyCurrentSub = MyFSO.GetFolder(Folder)
   MySubNum = MySubNum+1
   MySubSize = MyCurrentSub.Size
   MySubName = MyCurrentSub.Name
   MyDirURL = MySelf &"?MyPhysPath="& MyPhysPath & MySubName
   Response.Write "<tr><td colspan=2><img src=folder.gif border=0 align=absolutemiddle> <a href='"& MyDirURL &"'>"& MySubName &"</a></td><td>"& MySubSize &"</td></tr>"& vbCrLf
   Set MyCurrentSub = Nothing
  Next
 End Function
Owen Bonilla
Webmaster Weblaguna S. C.
[email protected]
[email protected]