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

Classificado em asp, erro ao upar imagens


manogaucho

Pergunta

Tudo bem!

Estou aqui com novas duvidas no classificados que baixei da internet, ele é em ASP com banco de dados em Access, fiz funcionar perfeitamente, quero dizer quase perfeitamente , ele só não consegui upar as fotos na hora de cadastrar um novo item, meu Host é da UOL, já fiz as configurações de permissões nas pastas. Peço ajuda, uma luz no fim do tunel, alguma coisa, por que da erro na hora de upar, tb testei outros sistemas e sempre na hora de upar imagens da erro, estou colocando abaixo os code de alguns arquivos, se precisar de algum é so pedir

este é meu arquivo config.asp

<%

Session.LCID = 1046

Server.ScriptTimeOut = 1800

'Declaração de variáreis
Dim Conn
Dim Voltar
Dim LinhaHorizontal
Dim LinhaHorizontal2
Dim LinhaHorizontal3
Dim LinhaHorizontal4
Dim CamposObrigatorios
Dim CorDestaque
Dim Counter
Dim Num
Dim chr_array
Dim Chave
Dim Valores

'Abertura de Banco de dados
Sub AbreBd()
     set Conn = Server.CreateObject("ADODB.Connection")
     Conn.Open "DBQ="&Server.MapPath("Database/DBClassificados.mdb")&";Driver={Microsoft Access Driver (*.mdb)}"
    'Set Conn = Server.CreateObject("ADODB.Connection")
    'Conn.Open "DBQ=classificado/Database/DBClassificados.mdb;Driver={Microsoft Access Driver (*.mdb)};"


End Sub

'Fechamento de Banco de dados
Sub FechaBd()
    Conn.Close
    Set Conn = Nothing
End Sub

'Variáveis gerais
Voltar = "<a href='java script:history.go(-1)' class='TituloCinzaEscuro'>Voltar</a>"
LinhaHorizontal = "<tr><td colspan=2><img src=Imagens/LinhaBarras.gif width=100% height=1></td></tr>"
LinhaHorizontal2 = "<tr><td colspan=2><img src=../Imagens/LinhaBarras.gif width=100% height=1></td></tr>"
LinhaHorizontal3 = "<tr><td height=18><img src=Imagens/LinhaBarras.gif width=100% height=1></td></tr>"
LinhaHorizontal4 = "<tr><td height=18><img src=../Imagens/LinhaBarras.gif width=100% height=1></td></tr>"
CamposObrigatorios = "<tr><td colspan=2 align=right class='TextoCinzaEscuro'>* Campos obrigatórios</td></tr>"
CorDestaque = "bgcolor='#D3FF3C'" 'Especifica a cor de fundo das células dos anúncios em destaque

'Variáveis constantes gerais
'Const EndLocal = "http://localhost/Classificados/" 'Caminho
'Const LocalFoto = "http://localhost/Classificados/Imagens/Fotos/" 'Pasta onde as fotos dos imóveis ficarão
'Const LocalBanner = "http://localhost/Classificados/Imagens/Banners/" 'Local onde ficarão os Banners.
'Const CaminhoFoto = "D:/ganhetempo/sites/Classificados/Imagens/Fotos/"
'Const CaminhoBanner = "D:/ganhetempo/sites/Classificados/Imagens/Banners/"
Const EndLocal = "http://buscariogrande.com.br/Classificados/" 'Caminho
Const LocalFoto = "http://buscariogrande.com.br/Classificados/Imagens/Fotos/" 'Pasta onde as fotos dos imóveis ficarão
Const LocalBanner = "http://buscariogrande.com.br/Classificados/Imagens/Banners/" 'Local onde ficarão os Banners.
Const CaminhoFoto = "http://buscariogrande.com.br\Classificados\Imagens\Fotos"
Const CaminhoBanner = "http://buscariogrande.com.br\Classificados\Imagens\Fotos"
Const Titulo = "BUSCARIOGRANDE CLASSIFICADOS"
Const TableColor = "" 'Cor da tabela
Const TitColor = "#6BA9D0" 'Cor da célula dos títulos
Const TdColor01 = "" 'Cor da célula 01
Const TdColor02 = "" 'Cor da célula 02
Const SAddress = "mail.ganhetempo.com" 'Endereço de envio de e-mail do servidor
Const EmailPadrao = "felipe@ganhetempo.com" 'Endereço de e-mail padrão
Const VerifyString = "ABCDEFGHIJKLMNOPQRSTUVJXYZabcdefghijklmnopqrstuvwxyz1234567890_@." 'Caracteres válidos para log.
Const TotalPorPagina = 15 'Total de registros por página.
Const PrazoEnvio = 10 'Prazo para envio de aviso de pagamento (antes do anuncio expirar)
Const BoletoItau = 1'Coloque 1 caso for utilizar esta opção ou coloque 0 caso não for utilizar.
Const BoletoBB = 1 'Coloque 1 caso for utilizar esta opção ou coloque 0 caso não for utilizar.
Const BoletoCaixa = 1 'Coloque 1 caso for utilizar esta opção ou coloque 0 caso não for utilizar.
Const BoletoBradesco = 1 'Coloque 1 caso for utilizar esta opção ou coloque 0 caso não for utilizar.
Const BoletoReal = 1 'Coloque 1 caso for utilizar esta opção ou coloque 0 caso não for utilizar.
Const BoletoUnibanco = 1 'Coloque 1 caso for utilizar esta opção ou coloque 0 caso não for utilizar.
Const Deposito = 1 'Coloque 1 caso for utilizar esta opção ou coloque 0 caso não for utilizar.
Const CNPJ = "000.000.000/0000-00"

'Função de senha
Function Verify(ByVal VerifyValue, ByVal VerifyString)
    Verify = True
    For Counter = 1 To Len(VerifyValue)
        If Instr(1, VerifyString, Mid(VerifyValue, Counter, 1)) = 0 Then
            Verify = False
            Exit for
            Exit Function
        End If
    Next
End Function

