Upload

[Vazio 0]

ahe galera tudo bom??

 

 

e o seguinteeu peguei aqui no forum um código de upload de imagens no servidor sem componentes,

 

quando eu rodei na minha máquina foi beleza, mas depois que eu hospedei naum funcionou....

 

de um help ai pliz

 

utilizei os seguintes códigos:

 

Upload_funcoes.asp

<%' Upload Sem componentes ---------------------------------------Sub BuildUploadRequest(RequestBin)on error resume nextPosBeg = 1PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(13)))boundary = MidB(RequestBin, PosBeg, PosEnd - PosBeg)BoundaryPos = InStrB(1, RequestBin, boundary)Do Until (BoundaryPos = InStrB(RequestBin, boundary & getByteString("--")))Dim UploadControlSet UploadControl = CreateObject("Scripting.Dictionary")Pos = InStrB(BoundaryPos, RequestBin, getByteString("Content-Disposition"))Pos = InStrB(Pos, RequestBin, getByteString("name="))PosBeg = Pos + 6PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(34)))Name = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg))PosFile = InStrB(BoundaryPos, RequestBin, getByteString("filename="))PosBound = InStrB(PosEnd, RequestBin, boundary)If PosFile <> 0 And (PosFile < PosBound) ThenPosBeg = PosFile + 10PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(34)))FileName = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg))UploadControl.Add "FileName", FileNamePos = InStrB(PosEnd, RequestBin, getByteString("Content-Type:"))PosBeg = Pos + 14PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(13)))ContentType = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg))UploadControl.Add "ContentType", ContentTypePosBeg = PosEnd + 4PosEnd = InStrB(PosBeg, RequestBin, boundary) - 2Value = MidB(RequestBin, PosBeg, PosEnd - PosBeg)ElsePos = InStrB(Pos, RequestBin, getByteString(Chr(13)))PosBeg = Pos + 4PosEnd = InStrB(PosBeg, RequestBin, boundary) - 2Value = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg))End IfUploadControl.Add "Value", ValueUploadRequest.Add Name, UploadControlBoundaryPos = InStrB(BoundaryPos + LenB(boundary), RequestBin, boundary)LoopEnd SubFunction getByteString(StringStr)For i = 1 To Len(StringStr)Char = Mid(StringStr, i, 1)getByteString = getByteString & ChrB(AscB(Char))NextEnd FunctionFunction getString(StringBin)getString = ""For intCount = 1 To LenB(StringBin)getString = getString & Chr(AscB(MidB(StringBin, intCount, 1)))NextEnd Function' Fim upload sem Componentes -----------------------------------------%>

 

 

cadnot.asp

 

<form name="form1" action="upload_form2.asp" method="post" enctype="multipart/form-data">	<table border="0" align="center" cellpadding="5" cellspacing="0" bgcolor="#FFFFFF">				  <tr valign="baseline">					<td width="43" align="right" valign="middle" nowrap class="txt">Noticia:</td>					<td width="287"><textarea name="noticia" rows="5" class="input"></textarea>					</td>				  </tr>				  <tr valign="baseline">					<td align="right" valign="middle" nowrap class="txt">Fonte:</td>					<td><input name="fonte" type="text" class="input" value="" size="32">					</td>				  </tr>				  <tr valign="baseline">					<td align="right" valign="middle" nowrap class="txt">Foto1:</td>					<td>					<input name="foto" type="file" class="input" value="" size="32">					<input name="usuario" type="hidden" value="<%=Session("MM_Username")%>">															</td>				  </tr>				  <tr valign="baseline">					<td nowrap align="right"> </td>					<td><input type="submit" value="Cadastrar">					</td>					  				  </tr>				</table>				</form>

Upload_form2.asp

 

<!-- #include file = "upload_funcoes.asp" --><%' Chamando Funções, que fazem o Upload funcionarbyteCount = Request.TotalBytesRequestBin = Request.BinaryRead(byteCount)Set UploadRequest = CreateObject("Scripting.Dictionary")BuildUploadRequest RequestBin'data e horadata = datehora = time' Recuperando os Dados Digitados ----------------------noticia = UploadRequest.Item("noticia").Item("Value")fonte = UploadRequest.Item("fonte").Item("Value")user = UploadRequest.Item("usuario").Item("Value")' Tipo de arquivo que esta sendo enviadotipo_foto = UploadRequest.Item("foto").Item("ContentType")' Caminho completo dos arquivos enviadoscaminho_foto = UploadRequest.Item("foto").Item("FileName")' Nome dos arquivos enviadosnome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\"))' Conteudo binario dos arquivos enviadosfoto = UploadRequest.Item("foto").Item("Value")' pasta onde as imagens serao guardadaspasta = Server.MapPath("localhost/gerenciamento/noticias/")nome_foto = "/"&nome_foto' pasta + nome dos arquivoscfoto = "localhost/gerenciamento/noticias/" + nome_foto' Fazendo o Upload do arquivo selecionadoif foto <> "" thenSet ScriptObject = Server.CreateObject("Scripting.FileSystemObject")Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto)For i = 1 to LenB(foto)MyFile.Write chr(AscB(MidB(foto,i,1)))NextMyFile.Closeend if'' Conecta-se ao Banco de DadosSet Conn = Server.CreateObject("ADODB.Connection")Conn.Open("dsn=vionick;uid=vionick;pwd=vio123;")' cadastra os dados no banco de dadossql = "Insert into teste (noticia,data,hora,fonte,foto,user) values ('"& noticia &"', '"& data &"', '"& hora &"', '"& fonte &"', '"& cfoto &"', '"& user &"')"Conn.Execute(sql)' Mostra Mensagem de Confirmação na TelaResponse.write "Dados Cadastrados com Sucesso!"' Redireciona após 5 segundosresponse.write "<br><br>você será redirecionado em 5 segundos..<br>"response.write "<meta http-equiv='refresh' content='5; url=principal.asp'/>"%>

[jrcardozo 4]

qual erro?você alterou essa linha pra que fique compativel com o diretório no servidor? pasta = Server.MapPath("localhost/gerenciamento/noticias/")Deu permissão de escrita na pasta de imagens?

[Vazio 0]

Dá o seguinte erroInternal Server ErrorThe server encountered an internal error or misconfiguration and was unable to complete your request.Please contact the server administrator to inform of the time the error occurred and of anything you might have done that may have caused the error.More information about this error may be available in the server error log.e como assim pra ela ficar compatível com o servidor??não sei como fazer para dar permissão escrita.

[jrcardozo 4]

na linha que destaquei você coloca o caminho físico da locaweb e para dar permissões de escrita é só você acessar o painel de administração da locaweb, selecionar a pasta onde vai salvar as imagens e alterar os atributos de segurança que por padrão são somente leitura