Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

nspriscila

Erro de Path

Por , em ASP Clássico

Recommended Posts

nspriscila    0

nspriscila
Postado

Tenho um gerenciador de imagens que está funcionando bem na minha máquina, mas qdo eu publico no servidor eu não consigo acertar o path, podem me ajudar ?

 

 

Microsoft VBScript runtime error '800a004c'

Path not found

 

/pw2you/pc/arquivos_destaques.asp, line 45

ASP

[*]<% 

 

[*]Const ImageFilePath = "C:\Site\Pw2you\destaque\images"

 

[*]Const DeleteButtonLabel = "Excluir marcados" 

 

[*]Dim objFSO

 

[*]Dim objFolder

 

[*]Dim objFile 

 

[*]

 

[*]Dim strFileName

 

[*]Dim strFileExtension 

 

[*]

 

[*]Dim blnShowImages 

 

[*]

 

[*]If Request.QueryString("ShowImages") = "" Then 

 

[*]blnShowImages = False

 

[*]Else 

 

[*]blnShowImages = CBool(Request.QueryString("ShowImages"))

 

[*]End If

 

[*]

 

[*]If Request.Form("btnDelete") = DeleteButtonLabel Then 

 

[*]Set objFSO = Server.CreateObject("Scripting.FileSystemObject") 

 

[*]

 

[*]For Each strFileName In Request.Form("delete")

 

[*]objFSO.DeleteFile(ImageFilePath & "/" & _

 

[*]strFileName)

 

[*]Next

 

[*]

 

[*]Set objFSO = Nothing 

 

[*]End If

 

[*]%>

 

[*]<link rel="stylesheet" href="../estilo.css" type="text/css">

 

[*]

 

[*]<body bgcolor="#FFFFFF">

 

[*]<form action="<%= Request.ServerVariables("URL") %>" method="post">

 

[*]

 

[*] <table border="1" bordercolor=#f0f0f0 cellpadding=5 cellspacing=0

 

[*]bordercolorlight=silver bordercolordark=White>

 

[*] <tr> 

 

[*] <th class="text_black" bgcolor="#f0f0f0">Nome da imagem</th>

 

[*] <th class="text_black" bgcolor="#f0f0f0">Imagem<a href="<%= Request.ServerVariables("URL") %>?ShowImages=<%= Not blnShowImages %>" class="text_azul"> 

 

[*] (Mostrar/Esconder)</a></th>

 

[*] <th class="text_black" bgcolor="#f0f0f0">Excluir</th>

 

[*] </tr>

 

[*] <%

 

[*]Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

 

[*]Set objFolder = objFSO.GetFolder(ImageFilePath)

 

[*]

 

[*]For Each objFile In objFolder.Files

 

[*]strFileExtension = LCase(Mid(objFile.Name, InStrRev(objFile.Name, ".", -1, 1) + 1))

 

[*]

 

[*]If strFileExtension = "gif" Or strFileExtension = "jpg" Then 

 

[*]%>

 

[*] <tr> 

 

[*] <td class="text_black"> 

 

[*] <%= objFile.Name %> </td>

 

[*] <% 

 

[*]If blnShowImages Then 

 

[*]%>

 

[*] <td class="text_black"> <img src="<%= ImageFilePath & "/" & objFile.Name %>" /> 

 

[*] </td>

 

[*] <% 

 

[*]Else 

 

[*]%>

 

[*] <td> <a href="<%= ImageFilePath & "/" & objFile.Name %>" class="text_azul"> 

 

[*] Ver imagem</a> </td>

 

[*] <% 

 

[*]End If 

 

[*]%>

 

[*] <td align="center"> 

 

[*] <input type="checkbox" name="delete" value="<%= objFile.Name %>" />

 

[*] </td>

 

[*] <% 

 

[*]End If 

 

[*]Next

 

[*]

 

[*]Set objFolder = Nothing 

 

[*]Set objFSO = Nothing 

 

[*]%>

 

[*] <tr> 

 

[*] <td colspan="3" align="right" height="40"> 

 

[*] <div align="center">

 

[*] <input type="submit" name="btnDelete" value="<%= DeleteButtonLabel %>" class="botao">

 

[*] </div>

 

[*] </td>

 

[*] </tr>

 

[*] </table> 

 

[*]

 

[*]</form>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

bem é isso você deve colocar o caminho fisico da pasta no servidor ou usar o relativo com o server.mappath com foi mostrado acima

Compartilhar este post

Link para o post
Compartilhar em outros sites

nspriscila    0

nspriscila
Postado

não deu certo deu este erroMicrosoft VBScript compilation error '800a0415' Expected literal constant /pw2you/pc/arquivos_destaques.asp, line 2 Const ImageFilePath = Server.MapPath("destaque\images")----------------------------------------------------------------------------^

Compartilhar este post

Link para o post
Compartilhar em outros sites

nspriscila    0

nspriscila
Postado

Agora funcionou mas qdo eu clico na opção Mostrar/Esconder ele dá erro para visualizar as imagens e no link ver imagem tb....

 

Imagem Postada

 

ERRO:

 

Imagem Postada

 

Alguem pode me ajudar...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

abre o html gerado e verifica o caminho das imagens ali e compara com o que deveria haver...

Compartilhar este post

Link para o post
Compartilhar em outros sites

PlasmA    0

PlasmA
Postado

da uma verificada qnd ao endereço da imagem... tipo essa pagina que você esta rodando esta no mesmo diretorio das imagens, caso não adptar o dispositivo para chegar corretamente o endereço da imagem...

 

 

tipo se a pagina esta na raiz e a imagem esta em uma pastas dentro da raiz.. você tem q colocar algo tipo Server.mappath("/pasta/foto.jpg")

 

'isso retornaria um endereço tipo: http://www.seudominio.com.br/pasta/foto.jpg

caso o codigo seje excutado na raiz.

 

 

assim te mostraria a imagem caso a foto estivesse dentro da pasta "pasta"

Compartilhar este post

Link para o post
Compartilhar em outros sites

nspriscila    0

nspriscila
Postado

A minha estrutura de pasta está assim...página do código está em: pc/arquivo_destaque.aspe as imagens que eu quero exibir está em: destaque/images/Então o Server.MapPath está ("../destaque/images/")

Compartilhar este post

Link para o post
Compartilhar em outros sites

nspriscila    0

nspriscila
Postado

Pessoal já consegui.....muito obrigado pelas dicas....troquei a linha <img src="<%= ImageFilePath & "/" & objFile.Name %>" />por <img src="<%= "../destaue/images" & "/" & objFile.Name %>" />e deu certo...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Marcelo Barcellos    0

Marcelo Barcellos
Postado

Pessoal já consegui.....muito obrigado pelas dicas....

 

troquei a linha

 

<img src="<%= ImageFilePath & "/" & objFile.Name %>" />

 

por

 

<img src="<%= "../destaue/images" & "/" & objFile.Name %>" />

 

e deu certo...

<{POST_SNAPBACK}>

Putz...

Eu vacilei...

 

O Path da imagem também estava apontando por endereço físico...

O Endereço teria que ser o virtual..!!!!

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito