crucifier
-
Total de itens
306 -
Registro em
-
Última visita
Posts postados por crucifier
-
-
-
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'/>"
-
-
-
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??
-
-
tipw...cabei de tenta e não deu...
foda que mesmo que desse certo..o eskema q eu to fazenu é o cara preenche o formulario com os dados da empresa e do banco de dados do site...e o codigo gera as páginas config.asp e conexao.asp
daih seria muito foda escrever a pagina inteira com os chr(36) e as coisa lá...e os arquivo.writeline = arquivo.writeline & e tal tal...
fora q não deu certo mesmo...então nem dianta explicar=D~
-
if cfoto = "" then
cfoto = "http://www.urldaimagemaki.com.br/imagem.jpg"
end if
ou então
' cadastra os dados no banco de dados
sql = "Insert into users...blablablabla
tenta isso...eu não testei não..to no trampo e não li muito bem o codigo...mas ve aih
-
ta la na pagina bancos.asp
o include:
<!--#include file="../includes/conexao.asp"-->
e a parte q ta danu erro:set usuarios = strcon.execute(usuarios)
nessa linha...o codigo do include ta assim:<!--#include file="config.asp"--> <% strCon = "Driver=MySQL ODBC 3.51 Driver; Server=200.192.240.24; Uid=laramturismo; Pwd=senha; Database=laram" prefixo = "galeria_" %>
no erro ta falanu q não ta achanu o strcon(q ta dentro do include) pra pode executa o eskema pra adicionar a tabela na sql...
alguém sabe porq isso??
se kizer eu posto mais partes do codigo
-
só uma coisa...a layer fica por tras do flash..tem jeito de faze ela ficar por cima???
-
agora deu o.o
e é aquele eskema sim...vo pega...valeu cara=D~
-
se edito o post mas continuo dando pagina não encontrada
-
aki deu pagina não encontrada o.o
-
layer pra não dar zica de desalinhamento, o site tem que ser alinhado a eskerda???tem algum macete pra não acontecer de zica quando o site for centralizado?
não lembro se já perguntei isso...mas tentei ver no forum se eu já tinha perguntado e não achei nada o.o
-
tem um cliente aki que quer um bannerzinhu(pekenino)...ele quer q fike andanu pela pagina...se não me engano tinha na uol as vezes...mas agora parece q não tem mais
não sei se esse eskema é em flash ou javascript...se for flash por favor algum moderador mova o tópico ou então avise q eu posto lá...
voces entenderam a minha duvida?
quero um codigo para fazer a animação ficar rodando na página aleatoriamente...
-
ahhhhhhhhhhh deu certo uma parte=]
qm kizer aih:
Set fso2 = Server.CreateObject("Scripting.FileSystemObject") Set arq = fso2.OpenTextFile(server.mappath("doc.txt")) txt_modelo = arq.ReadAll Set FSO = Server.CreateObject("Scripting.FileSystemObject") nomearquivo = server.mappath("novapagina.asp") Set arquivo = FSO.OpenTextFile(nomearquivo,2,false,0) arquivo.writeline(txt_modelo) arquivo.close set arquivo = nothing set fso = nothing arq.close set arq = nothing set fso2 = nothing response.redirect ("novapagina.asp")
só falta aquele eskema de separação o.o
-
desenvolvi esse codigo aih:
Set fso2 = Server.CreateObject("Scripting.FileSystemObject") Set arq = fso2.OpenTextFile(server.mappath("doc.txt")) txt_modelo = arq.ReadAll Set FSO = Server.CreateObject("Scripting.FileSystemObject") nomearquivo = server.mappath("novapagina.asp") Set arquivo = FSO.OpenTextFile(nomearquivo,2,false,0) arquivo.writeline (arq) arquivo.close set arquivo = nothing set fso = nothing set arq = nothing set fso2 = nothing response.redirect ("novapagina.asp")
só q da esse erro:
Microsoft VBScript runtime error '800a000d'Type mismatch: 'arquivo.writeline'
/sistema/instalacao/teste.asp, line 10
linha 10 é essa:
arquivo.writeline (arq)
qual o problema desse codigo?o.O
-
tipw..tenho lá o arquivo doc.txt
daí todo o conteúdo que tem nesse arquivo é para o sistema ler, e escrever o conteúdo em um arquivo e salvar com extensão .asp
só que tipw..teria uma separação por exemplo:
--------------------------separacao2------------------------------------
e a partir dessa separação ele criaria o arquivo 2 cujo nome eu selecionaria...e assim por diante...tem jeito?
tipw esse eskema de ler o arquivo eu já até sei sipá...mas o eskema de separação não sei não...vo coloca o codigo daki a pouco...mas se alguém já souber como faz pra faze esse negocio de a partir da separação tal fazer um novo arquivo...pode fala daih=]
-
-
cara...eu tava com o mesmo problema...e tipw..uma dica pra voce...foi o que eu fiz:
quando o cara envia a foto, o nome da foto fica com a data do dia do envio + o id da foto + o id do usuario
precisa ser cadastrado para enviar a foto??
no seu caso, se voce tiver disponibilizando para qualquer usuario o upload, voce pode fazer tipw: nomedafoto+id_da_foto.jpg
ficaria por exemplo: aninha54.jpg
se voce kizer eu tenho o codigo desse eskema aih...daih é só voce adaptar...
-
ta danu um erro na hora de instala o studio 8(fireworks dreamweaver e flash)....
aparece o seguinte erro:
isso aparece depois q o programa extracta e tal...daih aparece akela mensagenzinha "Preparing to install"..fica um tempinho nisso e daih da akela msg de erro da imagem...
alguém sabe o que pode ser e como arrumar??=\\
-
acabei de descobrir que faz isso por VB...pra poder usar o ftp e tal...
só q não acho o codigo pra isso
-
ola gente,
gostaria de saber se da para copiar arquivos de um ftp para o outro....
exemplo...eu ponho la..ftp.dominio.com.br usuario tal senha tal...
copiar para ftp.dominio2.com.br usuario tal senha tal e tal tal...
tem algum tutorial para isso..ou algum jeito???
obrigado=]
-
ninguém???o.O
Anuncio Em Uma Revista
em Fireworks
Postado
um cliente pediu para fazer um anuncio para uma revista....posso estar fazendo em fireworks?
ouvi dizer q tem que ser feito por coreldraw...por causa da resolucao e tal...mas foda que não tenho corel draw e não manjo muito
o anuncio vai ter foto...por isso mesmo que precisasse do anuncio maior para a resolucao não adiantaria porq iria distorcer a foto
daih tipw...eu poderia estar medindo o tamanho do lugar que vai ficar o anuncio...e colocar em centimetros no fireworks???