Jump to content

  2. →
  3. →

Photo

Como Descobrir O Caminho Do Servidor

Started By Morena, 09/12/2003, 00:53

  • Faça o login para participar
9 replies to this topic

#1 Morena

Morena

    Normal

  • Usuários
  • 71 posts
  • Sexo:Não informado

Posted 09/12/2003, 00:53

Oi galera, tudo bem ?

Eu já enviei um tópico assim, mas tem um tempão, tentei procurá-lo mas não encontrei.

Preciso descobrir o caminho do servidor e quando precisei o pessoal deste forum me passou um script com o nome CaminhoServidor.asp, que ao ser rodado no servidor, ele passava o caminho das pastas entre outras informações.

To querendo só para poder arrumar o meu DSN, pois faço as conexões usando o caminho do servidor... vcs entendem neh.

Resumindo... queria saber se alguém de vcs ainda tem este script para enviar pra mim ? Pois perdi o que eu tinha guardado, e só tinha esta cópia.

Se vcs não tiverem o script, mas souberem onde posso encontrar, tbm já ajuda muito.

Obrigada.

#2 Tarkan

Tarkan

    Powered by Linux - Que inglês! ;)

  • Ex-Admins
  • 651 posts
  • Sexo:Masculino
  • Localidade:Copacabana - RJ

Posted 09/12/2003, 01:50

Morena, tudo bem?

Seguinte...
Você pode usar esses 3 modos:

Response.Write Request.ServerVariables("SERVER_NAME")
--- Vai retornar o nome do host do servidor ou o endereço IP (por exemplo, www.wmonline.com.br ou o IP do mesmo).

Response.Write Request.ServerVariables("REMOTE_ADDR")
--- Vai retornar o endereço IP

Ou, se preferir, pode usar:
Response.Write Server.MapPath("../caminho_virtual")
--- Através do caminho virtual ou lógico, o documento retorna o caminho físico do servidor (por exemplo, c:\inetpub\www\pasta...)

Espero que tenha ajudado.
Se não for nada disso, pode reclamar... hehe... pode postar novamente! :)

Boa sorte!

Abraços!

:D
' nome: gustavo veiga
' profissão: ALOG Data Centers do Brasil (analista de sistemas)
' publicidade: ALOG Data Centers do Brasil

#3 Morena

Morena

    Normal

  • Usuários
  • 71 posts
  • Sexo:Não informado

Posted 09/12/2003, 09:45

Oi Tarkan, tudo bem?

Eu vou testar os códigos que vc passou, mas eu queria mesmo era o script, ele tinha várias funções, não lembro quem mandou, que pena que fui perder.

Mas muito obrigada assim mesmo.

Abraços.

#4 wozniak

wozniak

    Hands-On Founder

  • Usuários
  • 578 posts
  • Sexo:Masculino
  • Localidade:Rio de Janeiro / RJ

Posted 09/12/2003, 11:58

olha isso

<%
Dim arquivo As String

    arquivo = Request.PhysicalApplicationPath + "teste.txt"
    response.write (arquivo)
    
%>


t+
Cristiano Eugenio
===========
http://www.grupo5.com.br
http://thespoke.net/...ristianoeugenio

#5 Morena

Morena

    Normal

  • Usuários
  • 71 posts
  • Sexo:Não informado

Posted 10/12/2003, 17:02

Encontrei o meu script... desculpem mas não sei como colocar para pegar em anexo, então resolvi colocar o codigo aqui mesmo... se alguem precisar é esse:

<%@ LANGUAGE = VBScript %>
<% 'Copyright 2002 Comnecta Tecnologias, www.comnecta.com %>
<B>
<p align="center"><font face="Arial" 6"" size="4" color="#000080"> Sistema de
Reconhecimento de Servidores Web</font>
<FONT SIZE=""6"">
<p>Comnecta Tecnologias - Soluções em Internet</FONT></B><font face="Arial"><BR>
</font>
<font face="Arial"><FONT SIZE="2"><B>Versão 1.5</B><BR></font></font><font face="Arial" size="1"><b>Disponível
Somente para Servidores Web Windows</b></font></p>
<FONT SIZE="2"><HR>
<TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0" WIDTH="980"><TR><TD VALIGN="TOP" width="606" bgcolor="#CCCCCC"><font face="Arial"><B><small>Nome
     do Servidor: </small></B><small><font color="#0000FF"><% = Request.ServerVariables("SERVER_NAME") %></font><BR>
     </small><b><small>Nome do Script: </small></b><small><font color="#0000FF"><% = Request.ServerVariables("SCRIPT_NAME") %></font><BR>
     </small><B><small>Protocolo do Servidor: </small></B><small><font color="#0000FF"><% = Request.ServerVariables("SERVER_PROTOCOL") %></font><BR>
     </small><B><small>Pasta Local: </small></B><small><font color="#0000FF"><% = Request.ServerVariables("PATH_INFO") %></font><BR>
     </small><B><small>Endereço do Físico: </small></B><small><font color="#0000FF"><% = Request.ServerVariables("PATH_TRANSLATED") %></font><BR>
     </small><B><small>Referencia HTTP:// : </small></B><small><font color="#0000FF"><% = Request.ServerVariables("HTTP_REFERER") %>
     </font>
     </small>
     </font></font><font color="#0000FF" face="Arial" size="3"><a href="http://<% = Request.ServerVariables("SERVER_NAME") %>" target="_blank"><% = Request.ServerVariables("SERVER_NAME") %>
   </a>
   <br>
   </font><B><font face="Arial" size="2">Seu IP :</font><small><font face="Arial" SIZE="2">
   </font></small></B><font color="#0000FF" face="Arial" size="3"><%= request.servervariables("REMOTE_ADDR") %>    </font><small><font color="#0000FF"></font>
     </small>
