Ir para conteúdo

POWERED BY:

Arquivado

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

Reinaldo

Asp upLoad

Por , em ASP Clássico

Recommended Posts

Reinaldo    0

Reinaldo
Postado

Podem me ajudar a fazer esse codigo gravar o nome da imagem e dos demais cammpos no banco de dados.

grato.

 

CODE

 

' Cria uma instância do controle

 

Set objUpload = Server.CreateObject("Persits.Upload.1")

 

'Não sobrevescrever arquivos

 

objUpload.OverwriteFiles = False

 

On Error Resume Next

 

 

objUpload.SetMaxSize 1048576

 

 

Count =objUpload.Save("c:\xxxxxxxxxxx\xxxxxxxxxx\xxxxxxxxx\xxxxxxxxxxx\imagem\servicos")

 

 

if objUpload.Form("serv") = "ok" Then

 

 

varfoto = objUpload.FileName(objUpload.Files(0).Path)

varfoto = objUpload.Form("foto")

vartitulo = objUpload.Form("titulo")

varconteudo = objUpload.Form("conteudo")

 

sql="INSERT INTO servicos (titulo,conteudo,img)VALUES('"&vartitulo&"','"&varconteudo&"','"&varfoto&"')"

rs = conexao.execute(sql)

 

 

Response.Write "<script>alert('Seus dados foram carregados com sucesso!')</script>"

Response.Write "<script>top.location='CadastraServico.asp'</script>"

 

 

Set objUpload = Nothing

 

If Err <> 0 Then

Response.Write "Erro. " & Err.Description

Else

Response.Write "Upload realizado com sucesso."

End If

 

End if

Compartilhar este post

Link para o post
Compartilhar em outros sites

lezão    0

lezão
Postado

Ola reginaldo boa tarde cara usa estes codigos aki

 

você cria um form do seu jeito e usa este codigo ok

 

 

 

upload_form2.asp

 

<!-- #include file = "upload_funcoes.asp" -->
<%
' Chamando Funções, que fazem o Upload funcionar
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin

' Recuperando os Dados Digitados ----------------------
nome = UploadRequest.Item("nome").Item("Value")
descricao = UploadRequest.Item("descricao").Item("Value")
valor = UploadRequest.Item("valor").Item("Value")
data = (date)

' Tipo de arquivo que esta sendo enviado
tipo_foto = UploadRequest.Item("foto").Item("ContentType")

' Caminho completo dos arquivos enviados
caminho_foto = UploadRequest.Item("foto").Item("FileName")

' Nome dos arquivos enviados
nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\"))

' Conteudo binario dos arquivos enviados
foto = UploadRequest.Item("foto").Item("Value")

' pasta onde as imagens serao guardadas
pasta = Server.MapPath("imagens/")
nome_foto = "/"&nome_foto

' pasta + nome dos arquivos
cfoto = "imagens/" + nome_foto

'---foto_grd---
' Tipo de arquivo que esta sendo enviado
tipo_foto_grd = UploadRequest.Item("foto_grd").Item("ContentType")

' Caminho completo dos arquivos enviados
caminho_foto = UploadRequest.Item("foto_grd").Item("FileName")

' Nome dos arquivos enviados
nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\"))

' Conteudo binario dos arquivos enviados
foto = UploadRequest.Item("foto_grd").Item("Value")

' pasta onde as imagens serao guardadas
pasta = Server.MapPath("imagens/")
nome_foto = "/"&nome_foto

' pasta + nome dos arquivos
cfoto_grd = "imagens/" + nome_foto

'---Fim---

' Fazendo o Upload do arquivo selecionado
if foto <> "" then
Set 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)))
Next
MyFile.Close
end if

' Conecta-se ao Banco de Dados
url_conexao = Server.MapPath("banco.mdb")
set conexao = Server.CreateObject("ADODB.Connection")
conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao 

' cadastra os dados no banco de dados
sql = "Insert into produtos (nome,descricao,valor,foto,foto_grd,data) values ('"& nome &"', '"& descricao &"', '"& valor &"', '"& cfoto &"', '"& cfoto_grd &"', '"& data &"')"
Conexao.Execute(sql)

' Mostra Mensagem de Confirmação na Tela
Response.write "<center><font face=Verdana, Arial, Helvetica, sans-serif size=2><color= #ff0000><b>Dados cadastrados com sucesso!</b></center></font>"

' Redireciona após 5 segundos

response.write "<meta http-equiv='refresh' content='2; url=prod1.asp'/>"
%>

<head>
<title></title>
</head>

<body background="imagens/fundos_azul.gif">



---upload_funcoes.asp


<%
' Upload Sem componentes ---------------------------------------
Sub BuildUploadRequest(RequestBin)
on error resume next

PosBeg = 1
PosEnd = 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 UploadControl
Set UploadControl = CreateObject("Scripting.Dictionary")

Pos = InStrB(BoundaryPos, RequestBin, getByteString("Content-Disposition"))
Pos = InStrB(Pos, RequestBin, getByteString("name="))
PosBeg = Pos + 6
PosEnd = 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) Then
PosBeg = PosFile + 10
PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(34)))
FileName = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg))
UploadControl.Add "FileName", FileName
Pos = InStrB(PosEnd, RequestBin, getByteString("Content-Type:"))
PosBeg = Pos + 14
PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(13)))
ContentType = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg))
UploadControl.Add "ContentType", ContentType
PosBeg = PosEnd + 4
PosEnd = InStrB(PosBeg, RequestBin, boundary) - 2
Value = MidB(RequestBin, PosBeg, PosEnd - PosBeg)
Else
Pos = InStrB(Pos, RequestBin, getByteString(Chr(13)))
PosBeg = Pos + 4
PosEnd = InStrB(PosBeg, RequestBin, boundary) - 2
Value = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg))
End If

UploadControl.Add "Value", Value
UploadRequest.Add Name, UploadControl
BoundaryPos = InStrB(BoundaryPos + LenB(boundary), RequestBin, boundary)
Loop
End Sub

Function getByteString(StringStr)
For i = 1 To Len(StringStr)
Char = Mid(StringStr, i, 1)
getByteString = getByteString & ChrB(AscB(Char))
Next
End Function

Function getString(StringBin)
getString = ""
For intCount = 1 To LenB(StringBin)
getString = getString & Chr(AscB(MidB(StringBin, intCount, 1)))
Next
End Function

' Fim upload sem Componentes -----------------------------------------
%>

espero q te ajude ......

 

duvidas é só postar!!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Reinaldo    0

Reinaldo
Postado

Valeu a força com o código, mas tenho uma solução tambem que gostaria de uma informação:

veja o codigo abaixo:

 

CODE
' aqui grava no banco os dados necessários mais o caminho do arquivo

Set File = AspUpload.Files("img") ' Aqui grava o nome da imagem no BD só que não grava o nome todo da imagem nem a extensão, como posso resolver isso?

 

varpromocao = AspUpload.form("promocao")

vartitulo = AspUpload.form("titulo")

varpreco = AspUpload.form("preco")

varconteudo = Replace(AspUpload.form("conteudo"),"'","''")

 

strsql = "insert into produtos (promocao,titulo,preco,conteudo,img)values('" & varpromocao & "','"&vartitulo&"','"&varpreco&"','"&varconteudo& "','"&File.FileName&"')"

 

cnnDB.execute strsql

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