'Função para gerar senha aleatória
Function GerarChave(Valores)
Dim chr_Array(35)
chr_array(0) = "0"
chr_array(1) = "1"
chr_array(2) = "2"
chr_array(3) = "3"
chr_array(4) = "4"
chr_array(5) = "5"
chr_array(6) = "6"
chr_array(7) = "7"
chr_array(8) = "8"
chr_array(9) = "9"
chr_array(10) = "a"
chr_array(11) = "b"
chr_array(12) = "c"
chr_array(13) = "d"
chr_array(14) = "e"
chr_array(15) = "f"
chr_array(16) = "g"
chr_array(17) = "h"
chr_array(18) = "i"
chr_array(19) = "j"
chr_array(20) = "k"
chr_array(21) = "l"
chr_array(22) = "m"
chr_array(23) = "n"
chr_array(24) = "o"
chr_array(25) = "p"
chr_array(26) = "q"
chr_array(27) = "r"
chr_array(28) = "s"
chr_array(29) = "t"
chr_array(30) = "u"
chr_array(31) = "v"
chr_array(32) = "w"
chr_array(33) = "x"
chr_array(34) = "y"
chr_array(35) = "z"
Randomize
Do While Len(Chave) < 06
Num = chr_array(Int(35 * Rnd )) 
Chave = Chave + Num 
Loop 
GerarChave = Chave
End Function
    
    '####################################################################################################################
#####################################
    'Dados bancarios para depósito
    Const DSeuBanco = "Ex.: Banco do Brasil" 'Seu banco
    Const DSuaAgencia = "0000-0" 'Sua Agência
    Const DSuaConta = "0000000-0" 'Sua Conta
    Const DNomeCedente = "Nome do Favorecido" 'Favorecido
    
    '####################################################################################################################
#####################################
    'Dados para configuração do boleto bancário (Itaú)
    Const vBancoItau = "341" 'código do banco
    Const vDVBancoItau = "7" 'Digito verificador do banco
    Const vAgenciaItau = "0000" 'agencia
    Const vContaItau = "00000" 'conta
    Const vDVContaItau = "0" 'digito verificador da conta
    Const vCarteiraItau = "175" 'código da carteira
    Const vLetraCarteiraItau = "" 'sigla da carteira
    Const vMoedaItau = "9" 'tamanho da moeda
    Const vEspecieItau = "R$" 'cifra da moeda
    Const vCodigoCedenteItau = "" 'código do cedente
    Const vCedenteItau = "xxxxxxxxxx" 'nome do cedente
    Const vDadosCedenteItau = "xxxxxxxxx17-750" 'dados do cedente
    Const vCNPJItau = "00.000.000/0001-00"
    Const vVencimentoItau = 10
    
    
    '####################################################################################################################
#####################################
    'Dados para configuração do boleto bancário (Bradesco)    
    Const vBancoBradesco = "237" 'código do banco
    Const vDVBancoBradesco = "2" 'Digito verificador do banco
    Const vAgenciaBradesco = "0000" 'agencia
    Const vContaBradesco = "00000" 'conta
    Const vDVContaBradesco = "0" 'digito verificador da conta
    Const vCarteiraBradesco = "06" 'código da carteira
    Const vLetraCarteiraBradesco = "" 'sigla da carteira
    Const vMoedaBradesco = "9" 'tamanho da moeda
    Const vEspecieBradesco = "R$" 'cifra da moeda
    Const vCodigoCedenteBradesco = "" 'código do cedente
    Const vCedenteBradesco = "Exemplo: xxxxxxx" 'nome do cedente
    Const vDadosCedenteBradesco = "Exemplo:xxxxxxxxx" 'dados do cedente
    Const vCNPJBradesco = "00.000.000/0001-00"
    Const vVencimentoBradesco = 10

            
    '####################################################################################################################
#####################################
    'Dados para configuração do boleto bancário (Caixa Econômica Federal)    
    Const vBancoCaixa = "104" 'código do banco
    Const vDVBancoCaixa = "0" 'Digito verificador do banco
    Const vAgenciaCaixa = "0000" 'agencia
    Const vContaCaixa = "00000" 'conta
    Const vDVContaCaixa = "0" 'digito verificador da conta
    Const vCarteiraCaixa = "SR" 'código da carteira
    Const vLetraCarteiraCaixa = "" 'sigla da carteira
    Const vMoedaCaixa = "9" 'tamanho da moeda
    Const vEspecieCaixa = "R$" 'cifra da moeda
    Const vCodigoCedenteCaixa = "" 'código do cedente
    Const vCedenteCaixa = "xxxxxxxxxxx" 'nome do cedente
    Const vDadosCedenteCaixa = "xxxxxxxxxxxxxxx" 'dados do cedente
    Const vCNPJCaixa = "00.000.000/0001-00"
    Const vVencimentoCaixa = 10
        
    '####################################################################################################################
#####################################
    'Dados para configuração do boleto bancário (Banco do Brasil)    
    Const vBancoBB = "001" 'código do banco
    Const vDVBancoBB = "9" 'Digito verificador do banco
    Const vAgenciaBB = "0000" 'agencia
    Const vContaBB = "00000" 'conta
    Const vDVContaBB = "0" 'digito verificador da conta
    Const vCarteiraBB = "18" 'código da carteira
    Const vLetraCarteiraBB = "" 'sigla da carteira
    Const vMoedaBB = "9" 'tamanho da moeda
    Const vEspecieBB = "R$" 'cifra da moeda
    Const vCodigoCedenteBB = "" 'código do cedente
    Const vCedenteBB = "Exemplo: xxxxxxxxxxxxx" 'nome do cedente
    Const vDadosCedenteBB = "Exemplo: xxxxxxxxxxxx" 'dados do cedente
    Const vCNPJBB = "00.000.000/0001-00"
    Const vVencimentoBB = 10    
    
    '####################################################################################################################
