Ir para conteúdo

POWERED BY:

Arquivado

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

Francisco Lucivane

Upload com ASP

Por , em ASP Clássico

Recommended Posts

Francisco Lucivane    0

Francisco Lucivane
Postado

PESSOAL, GOSTARIA DE PUDESSEM ME AJUDAR, POIS ESTOU COM UM PROBLEMA PARA FAZER UPLOAD DA IMAGEM NO MEU SITE, QUANDO FAÇO O CADASTRO DO PRODUTO ELE CADASTRA NORMALMENTE, SÓ QUE A IMAGEM NÃO VAI PARA A PASTA ONDE DEVERIA.

 

SEGUE O CÓDIGO ABAIXO.

 

---------------------------------------------------------------------------------------------------

 

ASP
<!--#include file="conexao.asp"-->

<%

If Session("Perfil") = 1 or  Session("Perfil") = 2 Then

ok="Ok"

Else

response.Redirect("admin.asp")

End If

%>

<%

 

Response.Buffer = TRUE

Response.Expires = 90000

Response.Clear

Server.ScriptTimeout = 9000

 

pasta=Server.MapPath("../www/up_fotos/")

 

Dim UploadRequest

 

byteCount = Request.TotalBytes

RequestBin = Request.BinaryRead(byteCount)

Set UploadRequest = CreateObject("Scripting.Dictionary")

BuildUploadRequest  RequestBin

 

 

Extensao = UploadRequest.Item("imagem").Item("FileName")

categoria = UploadRequest.Item("categoria").Item("Value")

produto = UploadRequest.Item("produto").Item("Value")

descricao = UploadRequest.Item("descricao").Item("Value")

preco = UploadRequest.Item("preco").Item("Value")

quantidade = Cint(UploadRequest.Item("quantidade").Item("Value"))

vitrine = UploadRequest.Item("vitrine").Item("Value")

cod_produto = UploadRequest.Item("cod_produto").Item("Value")

 

Extensao = Right(Extensao,4)

Set rs = DB.EXecute("Select * From Produtos Where codigo_produto = "&cod_produto)

        If rs.EOF  = False Then

               

                response.Write("<script>alert('Produto já Cadastrado!');window.location='admin_incluir_produtos.asp';</script>")

                response.End()

        End If

Set rs = Nothing

       

 

'response.Write(Extensao)

'response.End()

If Extensao=".gif" or Extensao=".jpg" Then

SQL="Insert Into Produtos (codigo_produto,codigo_categoria,nome_produto,descricao_produto,preco_unitario,d

sponivel,vitrine) VALUES "

SQL = SQL &  "("&cod_produto&","

SQL = SQL &  ""&categoria&","

SQL = SQL &  "'" & produto & "',"

SQL = SQL &  "'" &  descricao & "',"

SQL = SQL &   "'" &  preco & "',"

SQL = SQL &     quantidade   & ","

If vitrine = "false" Then

SQL = SQL &   "false )"

Else

SQL = SQL &   "true )"

End If

' response.Write(SQL)

' response.End()

DB.execute(SQL)

 

Set rs = DB.execute("Select Max(codigo_produto) as codigo_registro From Produtos")

        produto_nome = rs ("codigo_registro")

rs.close

 

 

DB.execute("UPDATE Produtos Set url_imagem='"&produto_nome&Extensao& "' Where codigo_produto="&produto_nome)

 

 

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

 

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

 Set MyFile = ScriptObject.CreateTextFile(pasta&produto_nome&Extensao)

 For i = 1 to LenB(value)

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

 Next

 MyFile.Close

 

 

 

%>

<script language="javascript">

 

function Fecha(){

                setTimeout(window.location='admin_listar_produtos.asp',2000);

}

</Script>

<body onLoad="Fecha()">

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

  <tr bgcolor="#CCCCCC">

    <td bgcolor="#FF0000">

      <div align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF" size="3">Cadastro de Produtos </font></b></div>    </td>

  </tr>

</table>

<table choices="240" border="0" align="center" height="92" bgcolor="#CCCCCC">

  <tr bgcolor="#FFFFFF">

    <td>

      <div align="center"><b><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Cadatro efetuado <br>

        com sucesso !<br>

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

    </td>

  </tr>

</table>

</body>

<%

Else

%>

<script>

alert('Selecione uma imagem Valida (.GIF ou .JPG)');

history.back(-1)

</script>

<%End If%>

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

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ted k'    126

Ted k'
Postado

e a imagem está indo para onde, tem certeza que esse é o caminho correto?

 

Pelo que vi é só configuração de caminho mesmo!

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