<FONT SIZE="2"><font face="Arial"><small><BR>
     </small></font></font></TD><TD VALIGN="TOP" width="370" bgcolor="#CCCCCC">
<font size 4"" face="Arial"><b>Informações do Sistema</b></font>
<FONT SIZE="2"><font face="Arial"><BR>
<B><small>Sistema</small><small>: </B><font color="#0000FF"><% = ScriptEngine %></font><BR>
<B>Versão: </B><font color="#0000FF"><%  =ScriptEngineMajorVersion() %></font>.<font color="#0000FF"><% =ScriptEngineMinorVersion() %></font><BR>
</small><b><small>Atualizado:

</small> </b><small><font color="#0000FF"><% =ScriptEngineBuildVersion() %></font><BR><b>Tempo
de Respota do Servidor Web:</b><br>
</small><font color="#0000FF"><b><small><%
inicio = Timer
'... uma seqüência de comandos para medir a velocidade
response.write "Processado em " & FormatNumber( Timer - inicio, 2 ) & " segundos"
%>

</small></b></font></font>
 </font>
</TD></TR></TABLE>
<HR>
<font face="Arial"><B>
<FONT SIZE=""4"">CDONTS Object</FONT></B></font><font face="Arial"><B><font size 4"">:&nbsp;</font></B></font><FONT SIZE=""2""><font face="Arial">
<font color="#800000"><% Err.Clear
  On Error Resume Next
  Set objCDONTS = Server.CreateObject("CDONTS.Session")
  If Err.Number <> 0 Then
     Response.Write("<B>NÃO INSTALADO</B>&nbsp;&nbsp;")
  Else
     Response.Write("<B>Versão: </B>" & objCDONTS.Version & " INSTALADO&nbsp;&nbsp;")
  End If
%></font>
<BR>
</font>
<HR>
<font face="Arial">
<FONT SIZE=""4""><B>ADO DB Object:&nbsp;</B></FONT> <font color="#800000"><% Err.Clear
  On Error Resume Next
  Set objConn = Server.CreateObject("ADODB.Connection")
  If Err.Number <> 0 Then
     Response.Write("ADODB.Connection object <B>NÃO INSTALADO</B>")
  Else
     Response.Write("<B>Versão: </B>" & objConn.Version & "<BR>")
  End If
%></font></font>
<HR>
<FONT SIZE=""4""><B>File System Object</B></FONT><font face="Arial"> <font color="#800000">
<% Err.Clear
  On Error Resume Next
  Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
  If Err.Number <> 0 Then
     Response.Write("NÃO INSTALADO")
  Else
     Response.Write("INSTALADO")
  End If
%>
</font></font>
<HR>
<FONT SIZE=""4""><B>ASPMail Object</B></FONT><font face="Arial"> <font color="#800000">
<% Err.Clear
  On Error Resume Next
  Set objASPMail = Server.CreateObject("SMTPsvg.Mailer")
  If Err.Number <> 0 Then
     Response.Write("INSTALADA")
  Else
     Response.Write("VERSÃO INSTALADO " & objASPMail.Version )
     Response.Write("<BR><SMALL>EXPIRA EM:" & objASPMail.Expires & "</SMALL>" )
  End If
  Response.Write("<BR><FONT SIZE=""2"">Para Mais Informações <A HREF=""http://www.serverobjects.com"" TARGET=""RESOURCE WINDOW"">www.serverobjects.com</A></FONT>&nbsp;&nbsp;")