#####################################
    'Dados para configuração do boleto bancário (Banco Real)    
    Const vBancoReal = "356" 'código do banco
    Const vDVBancoReal = "5" 'Digito verificador do banco
    Const vAgenciaReal = "0000" 'agencia
    Const vContaReal = "00000" 'conta
    Const vDVContaReal = "0" 'digito verificador da conta
    Const vCarteiraReal = "57" 'código da carteira
    Const vLetraCarteiraReal = "" 'sigla da carteira
    Const vMoedaReal = "9" 'tamanho da moeda
    Const vEspecieReal = "R$" 'cifra da moeda
    Const vCodigoCedenteReal = "" 'código do cedente
    Const vCedenteReal = "Exemplo: xxxxxxxxxxxxxxxxx" 'nome do cedente
    Const vDadosCedenteReal = "Exemplo: xxxxxxxxxxxx" 'dados do cedente
    Const vCNPJReal = "00.000.000/0001-00"
    Const vVencimentoReal = 10    
    
    
    '####################################################################################################################
#####################################
        'Dados para configuração do boleto bancário (Unibanco)    
    Const vBancoUnibanco = "409" 'código do banco
    Const vDVBancoUnibanco = "0" 'Digito verificador do banco
    Const vAgenciaUnibanco = "0000" 'agencia
    Const vContaUnibanco = "00000" 'conta
    Const vDVContaUnibanco = "0" 'digito verificador da conta
    Const vCarteiraUnibanco = "00" 'código da carteira
    Const vLetraCarteiraUnibanco = "" 'sigla da carteira
    Const vMoedaUnibanco = "9" 'tamanho da moeda
    Const vEspecieUnibanco = "R$" 'cifra da moeda
    Const vCodigoCedenteUnibanco = "" 'código do cedente
    Const vCedenteUnibanco = "Exemplo: xxxxxxxxxxxxx" 'nome do cedente
    Const vDadosCedenteUnibanco = "Exemplo: xxxxxxxxxx" 'dados do cedente
    Const vCNPJUnibanco = "00.000.000/0001-00"
    Const vVencimentoUnibanco = 10    
    
    '####################################################################################################################
#####################################

    
'Formata data para o formato brasileiro (dd/mm/aaaa)
Function FormataData ( theDate )
  If ( theDate = "" or IsNull(theDate)) Then
    FormataData = "&nbsp;"
  Else
    FormataData = Replace(Space(2-Len(Month(theDate))), Chr(32), Chr(48)) & Month(theDate) & "/" & Replace(Space(2-Len(Day(theDate))), Chr(32), Chr(48)) & Day(theDate) & "/" &_
    Year(theDate)
  End If
End Function

'Formata data para o formato americano (mm/dd/aaaa)
Function FormataDt ( theDate )
  If ( theDate = "" ) Then
    FormataDt = ""
  Else
    FormataDt = Replace(Space(2-Len(Month(theDate))), Chr(32), Chr(48)) & Month(theDate) & "/" & Replace(Space(2-Len(Day(theDate))), Chr(32), Chr(48)) & Day(theDate) & "/" &_
      Year(theDate)
  End If
End Function
%>
e este é meu arquivo web.config
<?xml version="1.0" encoding="UTF-8"?>
<configuration>
    <system.web>
        <authentication mode="Windows" />
    </system.web>
</configuration>

Editado por manogaucho
Link para o comentário
Compartilhar em outros sites

13 respostass a esta questão

Posts Recomendados

  • 0
Qual a(s) mensagem(s) de erro que dá? e em qual linha?

Meu amigo obrigado pela tua grande ajuda! O pior que não dá erro algum, ela so não upa a imagem, fica cadastrado o produto, mas sem foto, o cadastro do produto vai ate a parte de envio de E-mail para confirmação, isto é outro erro não manda e-mail, o envio de E-mail da UOL e atravez do CDOSYS, mas deixa este erro para depois, vamos focar o erro da imagem , abaixo ta o link do classificado, não da para se cadastrar, pois tb não envia o e-mail de confirmação, mas fica tudo do banco de dados, como cadastro e o produto sem imagem upada, mas aguardando confirmação de e-mail. tenho um usuario e senha para ti, ou tu te cadastra e me avisa que eu ativo teu cadastro direto pelo banco de dados, tambem posso te mandar se quiser, posso mandar tb meu classificado, como venho e como esta mudado por mim.

CLASSIFICADO TESTE

Editado por manogaucho
Link para o comentário
Compartilhar em outros sites

  • 0

Os códigos que você passou não ajuda muito, pois só tem as variaveis de configuração do sistema.

você tem que ver qual o componente que esta sendo usado p/ envio de e-mail e p/ o upload da imagem. para poder ver se na sua hospedagem tem suporte p/ eles.

Link para o comentário
Compartilhar em outros sites

  • 0
Os códigos que você passou não ajuda muito, pois só tem as variaveis de configuração do sistema.

você tem que ver qual o componente que esta sendo usado p/ envio de e-mail e p/ o upload da imagem. para poder ver se na sua hospedagem tem suporte p/ eles.

Tudo bem, estou mandando a lista dos componentes da UOL:

- CDOSYS

- FileSystemObject (FSO)

- Dundas Upload

- ASPUpload

- ASPEasyZip

- Aspgrid

- Aspjpeg

- AspPDF

- Chart Director

- DynuCOM

- MS Office Web Component

- Obout AspTreeView 2

- Itaucripto

- CobrebemX

Sugestão de uso de componentes

Para otimizar os recursos de sua hospedagem, sugerimos a substituição de alguns componentes da Server Objects em sua programação.

Segue abaixo, uma lista com os componente correlacionados:

AspImage -> AspJpeg

Cdonts, AspMail -> CDOSYS

Disponibilizamos alguns exemplos de uso dos componentes relacionados no link abaixo:

LINK UOL

Esta é uma FAQ com TopAcesso do UOL HOST.

Estou Mandando Tambem os arquivos que estão no site e o que baixei da internet.

ESTE QUE ESTA NO SITE

ESTE QUE BAIXEI DA INTERNET

Para maiores informações baixei de um Forum "Pacotão De Scripts Vendido No Mercado Livre", não sei se ajuda!

