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

Cadastro

Mateustg

Perguntado por Mateustg,

 Share

Pergunta

Mateustg

Mateustg

Postado
Postado

Olá pessoal... eu tenho um sistema onde a pessoa entra e se cadastra....neste cadastro ela tem a opção de colocar a foto dela, para isso fiz um imput do tipo file....acontece que se a pessoa não escolher nenhuma foto, o perfil dela ficará sem foto....como faço para caso a pessoa não coloque foto, o sistema pegar uma foto pre-determinada por mim...ou seja...ele não colocou a foto dele, mas ao finalizar o cadastro aparecerá uma foto tipo (sem foto). como faço isso?

Depois de fazer o cadastro ele faz o upload, que é este código abaixo, aqui preciso fazer com que ele compare se não houver foto ele coloca a foto programada por mim ou se não pega a que ele mesmo colocou:

Já tentei usar:

if campo_foto="" then

faça A

else

faça B

end if

mas não consegui, talves porque coloquei o código em local errado...alguém pode me ajudar nisso...o que faço, onde coloco?

Código upload:

<!-- #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 ----------------------
username = UploadRequest.Item("username").Item("Value")
firstname = UploadRequest.Item("firstname").Item("Value")
password = UploadRequest.Item("password").Item("Value")
passwordconfirm = UploadRequest.Item("passwordconfirm").Item("Value")
sex = UploadRequest.Item("sex").Item("Value")
email = UploadRequest.Item("email").Item("Value")
endereco = UploadRequest.Item("endereco").Item("Value")
bairro = UploadRequest.Item("bairro").Item("Value")
cidade = UploadRequest.Item("cidade").Item("Value")
estado = UploadRequest.Item("estado").Item("Value")
blog = UploadRequest.Item("blog").Item("Value")
fotolog = UploadRequest.Item("fotolog").Item("Value")
orkut = UploadRequest.Item("orkut").Item("Value")
icq = UploadRequest.Item("icq").Item("Value")
MSN = UploadRequest.Item("MSN").Item("Value")
ec_icon = UploadRequest.Item("ec_icon").Item("Value")
ocupacao = UploadRequest.Item("ocupacao").Item("Value")
empresa = UploadRequest.Item("empresa").Item("Value")
hobby = UploadRequest.Item("hobby").Item("Value")
escolaridade = UploadRequest.Item("escolaridade").Item("Value")
educacao = UploadRequest.Item("educacao").Item("Value")
atividades = UploadRequest.Item("atividades").Item("Value")
fumante = UploadRequest.Item("fumante").Item("Value")
bebida = UploadRequest.Item("bebida").Item("Value")
comentario = UploadRequest.Item("comentario").Item("Value")
olhos = UploadRequest.Item("olhos").Item("Value")
cabelos = UploadRequest.Item("cabelos").Item("Value")
pele = UploadRequest.Item("pele").Item("Value")
fisico = UploadRequest.Item("fisico").Item("Value")
altura = UploadRequest.Item("altura").Item("Value")
favbebida = UploadRequest.Item("favbebida").Item("Value")
favcidade = UploadRequest.Item("favcidade").Item("Value")
favlivro = UploadRequest.Item("favlivro").Item("Value")
favfilme = UploadRequest.Item("favfilme").Item("Value")
favmusica = UploadRequest.Item("favmusica").Item("Value")
favcomida = UploadRequest.Item("favcomida").Item("Value")
favlugar = UploadRequest.Item("favlugar").Item("Value")
favesporte = UploadRequest.Item("favesporte").Item("Value")
dob = UploadRequest.Item("dob").Item("Value")

' 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("imagem/")

nome_foto = "/"&nome_foto

' pasta + nome dos arquivos
cfoto = "imagem" + nome_foto

' 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
set conexao = Server.CreateObject("ADODB.Connection")
conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("siteusers.mdb")    

' cadastra os dados no banco de dados
sql = "Insert into users (username,firstname,password,passwordconfirm,sex,email,endereco,bairro,cidade,estado,blog,fotolog,orkut,icq,MSN,ec_icon,ocupacao,empresa,hobby,escolaridade,educacao,atividades,fumante,bebida,comentario,olhos,cabelos,pele,fisico,altura,favbebida,favcidade,favlivro,favfilme,favmusica,favcomida,favlugar,favesporte,dob,foto) values ('"& username &"', '"& firstname &"', '"& password &"', '"& passwordconfirm &"', '"& sex &"', '"& email &"', '"& endereco &"', '"& bairro &"', '"& cidade &"', '"& estado &"', '"& blog &"', '"& fotolog &"', '"& orkut &"', '"& icq &"', '"& MSN &"', '"& ec_icon &"', '"& ocupacao &"', '"& empresa &"', '"& hobby &"', '"& escolaridade &"', '"& educacao &"', '"& atividades &"', '"& fumante &"', '"& bebida &"', '"& comentario &"', '"& olhos &"', '"& cabelos &"', '"& pele &"', '"& fisico &"', '"& altura &"', '"& favbebida &"', '"& favcidade &"', '"& favlivro &"', '"& favfilme &"', '"& favmusica &"', '"& favcomida &"', '"& favlugar &"', '"& favesporte &"', '"& dob &"', '"& cfoto &"')"
Conexao.Execute(sql)