%>
</font> &nbsp;<BR>
</font>
<HR>
<FONT SIZE=""4""><B><font face="Arial">ASPImage Object</font></B></FONT><FONT SIZE=""2"">
<font face="Arial"> <font color="#800000">
<% Err.Clear
  On Error Resume Next
  Set objASPImage = Server.CreateObject("AspImage.Image")
  If Err.Number <> 0 Then
     Response.Write("NÃO INSTALADO")
  Else
     Response.Write("VERSÃO INSTALADA " & objASPImage.Version )
     Response.Write("<BR><SMALL>EXPIRA EM:" & objASPImage.Expires & "</SMALL>")      
  End If
  Response.Write("<BR><FONT SIZE=""2"">Para Mais Informações <A HREF=""http://www.serverobjects.com"" TARGET=""RESOURCE WINDOW"">www.serverobjects.com</A></FONT>")
%>
</font></font>
<HR>
<FONT SIZE=""4""><B>ASPUpload Object</B></FONT><font face="Arial"> <font color="#800000">
<% Err.Clear
  On Error Resume Next
  Set objASPUpload = Server.CreateObject("Persits.Upload.1")
  If Err.Number <> 0 Then
     Response.Write("NÃO INSTALADO")
  Else
     Response.Write("INSTALADO ")
  End If
  Response.Write("<BR><FONT SIZE=""2"">Para Mais Informações <A HREF=""http://www.persits.com"" TARGET=""RESOURCE WINDOW"">www.persits.com</A></FONT>")
%>
</font></font>
<HR>
<FONT SIZE=""4""><B>ASPEmail Object</B></FONT><font face="Arial"> <font color="#800000">
<% Err.Clear
  On Error Resume Next
  Set objASPEmail = Server.CreateObject("Persits.MailSender")
  If Err.Number <> 0 Then
     Response.Write("NÃO INSTALADO")
  Else
     Response.Write("INSTALADO ")
     Response.Write("<BR><SMALL>Expires On:" & objASPEmail.Expires & "</SMALL>")      
  End If
  Response.Write("<BR><FONT SIZE=""2"">Para Mais Informações <A HREF=""http://www.persits.com"" TARGET=""RESOURCE WINDOW"">www.persits.com</A></FONT>&nbsp;&nbsp;")
%>
</font> &nbsp;<BR>
</font>
<HR>
<FONT SIZE=""4""><B><font face="Arial">JMail Object</font></B></FONT><FONT SIZE=""2"">
<font face="Arial"> <font color="#800000">
<% Err.Clear
  On Error Resume Next
  Set objJMail = Server.CreateObject("JMail.SMTPMail")
  If Err.Number <> 0 Then
     Response.Write("NÃO INSTALADO")
  Else
     Response.Write("INSTALADO ")
  End If
  Response.Write("<BR><FONT SIZE=""2"">Para Mais Informações <A HREF=""http://www.dimac.net"" TARGET=""RESOURCE WINDOW"">www.dimac.net</A></FONT>&nbsp;&nbsp;")
%>
</font> &nbsp;<BR>
</font>
<HR>
<FONT SIZE=""4""><B><font face="Arial">Bamboo.SMTP Object</font></B></FONT><font face="Arial"><FONT SIZE=""2"">
<font color="#800000">
<% Err.Clear
  On Error Resume Next
  Set objBamboo = Server.CreateObject("Bamboo.SMTP")
  If Err.Number <> 0 Then
     Response.Write("NÃO INSTALADO")
  Else
     Response.Write("INSTALADO ")
  End If
  Response.Write("&nbsp;&nbsp;")
%>
</font>
</FONT>
<BR>
</font>
<HR>
<font 4"" face="Arial"><b>Informações desta Transmissão</b></font><font face="Arial"><FONT SIZE=""2"">
<font color="#000080"><%
  On Error Resume Next
  vRunDate = Now
  sRunDate = Request.QueryString("DATE")
  If Len(Trim(sRunDate)) = 0 Then
     sRunDate = Request.Form("DATE")
  End If
  Response.Write("<FONT SIZE=""2"">")
  If IsDate(sRunDate) Then
     vRunDate = CDate(sRunDate)
     Response.Write("<BR><FONT SIZE=""2"">RunDate:" & sRunDate)
  Else
     Response.Write("<BR>RunDate: Now")
  End If
  Response.Write("<BR>RunDate : " & vRunDate )
  Response.Write("<BR>CDate(RunDate) : " & CDate(vRunDate) )
  Response.Write("<BR>CDate("" & RunDate) : " & CDate("" & vRunDate) )
%></font>
</FONT>
<!-- Mostrar os 10 últimos visitantes -->
<%
Application.Lock
IF NOT isArray( Application( "lastTen" ) ) THEN
DIM dummy( 10, 3 )
Application( "lastTen" ) = dummy
END IF
lastTen = Application( "lastTen" )
Application.UnLock

' Mover cada visita abaixo no Array
IF lastTen( 9, 0 ) <> "" THEN
FOR i = 0 TO 9
lastTen( i, 0 ) = lastTen( i + 1, 0 )
lastTen( i, 1 ) = lastTen( i + 1, 1 )
lastTen( i, 2 ) = lastTen( i + 1, 2 )
NEXT
END IF