Link para o comentário
Compartilhar em outros sites

  • 0
Poste aqui como está o trecho do código responsável pelo upload!

Tudo bem ! vamos la então:

ESTE é o Upload.asp

<%
'--------------------------------------------------------------------------------------------------------------
'Criacao de Nome Unico
Dim NomeAleatorio
Function GerarNomeAleatorio(Valores)
Dim chr_Array(35)
chr_array(0) = "0"
chr_array(1) = "1"
chr_array(2) = "2"
chr_array(3) = "3"
chr_array(4) = "4"
chr_array(5) = "5"
chr_array(6) = "6"
chr_array(7) = "7"
chr_array(8) = "8"
chr_array(9) = "9"
chr_array(10) = "a"
chr_array(11) = "b"
chr_array(12) = "c"
chr_array(13) = "d"
chr_array(14) = "e"
chr_array(15) = "f"
chr_array(16) = "g"
chr_array(17) = "h"
chr_array(18) = "i"
chr_array(19) = "j"
chr_array(20) = "k"
chr_array(21) = "l"
chr_array(22) = "m"
chr_array(23) = "n"
chr_array(24) = "o"
chr_array(25) = "p"
chr_array(26) = "q"
chr_array(27) = "r"
chr_array(28) = "s"
chr_array(29) = "t"
chr_array(30) = "u"
chr_array(31) = "v"
chr_array(32) = "w"
chr_array(33) = "x"
chr_array(34) = "y"
chr_array(35) = "z"
Randomize
Do While Len(NomeAleatorio) < 30
Num = chr_array(Int(35 * Rnd ))
NomeAleatorio = NomeAleatorio + Num 
Loop 
GerarNomeAleatorio = NomeAleatorio
End Function
'--------------------------------------------------------------------------------------------------------------------
Class FileUploader
    Public  Files
    Private mcolFormElem

    Private Sub Class_Initialize()
        Set Files = Server.CreateObject("Scripting.Dictionary")
        Set mcolFormElem = Server.CreateObject("Scripting.Dictionary")
    End Sub
    
    Private Sub Class_Terminate()
        If IsObject(Files) Then
            Files.RemoveAll()
            Set Files = Nothing
        End If
        If IsObject(mcolFormElem) Then
            mcolFormElem.RemoveAll()
            Set mcolFormElem = Nothing
        End If
    End Sub

    Public Property Get Form(sIndex)
        Form = ""
        If mcolFormElem.Exists(LCase(sIndex)) Then Form = mcolFormElem.Item(LCase(sIndex))
    End Property

    Public Default Sub Upload()
        Dim biData, sInputName
        Dim nPosBegin, nPosEnd, nPos, vDataBounds, nDataBoundPos
        Dim nPosFile, nPosBound

        biData = Request.BinaryRead(Request.TotalBytes)
        nPosBegin = 1
        nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(13)))
        
        If (nPosEnd-nPosBegin) <= 0 Then Exit Sub
         
        vDataBounds = MidB(biData, nPosBegin, nPosEnd-nPosBegin)
        nDataBoundPos = InstrB(1, biData, vDataBounds)
        
        Do Until nDataBoundPos = InstrB(biData, vDataBounds & CByteString("--"))
            
            nPos = InstrB(nDataBoundPos, biData, CByteString("Content-Disposition"))
            nPos = InstrB(nPos, biData, CByteString("name="))
            nPosBegin = nPos + 6
            nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(34)))
            sInputName = CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin))
            nPosFile = InstrB(nDataBoundPos, biData, CByteString("filename="))
            nPosBound = InstrB(nPosEnd, biData, vDataBounds)
            
            If nPosFile <> 0 And  nPosFile < nPosBound Then
                Dim oUploadFile, sFileName
                Set oUploadFile = New UploadedFile
                
                nPosBegin = nPosFile + 10
                nPosEnd =  InstrB(nPosBegin, biData, CByteString(Chr(34)))
                sFileName = CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin))
                oUploadFile.FileName = "{" & GerarNomeAleatorio(30) & "}_" & Right(sFileName, Len(sFileName)-InStrRev(sFileName, "\"))

                nPos = InstrB(nPosEnd, biData, CByteString("Content-Type:"))
                nPosBegin = nPos + 14
                nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(13)))
                
                oUploadFile.ContentType = CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin))
                
                nPosBegin = nPosEnd+4
                nPosEnd = InstrB(nPosBegin, biData, vDataBounds) - 2
                oUploadFile.FileData = MidB(biData, nPosBegin, nPosEnd-nPosBegin)
                
                If oUploadFile.FileSize > 0 Then Files.Add LCase(sInputName), oUploadFile
            Else
                nPos = InstrB(nPos, biData, CByteString(Chr(13)))
                nPosBegin = nPos + 4
                nPosEnd = InstrB(nPosBegin, biData, vDataBounds) - 2
                If Not mcolFormElem.Exists(LCase(sInputName)) Then mcolFormElem.Add LCase(sInputName), CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin))
            End If

            nDataBoundPos = InstrB(nDataBoundPos + LenB(vDataBounds), biData, vDataBounds)
        Loop
    End Sub

    'String to byte string conversion
    Private Function CByteString(sString)
        Dim nIndex
        For nIndex = 1 to Len(sString)
           CByteString = CByteString & ChrB(AscB(Mid(sString,nIndex,1)))
        Next
    End Function

    'Byte string to string conversion
    Private Function CWideString(bsString)
        Dim nIndex
        CWideString =""
        For nIndex = 1 to LenB(bsString)
           CWideString = CWideString & Chr(AscB(MidB(bsString,nIndex,1))) 
        Next
    End Function
End Class

