Ir para conteúdo
Fórum Script Brasil
  • 0

O Upload Não Funciona So Na Maquina Local

Douglas Barbosa

Perguntado por Douglas Barbosa,

 Share

Pergunta

Douglas Barbosa

Douglas Barbosa

Postado
Postado

Pessoal estou com problema no upload que estou colocando no meu site, ele roda na minha maquina legal, pega o arquivo e envia para a pasta que está gravado, mas quando coloco no ar ele não roda , quando vou enviar a imagem ele me informa erro. A hospedagem usa como componente asp upload, será que tenho que fazer alguma alteração no codigo para que rode.

veja a pagina e tente simular uma operação

http://www.carapicuibaonline.com/upload/default1.asp

Espero que me ajudem.

Douglas

MSN - caracaswebsite@hotmail.com

Link para o comentário
Compartilhar em outros sites

12 respostass a esta questão

Posts Recomendados

  • 0
dark0

dark0

Postado
Postado

ao enviar a pagina, ele vai pra essa pagina:

http://www.carapicuibaonline.com/upload/outputFile1.asp

e dá esse erro:

Active Server Pages erro 'ASP 0126'

Arquivo de inclusão não encontrado

/upload/outputFile1.asp, line 87

O arquivo de inclusão '../../Inetpub/wwwroot/carapicuiba/upload/upload.asp' não foi encontrado.

Se você ler o erro, vai ver que ta errado o codigo aí..

Poste o trecho do codigo que ta com erro pra gente ver

Link para o comentário
Compartilhar em outros sites
  • 0
Douglas Barbosa

Douglas Barbosa

Postado
  • Autor
Postado

Eu alterei a linha e mesmo assim não funcionou segue abaixo o codigo completo

<%
Response.Expires=0
Response.Buffer = TRUE
Response.Clear
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")

BuildUploadRequest  RequestBin

contentType = UploadRequest.Item("blob").Item("ContentType") 
filepathname = UploadRequest.Item("blob").Item("FileName") 
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\")) 
filename = Replace(filename,".","_"& rndit &".") 
value = UploadRequest.Item("blob").Item("Value")

 Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

 pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
       Set MyFile = ScriptObject.CreateTextFile("D:\WEB\carapicuibaonline\www\upload\"&filename)
   'Set MyFile = ScriptObject.CreateTextFile("D:\WEB\carapicuibaonline\www\upload"&filename)
   'Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&"\"&filename)

 For i = 1 to LenB(value) 
  MyFile.Write chr(AscB(MidB(value,i,1)))
 Next
 MyFile.Close
'renomeia ao arquivo
Function rndit()
	Dim RndTemp 
	Randomize 
	RndTemp = Rnd * 10000 
	RndTemp= Int(RndTemp) 
	rndit = RndTemp 
End Function 
PasswordTemp = rndit() 
%>
<title>Upload</title>
<body bgcolor="#FFFFFF" link="#0000FF" vlink="#0000FF" alink="#0000FF">
<font size="1" face="Tahoma"><br>
<%
codigo = PasswordTemp
%>
<%session("codigo1")= codigo %>
</font> 
<table width="75%" border="0" align="center" bgcolor="#999999">
  <tr bgcolor="#CCCCCC"> 
    <td bgcolor="#E5E5E5"> 
      <div align="center"><font size="1" face="Tahoma"><b><font color="#990000">Upload 
        Concluido</font></b></font></div>
    </td>
  </tr>
</table>
<table width="100%" border="0" align="center" bgcolor="#CCCCCC">
  <tr bgcolor="#FFFFFF"> 
    <td height="163" bgcolor="#DFEFFF"> 
      <div align="center"><font size="1" face="Tahoma"><b>O nome do arquivo: <br>
        <font color="#990000"><%= filename%> </font><br>
        <%session("filename1")= filename %>
        <br>
        Upload foi concluido com exito.<br>
        <br>
        </b> </font></div>
      <table width="97%" border="0" cellspacing="0" cellpadding="0" align="CENTER">
        <tr> 
          <td height="20" align="CENTER" bgcolor="#A6D2FF"> 
            <center>
              <font size="1" face="Tahoma"><a href="javascript:top.close(self);" ('fechar','','../imagens/fechar2.jpg',1)"><b>Fechar</b></a> 
              <b>&nbsp;| <a href="http://www.carapicuibaonline.com/upload/default1.asp">Enviar outro Arq</a></b></font> 
              <b></b> 
            </center>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<font size="1" face="Tahoma"> 
<!--#include file="D:\WEB\carapicuibaonline\www\upload\upload.asp"-->
<br>
</font>

Link para o comentário
Compartilhar em outros sites
  • 0
dark0

dark0

Postado
Postado (editado)

na linha 87 tambem coloquei

<!--#include file="http://www.carapicuibaonline.com/upload/upload.asp"-->

e não deu certo.

mad.gif

brother, nesta linha, coloque somente

<!--#include file="upload.asp"-->

Editando...

<%

Response.Expires=0

Response.Buffer = TRUE

Response.Clear

byteCount = Request.TotalBytes

RequestBin = Request.BinaryRead(byteCount)

Dim UploadRequest

Set UploadRequest = CreateObject("Scripting.Dictionary")

BuildUploadRequest  RequestBin

contentType = UploadRequest.Item("blob").Item("ContentType")

filepathname = UploadRequest.Item("blob").Item("FileName")

filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))