' Somar uma nova entrada
FOR i = 0 TO 9
IF lastTen( i, 0 ) = "" THEN
lastTen( i, 0 ) = Request.ServerVariables( "REMOTE_ADDR" )
lastTen( i, 1 ) = Request.ServerVariables( "HTTP_USER_AGENT" )
lastTen( i, 2 ) = NOW()
EXIT FOR
END IF
NEXT

Application.Lock
Application( "lastTen" ) = lastTen
Application.UnLock 

%>

<br>
</font>
</font></font></font>
<EM><font face="Arial" 2"" size="2"><b>Transmitido: <font color="#FF0000"> <% = Now %></font></b></font></em>
<FONT SIZE=""2""><p>&nbsp;</font><b><font face="Arial" 2"" size="2">Mostrar os
10 Últimos Acessos a este Script:</font></b>
<center>
</p>
<font face="Arial">
<div align="left">
<table bgcolor="#CCCCC0" cellspacing=0 cellpadding=3 border=1>
<tr bgcolor="lightyellow">
<td><font 2"" size="2" color="#000080"><b>Visitas</b></font></td>
<td><font 2"" size="2" color="#000080"><b>Direção IP</b></font></td>
<td><font 2"" size="2" color="#000080"><b>Browser</b></font></td>
<td><font 2"" size="2" color="#000080"><b>Hora de Visita</b></font></td>
</tr>
<FONT SIZE=""2"">
<FONT SIZE=""2"">
<FONT SIZE=""2"">
<% 
FOR i = 0 TO 9 
IF lastTen( i, 0 ) <> "" THEN
%>
</font></font>
</font>
<tr>
<td><font 2"" size="2"><b><%=i + 1%></b></font>&nbsp;</td>
<td><font 2"" size="2"><b><%=lastTen( i, 0 )%></b></font>&nbsp;</td>
<td><font 2"" size="2"><b><%=lastTen( i, 1 )%></b></font>&nbsp;</td>
<td><font 2"" size="2"><b><%=lastTen( i, 2 )%></b></font>&nbsp;</td>
</tr>
<FONT SIZE=""2"">
<FONT SIZE=""2"">
<FONT SIZE=""2"">
<%
END IF
NEXT
%>
</table>
</div>
<BR></font></font>
</font></font>
<EM><font size="1" face="Arial" 2""><BR></font><FONT SIZE=""2""><FONT SIZE=""2"">
<FONT SIZE="2"><CENTER><A HREF="http://www.comnecta.com">Copyright 2002 Comnecta Tecnologias - Soluções em Internet ®, Inc. All rights reserved.</A></CENTER></FONT>
</font>

* OBS: procure sempre usar o BBCODE ao postar como acima. Ex. 
seu codigo

Edição feita por: Agente Linhares, 29/12/2005, 08:53.

#6 Davis Tomé

Davis Tomé

    Normal

  • Usuários
  • 60 posts
  • Sexo:Não informado

Posted 29/12/2005, 08:51

Obrigado por compartilhar com a galera!!!

#7 Worm

Worm

    Veterano

  • Ex-Admins
  • 1343 posts
  • Sexo:Masculino
  • Localidade:São Paulo - SP
  • Interesses:Obter o maximo conhecimento.

Posted 30/12/2005, 08:21

olha isso

<%
Dim arquivo As String

    arquivo = Request.PhysicalApplicationPath + "teste.txt"
    response.write (arquivo)
    
%>


t+

PhysicalApplicationPath


Isso é usado no ASP ? ou no .Net ?

#8 Tarkan

Tarkan

    Powered by Linux - Que inglês! ;)

  • Ex-Admins
  • 651 posts
  • Sexo:Masculino
  • Localidade:Copacabana - RJ

Posted 30/12/2005, 16:40

.Net... :)
' nome: gustavo veiga
' profissão: ALOG Data Centers do Brasil (analista de sistemas)
' publicidade: ALOG Data Centers do Brasil

#9 Worm

Worm

    Veterano

  • Ex-Admins
  • 1343 posts
  • Sexo:Masculino
  • Localidade:São Paulo - SP
  • Interesses:Obter o maximo conhecimento.

Posted 03/01/2006, 14:47

.Net... :)

:D Valew

#10 mrbomber

mrbomber

    Novato no fórum

  • Usuários
  • 5 posts
  • Sexo:Não informado

Posted 11/05/2007, 09:29

opa, esse ai me ajudou tb !

Vlw
Voltar para ASP


1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

  1. Fórum WMO
  2. → Desenvolvimento
  3. → ASP
  4. Privacy Policy
  5. Regras ·
IPB Skin By Virteq