Class UploadedFile
    Public ContentType
    Public FileName
    Public FileData
    
    Public Property Get FileSize()
        FileSize = LenB(FileData)
    End Property

    Public Sub SaveToDisk(sPath)
        Dim oFS, oFile
        Dim nIndex
    
        If sPath = "" Or FileName = "" Then Exit Sub
        If Mid(sPath, Len(sPath)) <> "\" Then sPath = sPath & "\"
    
        Set oFS = Server.CreateObject("Scripting.FileSystemObject")
        If Not oFS.FolderExists(sPath) Then Exit Sub
        
        Set oFile = oFS.CreateTextFile(sPath & FileName, True)
        
        For nIndex = 1 to LenB(FileData)
            oFile.Write Chr(AscB(MidB(FileData,nIndex,1)))
        Next

        oFile.Close
    End Sub
    
    Public Sub SaveToDatabase(ByRef oField)
        If LenB(FileData) = 0 Then Exit Sub
        
        If IsObject(oField) Then
            oField.AppendChunk FileData
        End If
    End Sub

End Class
%>
Este é o InsAnuncio.asp
<!-- #include file="Includes/BarraCima.asp" -->
<!--#include file="Includes/Form2.asp"-->
<!-- #include file="Includes/Upload.asp" -->
<%
Dim VarAct
Dim objSecoes
Dim objPlanos
Dim VarCodAutenticacao

Set objSecoes = Conn.Execute("SELECT * FROM Secoes ORDER BY Secao")
Set objPlanos = Conn.Execute("SELECT * FROM Planos ORDER BY Cod")

VarAct = Request.QueryString("Act")
VarCodAutenticacao = GerarChave(06)