' Mostra Mensagem de Confirmação na Tela
Response.write "<b><font size=3>Dados Cadastrados com Sucesso!</font></b>"

' Redireciona após 5 segundos
response.write "<br><br>Você será redirecionado em 5 segundos..<br>"
response.write "<meta http-equiv='refresh' content='5; url=index2.asp'/>"
%>

Link para o comentário
Compartilhar em outros sites

11 respostass a esta questão

Posts Recomendados

  • 0
Mateustg

Mateustg

Postado
  • Autor
Postado

cara já entendi a lógica da coisa...mas onde eu coloco isso no código é que não to sabendo...tentei colocar aqui, mas ele faz o cadsatro, mas a foto não aparece de modo algum...fiz o cadastro sem colocar a foto...e nada...o cara é cadastrado, mas não tem foto nenhuma...como faço?

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

crucifier

Postado
Postado

sueuasheu eu mandei a resposta errada cara foi mal...era pra manda assim:

if cfoto = "" then

cfoto = "http://www.urldaimagemaki.com.br/imagem.jpg"

end if

' cadastra os dados no banco de dados

sql = "Insert into users...blablablabla

ou seja..antes dakele sql q insere os dados...

voce poderia deixar no campo da foto padrão com o url da imagem "sem foto" no banco de dados

tipw..é mysql q voce ta usanu??

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

crucifier

Postado
Postado

não da assim também???(copie e cole)

if foto = "" then

cfoto = "http://www.site.com.br/cadastro/imagem/imagem.jpg"

else

' 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("imagem/")

nome_foto = "/"&nome_foto

' pasta + nome dos arquivos

cfoto = "imagem" + nome_foto

' 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

end if

' Conecta-se ao Banco de Dados

set conexao = Server.CreateObject("ADODB.Connection")

conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("siteusers.mdb")

' cadastra os dados no banco de dados

sql = "Insert into users (username,firstname,password,passwordconfirm,sex,email,endereco,bairro,cidade,estado,blog,fotolog,orkut,icq,MSN,ec_icon,ocupacao,empresa,hobby,escolaridade,educacao,atividades,fumante,bebida,comentario,olhos,cabelos,pele,fisico,altura,favbebida,favcidade,favlivro,favfilme,favmusica,favcomida,favlugar,favesporte,dob,foto) values ('"& username &"', '"& firstname &"', '"& password &"', '"& passwordconfirm &"', '"& sex &"', '"& email &"', '"& endereco &"', '"& bairro &"', '"& cidade &"', '"& estado &"', '"& blog &"', '"& fotolog &"', '"& orkut &"', '"& icq &"', '"& MSN &"', '"& ec_icon &"', '"& ocupacao &"', '"& empresa &"', '"& hobby &"', '"& escolaridade &"', '"& educacao &"', '"& atividades &"', '"& fumante &"', '"& bebida &"', '"& comentario &"', '"& olhos &"', '"& cabelos &"', '"& pele &"', '"& fisico &"', '"& altura &"', '"& favbebida &"', '"& favcidade &"', '"& favlivro &"', '"& favfilme &"', '"& favmusica &"', '"& favcomida &"', '"& favlugar &"', '"& favesporte &"', '"& dob &"', '"& cfoto &"')"

Conexao.Execute(sql)

' Mostra Mensagem de Confirmação na Tela

Response.write "<b><font size=3>Dados Cadastrados com Sucesso!</font></b>"

' Redireciona após 5 segundos

response.write "<br><br>Você será redirecionado em 5 segundos..<br>"

response.write "<meta http-equiv='refresh' content='5; url=index2.asp'/>"

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

Mateustg

Postado
  • Autor
Postado

tentei de outra forma...tentei assim:

if foto = "" then

cfoto = "http://www.vipseven.com.br/cadastro/imagem/semfoto.jpg"

end if

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

Agora apareceu o caminho assim:

http://www.site.com.br/cadastro/imagem/semfoto

só faltou aparacer a extensão .jpg

como faço pra aparecer?

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

douglasdamame

Postado
Postado

Olá,

Eu faria da seguinte forma:

Você esta fazendo este cadastro e posteriormente vai querer mostrar estes dados em outras páginas, né?

Então eu faria o cadastro da pessoa e se ela não adicionar nenhuma foto eu deixaria o campo do BD em Branco.

Na hora de chamar os dados nas páginas onde aparecerão as informações eu faria:

 <% if rs("Cfoto") = "" then %>
              <img src="imagens/semfoto.gif" border="0" align="left" hspace="8" vspace="2"> 
              <% else %>
              <img src="imagens/<%=rs("Cfoto")%>" border="0" align="left" hspace="8" vspace="2"> 
              <% end if %>

Não sei se é isso ou eu entendi mal o que você quer fazer.

Neste exemplo eu faria uma imagem padrão chamada "semfoto.gif" e colocaria na pasta "Imagens" e se ao chamar os dados para mostrar, o campo "Cfoto" estivesse vazio, chamaria esta imagem padrão.

OBS: Este código você coloca na hora de chamar as insformações e não na hora do cadastro.

Se não te ajudei, fica para uma próxima.....

Douglas

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...