filename = Replace(filename,".","_"& rndit &".")

value = UploadRequest.Item("blob").Item("Value")

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14

      Set MyFile = ScriptObject.CreateTextFile("D:\WEB\carapicuibaonline\www\upload\"&filename)  'Set MyFile = ScriptObject.CreateTextFile("D:\WEB\carapicuibaonline\www\upload"&filename)

  'Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&"\"&filename)

For i = 1 to LenB(value)

MyFile.Write chr(AscB(MidB(value,i,1)))

Next

MyFile.Close

'renomeia ao arquivo

Function rndit()

Dim RndTemp

Randomize

RndTemp = Rnd * 10000

RndTemp= Int(RndTemp)

rndit = RndTemp

End Function

PasswordTemp = rndit()

%>

<title>Upload</title>

<body bgcolor="#FFFFFF" link="#0000FF" vlink="#0000FF" alink="#0000FF">

<font size="1" face="Tahoma"><br>

<%

codigo = PasswordTemp

%>

<%session("codigo1")= codigo %>

</font>

<table width="75%" border="0" align="center" bgcolor="#999999">

<tr bgcolor="#CCCCCC">

  <td bgcolor="#E5E5E5">

    <div align="center"><font size="1" face="Tahoma"><b><font color="#990000">Upload

      Concluido</font></b></font></div>

  </td>

</tr>

</table>

<table width="100%" border="0" align="center" bgcolor="#CCCCCC">

<tr bgcolor="#FFFFFF">

  <td height="163" bgcolor="#DFEFFF">

    <div align="center"><font size="1" face="Tahoma"><b>O nome do arquivo: <br>

      <font color="#990000"><%= filename%> </font><br>

      <%session("filename1")= filename %>

      <br>

      Upload foi concluido com exito.<br>

      <br>

      </b> </font></div>

    <table width="97%" border="0" cellspacing="0" cellpadding="0" align="CENTER">

      <tr>

        <td height="20" align="CENTER" bgcolor="#A6D2FF">

          <center>

            <font size="1" face="Tahoma"><a href="javascript:top.close(self);" ('fechar','','../imagens/fechar2.jpg',1)"><b>Fechar</b></a>

            <b>&nbsp;| <a href="http://www.carapicuibaonline.com/upload/default1.asp">Enviar outro Arq</a></b></font>

            <b></b>

          </center>

        </td>

      </tr>

    </table>

  </td>

</tr>

</table>

<font size="1" face="Tahoma">

<!--#include file="D:\WEB\carapicuibaonline\www\upload\upload.asp"-->

<br>

</font>

O que é a linha em vermelho?

Editado por dark0
Link para o comentário
Compartilhar em outros sites
  • 0
dark0

dark0

Postado
Postado
Não sei lhe dizer, já peguei o script pronto, mas deve ser o local onde o arquivo deve ser enviado (pasta).

blza.

Fez a alteração que eu falei?

então.. aquele caminho todo lá... D:\Web... Existe no seu servidor?

Se não existir, vai dar erro..

Link para o comentário
Compartilhar em outros sites
  • 0
dark0

dark0

Postado
Postado

nenhum dos dois

você usa somente o NOME DA PAGINA.ASP

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,1k
    • Posts
      651,8k
×
×
  • Criar Novo...