Dim objEstados2
Set objEstados2 = Conn.Execute("Select * from Estados order by Estado asc")
%>
<script LANGUAGE="Javascript">
<!--
//
function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}
//-->
</SCRIPT>
  <tr>
    <td valign="top">
    <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td width="150" align="center" valign="top" bgcolor="#F9F9F9"><!-- #include file="Includes/BarraEsq.asp" --></td>
        <td align="center" valign="top" bgcolor="#FFFFFF">
          <table width="468" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td height="10"><img src="Imagens/Blank.gif" width="1" height="1"></td>
          </tr>
          <tr>
            <td align="center" class="TituloCinzaMedio">INSER&Ccedil;&Atilde;O DE AN&Uacute;NCIO </td>
          </tr>
          <tr>
            <td align="center">&nbsp;</td>
          </tr>
          <tr>
            <td align="center">
            <%
            Dim VarNomeProduto
            Dim VarBreveDescricao
            Dim VarDescricao
            Dim VarValor
            Dim VarFormaPagamento
            Dim VarEstado
            Dim VarCidade
            Dim VarSecao
            Dim VarPlano
            Dim VarLocal
            Dim VarFoto
            Dim VarFoto1
            Dim VarFoto2
            Dim VarFoto3
            Dim VarFoto4
            Dim VarFoto5
            Dim Foto1
            Dim Foto2
            Dim Foto3
            Dim Foto4
            Dim Foto5
            Dim VarMesPagamento
            Dim InsBd
            Dim x
        
            If VarAct = "Cadastrar" Then
            
                '-------------------------------------------------------------                    
                Dim Uploader, File
                Set Uploader = New FileUploader

                Uploader.Upload()
                    
                If Uploader.Files.Count > 0 Then
                    For Each File In Uploader.Files.Items
                        File.SaveToDisk CaminhoFoto
                        VarFoto = VarFoto &"|"& File.FileName
                    Next
                VarFoto = Right(VarFoto, Len(VarFoto)-1)
                VarFoto = Split(VarFoto, "|")
                End If
                    
                VarNomeProduto = Replace(Uploader.Form("NomeProduto"),"'","''")
                VarBreveDescricao = Replace(Uploader.Form("BreveDescricao"),"'","''")
                VarDescricao = Replace(Replace(Uploader.Form("Descricao"),vb script:this.value=''" value="Digite uma cidade" size="1"><span class='TextoCinzaMascara'> (Ex: Mogi das Cruzes)</span></td>
                </tr>
                <%=LinhaHorizontal%>
                <tr>
                  <td class="TituloCinzaEscuro">Se&ccedil;&atilde;o:*</td>
                <td>
                  <select name="Secao" size="1" class="Form13319">
                    <option selected value="">Selecione a se&ccedil;&atilde;o</option>
                    <%
                    While not objSecoes.EOF
                        Response.Write "<option value='"& objSecoes("Cod") &"'>"& objSecoes("Secao") &"</option>"
                    objSecoes.MoveNext : Wend                        
                    %>
                </select>
                </td>
                </tr>
                <%=LinhaHorizontal%>
                <tr>
                  <td height="20" colspan="2" align="center" class="TituloCinzaEscuro">&nbsp;</td>
                </tr>
                <%=LinhaHorizontal%>
                <tr>
                  <td height="20" colspan="2" align="center" class="TituloCinzaEscuro" bgcolor="#DDDDDD">Fotos</td>
                </tr>
                <%
                With Response
                    .Write LinhaHorizontal
                    .Write FCampos(6)
                    .Write LinhaHorizontal
                    .Write FCampos(7)
                    .Write LinhaHorizontal
                    .Write FCampos(8)
                    .Write LinhaHorizontal
                    .Write FCampos(9)
                    .Write LinhaHorizontal
                    .Write FCampos(10)
                    .Write LinhaHorizontal
                End With
                %>
                <tr>
                  <td height="20" colspan="2" align="center" class="TituloCinzaEscuro">&nbsp;</td>
                </tr>
                <%=LinhaHorizontal%>
                <tr>
                  <td height="20" colspan="2" align="center" class="TituloCinzaEscuro" bgcolor="#DDDDDD">Plano</td>
                </tr>
                <%=LinhaHorizontal%>
                <tr>
                  <td height="20" colspan="2" align="center">
                      <select name="Plano" class="Form17019">
                      <option selected>Selecione o plano</option>
                      <%
                      While not objPlanos.EOF
                      Response.Write "<option value='"& objPlanos("Cod") &"'>"& objPlanos("Plano")&"</option>"
                      objPlanos.MoveNext
                      Wend
                      %>
                    </select>&nbsp;<a href="#" class="TextoCinzaEscuro" onClick="MM_openBrWindow('PopPlanos.asp','','scrollbars=yes,width=600,height=300')">Conhe&ccedil;a nossos planos</a>
                  </td>
                </tr>
                <%=LinhaHorizontal%>
                <tr>
                  <td height="20" colspan="2" align="center" class="TituloCinzaEscuro">&nbsp;</td>
                </tr>
                <%
                With Response
                    .Write FCampos(11)
                End With
                %>
                <tr>
                    <td height="30" colspan="2" align="center" valign="bottom"><%=Voltar%></td>
                </tr>
              </form>
            </table>
            <% End If %>
            </td>
          </tr>
        </table>
        </td>
        <td width="150" align="center" valign="top" bgcolor="#F8F8F8"><!-- #include file="Includes/BarraDir.asp" --></td>
      </tr>
    </table>
    </td>
  </tr>
<!-- #include file="Includes/Rodape.asp" -->

mais um codigo é so pedir, acredito ser estes.

Link para o comentário
Compartilhar em outros sites

  • 0

Caro, gaucho vamos ver se entendi:

- você conseguiu upar ou não as imagens ?

- O que pude notar neste link que disponibilizou do classificado, é que aparece a imagem com "X", portanto acredito eu, deve ser erro de diretorio.

- Mais uma coisa, o caminho da imagem upada aparece no banco de dados ???

De uma olhada no links das imagens, pra tu ter noção olha esse ai:

http://www.ganhetempo.com/Classificados/Imagens/Fotos/{s63bt4glq4cjlyxnpeho3a2iyoyrnj}_mural.jpg

Ta certo isso ai !!????

Editado por Loko da Web
Link para o comentário
Compartilhar em outros sites

  • 0
Caro, gaucho vamos ver se entendi:

- você conseguiu upar ou não as imagens ?

- O que pude notar neste link que disponibilizou do classificado, é que aparece a imagem com "X", portanto acredito eu, deve ser erro de diretorio.

- Mais uma coisa, o caminho da imagem upada aparece no banco de dados ???

De uma olhada no links das imagens, pra tu ter noção olha esse ai:

http://www.ganhetempo.com/Classificados/Imagens/Fotos/{s63bt4glq4cjlyxnpeho3a2iyoyrnj}_mural.jpg

Ta certo isso ai !!????

Não upo as imagens, fica com aquele endereço mesmo que tu mandou, não esta certo

no banco de dados o caminho fica assim ( http://www.ganhetempo.com/Classificados/Im...yrnj}_mural.jpg )

estranho este endereço 'http://www.ganhetempo.com" não é do meu site, o meu endereço é http://www.buscariogrande.com.br/.

RESUMINDO ELE ESTA CADASTRANDO O CAMINHO ERRADO, TEMOS QUE ACERTAR ISTO. ACREDITO QUE SEJA ISTO!

Link para o comentário
Compartilhar em outros sites

  • 0

Mudei meu config.asp , ele ficou assim.

<%

Session.LCID = 1046

Server.ScriptTimeOut = 1800

'Declaração de variáreis
Dim Conn
Dim Voltar
Dim LinhaHorizontal
Dim LinhaHorizontal2
Dim LinhaHorizontal3
Dim LinhaHorizontal4
Dim CamposObrigatorios
Dim CorDestaque
Dim Counter
Dim Num
Dim chr_array
Dim Chave
Dim Valores

'Abertura de Banco de dados
Sub AbreBd()
     set Conn = Server.CreateObject("ADODB.Connection")
      Conn.Open "DBQ="&Server.MapPath("database/DBClassificados.mdb")&";Driver={Microsoft Access Driver (*.mdb)}"
    'Set Conn = Server.CreateObject("ADODB.Connection")
    'Conn.Open "DBQ=c:\Domains\aspconnection.net\db\DBClassificados.mdb;Driver={Microsoft Access Driver (*.mdb)};"


End Sub

'Fechamento de Banco de dados
Sub FechaBd()
    Conn.Close
    Set Conn = Nothing
End Sub

'Variáveis gerais
Voltar = "<a href='java script:history.go(-1)' class='TituloCinzaEscuro'>Voltar</a>"
LinhaHorizontal = "<tr><td colspan=2><img src=Imagens/LinhaBarras.gif width=100% height=1></td></tr>"
LinhaHorizontal2 = "<tr><td colspan=2><img src=../Imagens/LinhaBarras.gif width=100% height=1></td></tr>"
LinhaHorizontal3 = "<tr><td height=18><img src=Imagens/LinhaBarras.gif width=100% height=1></td></tr>"
LinhaHorizontal4 = "<tr><td height=18><img src=../Imagens/LinhaBarras.gif width=100% height=1></td></tr>"
CamposObrigatorios = "<tr><td colspan=2 align=right class='TextoCinzaEscuro'>* Campos obrigatórios</td></tr>"
CorDestaque = "bgcolor='#D3FF3C'" 'Especifica a cor de fundo das células dos anúncios em destaque

'Variáveis constantes gerais
'Const EndLocal = "http://localhost/Classificados/" 'Caminho
'Const LocalFoto = "http://localhost/Classificados/Imagens/Fotos/" 'Pasta onde as fotos dos imóveis ficarão
'Const LocalBanner = "http://localhost/Classificados/Imagens/Banners/" 'Local onde ficarão os Banners.
'Const CaminhoFoto = "D:/ganhetempo/sites/Classificados/Imagens/Fotos/"
'Const CaminhoBanner = "D:/ganhetempo/sites/Classificados/Imagens/Banners/"
Const EndLocal = "http://www.buscariogrande.com.br/Classificados/" 'Caminho
Const LocalFoto = "http://www.buscariogrande.com.br/Classificados/Imagens/Fotos/" 'Pasta onde as fotos dos imóveis ficarão
Const LocalBanner = "http://www.buscariogrande.com.br/Classificados/Imagens/Banners/" 'Local onde ficarão os Banners.
Const CaminhoFoto = "http://www.buscariogrande.com.br/Classificados/Imagens/Fotos/"
Const CaminhoBanner = "http://www.buscariogrande.com.br/Classificados/Imagens/Banners/"
Const Titulo = "BUSCARIOGRANDE CLASSIFICADOS"
Const TableColor = "" 'Cor da tabela
Const TitColor = "#6BA9D0" 'Cor da célula dos títulos
Const TdColor01 = "" 'Cor da célula 01
Const TdColor02 = "" 'Cor da célula 02
Const SAddress = "mail.ganhetempo.com" 'Endereço de envio de e-mail do servidor
Const EmailPadrao = "felipe@ganhetempo.com" 'Endereço de e-mail padrão
Const VerifyString = "ABCDEFGHIJKLMNOPQRSTUVJXYZabcdefghijklmnopqrstuvwxyz1234567890_@." 'Caracteres válidos para log.
Const TotalPorPagina = 15 'Total de registros por página.
Const PrazoEnvio = 10 'Prazo para envio de aviso de pagamento (antes do anuncio expirar)
Const BoletoItau = 1'Coloque 1 caso for utilizar esta opção ou coloque 0 caso não for utilizar.
Const BoletoBB = 1 'Coloque 1 caso for utilizar esta opção ou coloque 0 caso não for utilizar.
Const BoletoCaixa = 1 'Coloque 1 caso for utilizar esta opção ou coloque 0 caso não for utilizar.
Const BoletoBradesco = 1 'Coloque 1 caso for utilizar esta opção ou coloque 0 caso não for utilizar.
Const BoletoReal = 1 'Coloque 1 caso for utilizar esta opção ou coloque 0 caso não for utilizar.
Const BoletoUnibanco = 1 'Coloque 1 caso for utilizar esta opção ou coloque 0 caso não for utilizar.
Const Deposito = 1 'Coloque 1 caso for utilizar esta opção ou coloque 0 caso não for utilizar.
Const CNPJ = "000.000.000/0000-00"

'Função de senha
Function Verify(ByVal VerifyValue, ByVal VerifyString)
    Verify = True
    For Counter = 1 To Len(VerifyValue)
        If Instr(1, VerifyString, Mid(VerifyValue, Counter, 1)) = 0 Then
            Verify = False
            Exit for
            Exit Function
        End If
    Next
End Function

'Função para gerar senha aleatória
Function GerarChave(Valores)
Dim chr_Array(35)
chr_array(0) = "0"
chr_array(1) = "1"
chr_array(2) = "2"
chr_array(3) = "3"
chr_array(4) = "4"
chr_array(5) = "5"
chr_array(6) = "6"
chr_array(7) = "7"
chr_array(8) = "8"
chr_array(9) = "9"
chr_array(10) = "a"
chr_array(11) = "b"
chr_array(12) = "c"
chr_array(13) = "d"
chr_array(14) = "e"
chr_array(15) = "f"
chr_array(16) = "g"
chr_array(17) = "h"
chr_array(18) = "i"
chr_array(19) = "j"
chr_array(20) = "k"
chr_array(21) = "l"
chr_array(22) = "m"
chr_array(23) = "n"
chr_array(24) = "o"
chr_array(25) = "p"
chr_array(26) = "q"
chr_array(27) = "r"
chr_array(28) = "s"
chr_array(29) = "t"
chr_array(30) = "u"
chr_array(31) = "v"
chr_array(32) = "w"
chr_array(33) = "x"
chr_array(34) = "y"
chr_array(35) = "z"
Randomize
Do While Len(Chave) < 06
Num = chr_array(Int(35 * Rnd )) 
Chave = Chave + Num 
Loop 
GerarChave = Chave
End Function
    
    '#########################################################################################################################################################
    'Dados bancarios para depósito
    Const DSeuBanco = "Ex.: Banco do Brasil" 'Seu banco
    Const DSuaAgencia = "0000-0" 'Sua Agência
    Const DSuaConta = "0000000-0" 'Sua Conta
    Const DNomeCedente = "Nome do Favorecido" 'Favorecido
    
    '#########################################################################################################################################################
    'Dados para configuração do boleto bancário (Itaú)
    Const vBancoItau = "341" 'código do banco
    Const vDVBancoItau = "7" 'Digito verificador do banco
    Const vAgenciaItau = "0000" 'agencia
    Const vContaItau = "00000" 'conta
    Const vDVContaItau = "0" 'digito verificador da conta
    Const vCarteiraItau = "175" 'código da carteira
    Const vLetraCarteiraItau = "" 'sigla da carteira
    Const vMoedaItau = "9" 'tamanho da moeda
    Const vEspecieItau = "R$" 'cifra da moeda
    Const vCodigoCedenteItau = "" 'código do cedente
    Const vCedenteItau = "BUSCARIOGRANDE" 'nome do cedente
    Const vDadosCedenteItau = "Rio Grande - RS - CEP 96216-220" 'dados do cedente
    Const vCNPJItau = "00.000.000/0001-00"
    Const vVencimentoItau = 10
    
    
    '#########################################################################################################################################################
    'Dados para configuração do boleto bancário (Bradesco)    
    Const vBancoBradesco = "237" 'código do banco
    Const vDVBancoBradesco = "2" 'Digito verificador do banco
    Const vAgenciaBradesco = "0000" 'agencia
    Const vContaBradesco = "00000" 'conta
    Const vDVContaBradesco = "0" 'digito verificador da conta
    Const vCarteiraBradesco = "06" 'código da carteira
    Const vLetraCarteiraBradesco = "" 'sigla da carteira
    Const vMoedaBradesco = "9" 'tamanho da moeda
    Const vEspecieBradesco = "R$" 'cifra da moeda
    Const vCodigoCedenteBradesco = "" 'código do cedente
    Const vCedenteBradesco = "BUSCARIOGRANDE" 'nome do cedente
    Const vDadosCedenteBradesco = "Rio Grande - RS - CEP 96216-220"'dados do cedente
    Const vCNPJBradesco = "00.000.000/0001-00"
    Const vVencimentoBradesco = 10

            
    '#########################################################################################################################################################
    'Dados para configuração do boleto bancário (Caixa Econômica Federal)    
    Const vBancoCaixa = "104" 'código do banco
    Const vDVBancoCaixa = "0" 'Digito verificador do banco
    Const vAgenciaCaixa = "0000" 'agencia
    Const vContaCaixa = "00000" 'conta
    Const vDVContaCaixa = "0" 'digito verificador da conta
    Const vCarteiraCaixa = "SR" 'código da carteira
    Const vLetraCarteiraCaixa = "" 'sigla da carteira
    Const vMoedaCaixa = "9" 'tamanho da moeda
    Const vEspecieCaixa = "R$" 'cifra da moeda
    Const vCodigoCedenteCaixa = "" 'código do cedente
    Const vCedenteCaixa = "BUSCARIOGRANDE" 'nome do cedente
    Const vDadosCedenteCaixa = "Rio Grande - RS - CEP 96216-220" 'dados do cedente
    Const vCNPJCaixa = "00.000.000/0001-00"
    Const vVencimentoCaixa = 10
        
    '#########################################################################################################################################################
    'Dados para configuração do boleto bancário (Banco do Brasil)    
    Const vBancoBB = "001" 'código do banco
    Const vDVBancoBB = "9" 'Digito verificador do banco
    Const vAgenciaBB = "0000" 'agencia
    Const vContaBB = "00000" 'conta
    Const vDVContaBB = "0" 'digito verificador da conta
    Const vCarteiraBB = "18" 'código da carteira
    Const vLetraCarteiraBB = "" 'sigla da carteira
    Const vMoedaBB = "9" 'tamanho da moeda
    Const vEspecieBB = "R$" 'cifra da moeda
    Const vCodigoCedenteBB = "" 'código do cedente
    Const vCedenteBB = "BUSCARIOGRANDE" 'nome do cedente
    Const vDadosCedenteBB = "Rio Grande - RS - CEP 96216-220" 'dados do cedente
    Const vCNPJBB = "00.000.000/0001-00"
    Const vVencimentoBB = 10    
    
    '#########################################################################################################################################################
    'Dados para configuração do boleto bancário (Banco Real)    
    Const vBancoReal = "356" 'código do banco
    Const vDVBancoReal = "5" 'Digito verificador do banco
    Const vAgenciaReal = "0000" 'agencia
    Const vContaReal = "00000" 'conta
    Const vDVContaReal = "0" 'digito verificador da conta
    Const vCarteiraReal = "57" 'código da carteira
    Const vLetraCarteiraReal = "" 'sigla da carteira
    Const vMoedaReal = "9" 'tamanho da moeda
    Const vEspecieReal = "R$" 'cifra da moeda
    Const vCodigoCedenteReal = "" 'código do cedente
    Const vCedenteReal = "BUSCARIOGRANDE" 'nome do cedente
    Const vDadosCedenteReal = "Rio Grande - RS - CEP 96216-220" 'dados do cedente
    Const vCNPJReal = "00.000.000/0001-00"
    Const vVencimentoReal = 10    
    
    
    '#########################################################################################################################################################
        'Dados para configuração do boleto bancário (Unibanco)    
    Const vBancoUnibanco = "409" 'código do banco
    Const vDVBancoUnibanco = "0" 'Digito verificador do banco
    Const vAgenciaUnibanco = "0000" 'agencia
    Const vContaUnibanco = "00000" 'conta
    Const vDVContaUnibanco = "0" 'digito verificador da conta
    Const vCarteiraUnibanco = "00" 'código da carteira
    Const vLetraCarteiraUnibanco = "" 'sigla da carteira
    Const vMoedaUnibanco = "9" 'tamanho da moeda
    Const vEspecieUnibanco = "R$" 'cifra da moeda
    Const vCodigoCedenteUnibanco = "" 'código do cedente
    Const vCedenteUnibanco = "BUSCARIOGRANDE" 'nome do cedente
    Const vDadosCedenteUnibanco = "Rio Grande - RS - CEP 96216-220" 'dados do cedente
    Const vCNPJUnibanco = "00.000.000/0001-00"
    Const vVencimentoUnibanco = 10    
    
    '#########################################################################################################################################################

    
'Formata data para o formato brasileiro (dd/mm/aaaa)
Function FormataData ( theDate )
  If ( theDate = "" or IsNull(theDate)) Then
    FormataData = "&nbsp;"
  Else
    FormataData = Replace(Space(2-Len(Month(theDate))), Chr(32), Chr(48)) & Month(theDate) & "/" & Replace(Space(2-Len(Day(theDate))), Chr(32), Chr(48)) & Day(theDate) & "/" &_
    Year(theDate)
  End If
End Function

'Formata data para o formato americano (mm/dd/aaaa)
Function FormataDt ( theDate )
  If ( theDate = "" ) Then
    FormataDt = ""
  Else
    FormataDt = Replace(Space(2-Len(Month(theDate))), Chr(32), Chr(48)) & Month(theDate) & "/" & Replace(Space(2-Len(Day(theDate))), Chr(32), Chr(48)) & Day(theDate) & "/" &_
      Year(theDate)
  End If
End Function
%>

Depois de mudar fiz outro cadastro de produtos, o caminho da imagem no banco de dados mudou , para ( http://www.buscariogrande.com.br/Classific...apa_de_file.jpg )

ESTRANHO É ESTES DOIS CARCTER { }, da uma olhada no caminho da foto, como abre no navegador,

AQUI OLHA

Vou ficar de olho novamente! Abraços!!!

Editado por manogaucho
Link para o comentário
Compartilhar em outros sites

  • 0

Resolvido era problema no caminho absoluto do meu site, não estava correto, Muito obrigado Por toda ajuda! Foi uma grande escola para mim, escrevendo esta finalização lembrei de uma frase que gosto muito.

"Ninguém é tão pobre que não posso ajudar e ninguém é tão rico que não precise de ajuda."

Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novos posts.


  • Estatísticas dos Fóruns

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