Steven Tyler
Membros-
Total de itens
185 -
Registro em
-
Última visita
Tudo que Steven Tyler postou
-
po galera alguém me ajude ai... to tentando faze um esquema assim... <script language="javascript"> if (form1.foto_ck.checked) { ck_foto = "1"; } </script> se ta certo, dai eu jogo no asp a seguinte condicao if ck_foto = "1" then bla bla bla alguém me ajude ai, por favor
-
galera, tenho um form.... nesse form tem um checkbox..... se eu marcar ele.... como q eu faco para fazer um teste em outra pagina em javascript para ver se ele foi marcado? tipo "se o checkbox, estiver habilitado, então faca isso" por favor me ajudem...urgente
-
então galera to fazendo em asp um esquema assim... tem uma pagina de editar registro.. esse registro inclui foto...supondo q o registro esteja com foto... eu gostaria de ter um checkbox q quando eu clicasse nele, desabilitasse o input tyle file q tem para faszer upload de foto... a ideia é q se o cara marcar o checkbox, exclua a foto entenderam? e sei q isso se faz em javascript, alguém pode me ajudar? exiete uma opcao chamada readonly parece, seila, alguém pode me ajudar?
-
galeera esquece o que eu disse, eu tava colocando erro já na minha cabeca já sem testar eu fiz um teste, e digitei qualquer coisa la no campo input file e dai quando cliquei no botao inserir ele nem faz nada, o html axo q já trata isso !!!
-
então galera, seguinte... to com um sisteminha de cad de funcionario... tem a parte de insercvao de funcionario... tem 5 campos, sendo um deles input = file, q busca uma foto e faz o upload so q esse campo n é obrigatorio o de foto... só que eu pensei em uma coisa aqui... o form tem action para "edit.asp" e no edit.asp tem a seguite condicao.... If request.form("foto") <> "" then 'faz o upload da foto end if ' e aqui continua a insercao fos outros campos só q eu tava pensando, e pode dar um erro ai... e se o usuario digitar qualquer besteira la no campo, dai n vai ser vazio o campo certo? dai na hora de faze o upload vai da pau, porque n foi feito nenhuma escolha de foto la atraves do botao procurar... seila, tm algum jeito de fazer com q o campo "file" fique desabilitado para o usuario escrever la, tipo so funcionar o botao procurar e tal, ou senao tem uma ideia ai q pode funcionar, tipo fazer um mid da direita p esqueda, e ve se a 4° string é ".", se for, q dizer q o usuario provavelmente tenha usando o botao procurar, ou dai daria pau se o usuario digitar tipo "dasdasdsa.jpg" o que seria mt mt dificil, mais enfim, sera q tem algum jeito de resolver este problema?
-
então, consegui faze funciona, mudei tudo a logica do codigo... <!--#include file="conf.asp"--> <!--#include file="upload_funcoes.asp"--> <% Response.expires = -10 Server.ScriptTimeout = 6000000 %> <% dim vnome,vcargo,vsetor,vespecialidade,vfoto_apagar,par_cod,conn,FSO,tipo_foto,caminho_foto,nome_foto,foto,MyFile,ScriptObject,sql_query,rs,nome_foto_bd ' Chamando Funções, que fazem o Upload funcionar byteCount = Request.TotalBytes RequestBin = Request.BinaryRead(byteCount) Set UploadRequest = CreateObject("Scripting.Dictionary") BuildUploadRequest RequestBin vnome = UploadRequest.Item("nome").Item("Value") vsetor = UploadRequest.Item("setor").Item("Value") vcargo = UploadRequest.Item("cargo").Item("Value") vespecialidade = UploadRequest.Item("especialidade").Item("Value") nome_foto_bd = UploadRequest.Item("nome_foto_bd").Item("Value") par_cod = UploadRequest.Item("codigo").Item("Value") if UploadRequest.Item("foto").Item("Value") <> "" then 'excluindo o arquivo Set FSO = Server.CreateObject("Scripting.FileSystemObject") FSO.DeleteFile "C:\Inetpub\wwwroot\site_asp\fotos_func\" & nome_foto_bd ' 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 = Server.MapPath("fotos_func") ' 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 'conexao Set conn = Server.CreateObject("ADODB.Connection") conn.Open "DBQ=C:\Inetpub\wwwroot\site_asp\bdados.mdb;Driver={Microsoft Access Driver (*.mdb)}" 'atualizando o registro sql_query = "Update tbl_func set imagem='" & nome_foto & "' where codigo =" & par_cod set rs = conn.Execute(sql_query) conn.close end if end if 'conexao Set conn = Server.CreateObject("ADODB.Connection") conn.Open "DBQ=C:\Inetpub\wwwroot\site_asp\bdados.mdb;Driver={Microsoft Access Driver (*.mdb)}" 'atualizando o registro sql_query = "Update tbl_func set nome='" & vnome & "', setor='" & vsetor & "', cargo = '" & vcargo & "', especialidade='" & vespecialidade & "' where codigo =" & par_cod set rs = conn.Execute(sql_query) conn.close %> <script> alert("Dados alterados com sucesso!"); location.href="funcionarios.asp"; </script>mais valeu pela dica, n sabia essa ai do ie q você disse, valeu !!
-
galera, seguinte, tenho uma pagina "editar.asp" e nessa pagina tem o seguinte formulario <form onSubmit="return valida()" name="form1" action="edit.asp" method="post"> <input type="hidden" name="codigo" value="<% = rs("codigo") %>"> <input type="hidden" name="nome_foto_bd" value="<% = rs("imagem") %>"> <tr> <td colspan="2"><font class="texto">Nome:</td> <td colspan="2"><input type="text" name="nome" size="50" value="<% = rs("nome") %>"></td> </tr> <tr> <td colspan="2"><font class="texto">Setor:</td> <td colspan="2"><input type="text" name="setor" size="50" value="<% = rs("setor") %>"></td> </tr> <tr> <td colspan="2"><font class="texto">Cargo:</td> <td colspan="2"><input type="text" name="cargo" size="50" value="<% = rs("cargo") %>"></td> </tr> <tr> <td colspan="2"><font class="texto">Especialidade:</td> <td colspan="2"><input type="text" name="especialidade" size="50" value="<% = rs("especialidade") %>"></td> </tr> <tr> <td colspan="3"> </td> </tr> <tr> <td colspan="3" align="center"><img src="fotos_func/<% =rs("imagem") %>"></td> </tr> <tr> <td colspan="2"><font class="texto">Foto:</td> <td colspan="2"><input type="file" name="foto" size="40"></td> </tr> <tr> <td colspan="2" width="20%"> </td> <td colspan="2"><INPUT TYPE="submit" name="botao" value="Atualizar Registro"> <INPUT TYPE="button" value="Voltar" onclick="history.back();"></td> </tr> </form> esse formulario puxa do bd os dados de determinado registro... reparem q tem 2 "hidden" ai, são tipo paramentros para eu usar na pagina "edit.asp" q ta no action do form... então, nesse form tem um campo file q é a foto, nesse formulario, eu já to exibindo a foto do cliente já de cara p usuario, e se ele quiser alterar a foto, basta ele escolher outra atraves do campo "file".... a ideia é essa.... no edit.asp tem a seguinte condicao.... se o campo "file" for vazio faz uma atualizacao simples, q ate agora deu certo p mim, agora se tive preenchido o campo(tipo o ususrio escolheu uma outra foto no caso) dai faz a atualizacao junto de um upload.... dai q n da certo.... eis o código...<!--#include file="conf.asp"--> <!--#include file="upload_funcoes.asp"--> <% Response.expires = -10 Server.ScriptTimeout = 6000000 %> <% dim vnome,vcargo,vsetor,vespecialidade,vfoto_apagar,par_cod,conn,FSO,tipo_foto,caminho_foto,nome_foto,foto,MyFile,ScriptObject,sql_query,rs %> <% if request.form("foto") = "" then Set conn = Server.CreateObject("ADODB.Connection") conn.Open "DBQ=C:\Inetpub\wwwroot\site_asp\bdados.mdb;Driver={Microsoft Access Driver (*.mdb)}" par_cod = request.form("codigo") nome_foto_bd = request.form("nome_foto_bd") sql_query = "Update tbl_func set nome='" & request.form("nome") & "', setor='" & request.form("setor") & "', cargo = '" & request.form("cargo") & "', especialidade='" & request.form("especialidade") & "', imagem='" & nome_foto_bd & "' where codigo =" & par_cod set rs = conn.Execute(sql_query) conn.close %> <script> alert("Dados alterados com sucesso!"); location.href="funcionarios.asp"; </script> <% else %> <% 'excluindo o arquivo Set FSO = Server.CreateObject("Scripting.FileSystemObject") FSO.DeleteFile "C:\Inetpub\wwwroot\site_asp\fotos_func\" & nome_foto_bd ' Chamando Funções, que fazem o Upload funcionar byteCount = Request.TotalBytes RequestBin = Request.BinaryRead(byteCount) Set UploadRequest = CreateObject("Scripting.Dictionary") BuildUploadRequest RequestBin vnome = UploadRequest.Item("nome").Item("Value") vsetor = UploadRequest.Item("setor").Item("Value") vcargo = UploadRequest.Item("cargo").Item("Value") vespecialidade = UploadRequest.Item("especialidade").Item("Value") par_cod = UploadRequest.Item("codigo").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 = Server.MapPath("fotos_func") ' 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 'conexao Set conn = Server.CreateObject("ADODB.Connection") conn.Open "DBQ=C:\Inetpub\wwwroot\site_asp\bdados.mdb;Driver={Microsoft Access Driver (*.mdb)}" 'atualizando o registro sql_query = "Update tbl_func set nome='" & vnome & "', setor='" & vsetor & "', cargo = '" & vcargo & "', especialidade='" & vespecialidade & "', imagem='" & nome_foto & "' where codigo =" & par_cod set rs = conn.Execute(sql_query) conn.close %> <script> alert("Dados alterados com sucesso!"); location.href="funcionarios.asp"; </script> <% end if %> então pessoal, n sei o que ta havendo errado, porque quando atualizo o registro sem fazer upload de outra foto, faz certo, mais a ideia é q se o usuario quiser mudar a foto, ele apague a foto na pasta e coloque esta q ele escolheu, o erro n evidencia nada, só aparece escrito alguém pode me ajudar? !!!
-
valeu cara, o galera, alguém ajuda ai pelo amor de deus !!!! valeu !!!
-
galera, to desesperado, é o seguinte... a umas 2 semanas +ou-, entrei nesse link upload sem componentes segui ele, e consegui fazer um upload de 16 mb, maravilha, testei de td q é jeito.... beleza, mais agora to fazendo um negocio mais serio aqui, e n da de jeito nenhum...vo mostrar os coigos ai p vocês, e no fim eu digo o erro q ta dando...esse abaixo é o do dark0, q ta perfeito <% ' 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 ----------------------------------------- %> beleza, agora vo postar o do formulario<!--#include file = "upload_funcoes.asp" --> <form onSubmit="return valida()" action="insert2.asp" name="form1" method="post" enctype="multipart/form-data"> <tr> <td colspan="2"><font class="texto">Nome:</td> <td colspan="2"><input type="text" name="nome" size="40"></td> </tr> <tr> <td colspan="2"><font class="texto">Setor:</td> <td colspan="2"><input type="text" name="setor" size="40"></td> </tr> <tr> <td colspan="2"><font class="texto">Cargo:</td> <td colspan="2"><input type="text" name="cargo" size="40"></td> </tr> <tr> <td colspan="2"><font class="texto">Especialidade:</td> <td colspan="2"><input type="text" name="especialidade" size="40"></td> </tr> <tr> <td colspan="2"><font class="texto">Foto:</td> <td colspan="2"><input type="file" name="foto" size="40"></td> </tr> <tr> <td colspan="2" width="20%"> </td> <td colspan="2"><INPUT TYPE="submit" name="botao" value="Inserir"> <INPUT TYPE="reset" value="Limpar"> <INPUT TYPE="button" value="Voltar" onclick="history.back();"></td> </tr> </form> então, esse do form, ta so o que importa ai postado !!! agora vo postar o q faz o upload e redireciona para a pagina "principal" no caso...<!--#include file="conf.asp"--> <!--#include file="upload_funcoes.asp"--> <% Response.expires = -10 Server.ScriptTimeout = 60000000 %> <% ' Chamando Funções, que fazem o Upload funcionar byteCount = Request.TotalBytes RequestBin = Request.BinaryRead(byteCount) Set UploadRequest = CreateObject("Scripting.Dictionary") BuildUploadRequest RequestBin dim vnome,vcargo,vsetor,vespecialidade,conn,vSQLInsert,insert_dados,tipo_foto,caminho_foto,nome_foto,foto,MyFile,ScriptObject 'vnome = request.form("nome") 'vsetor = request.form("setor") 'vcargo = request.form("cargo") 'vespecialidade = request.form("especialidade") vnome = UploadRequest.Item("nome").Item("Value") vsetor = UploadRequest.Item("setor").Item("Value") vcargo = UploadRequest.Item("cargo").Item("Value") vespecialidade = UploadRequest.Item("especialidade").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 = Server.MapPath("fotos_func") ' 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 Set conn = Server.CreateObject("ADODB.Connection") conn.Open "DBQ=C:\Inetpub\wwwroot\site_asp\bdados.mdb;Driver={Microsoft Access Driver (*.mdb)}" vSQLInsert = "insert into tbl_func(nome,setor,cargo,especialidade,imagem) values ('" & vnome & "','" & vsetor & "','" & vcargo & "','" & vespecialidade & "', '" & nome_foto & "')" set insert_dados = conn.Execute(vSQLInsert) conn.close %> <script> alert("Funcionário cadastrado com sucesso!"); location.href="funcionarios.asp"; </script>então galera, ta ai o codigo, o que acotnece é q quando eu clico no submit do form, ele fica carregando mt tempo, e n faz nada, sendo q é arquivo de 4k q to testando, e fica assim parado, e n faz nada, sendo q a 2 semanas atrras tava de boa com 16 mb, e uma coisa importante, testei em um servidor e ddeu certo de boa, com o mesmo codigo, igualzinhhu, ou seja, quase certeza q o problema é no meu iis, mais se for no iis, o que devo fazer? por favor, me ajudem, valeu !!!
-
já resolvi cara, era so coloar aspas no value do input <input type="text" name="especialidade" size="80" value="<% = rs("especialidade") %>"> agora ta certinhu, valeu !!!!!!
-
então GALERA TO QUERENDO PASSAR OS VALORS DE UMA TABELA NOS CAMPOS TEXT'S NUMA PAGINA TA ASSIM........ <a href="editar.asp?id=<% =rs("codigo") %>" target="_self" class="menu"><font class="texto"> DAI ESSA PAGINA EDITAR.ASP TA ASSIM<form action="edit.asp" method="post"> <tr> <td colspan="2"><font class="texto">Nome:</td> <td colspan="2"><input type="text" name="nome" size="80" value=<% = rs("nome") %>></td> </tr> <tr> <td colspan="2"><font class="texto">Setor:</td> <td colspan="2"><input type="text" name="setor" size="80" value=<% = rs("setor") %>></td> </tr> <tr> <td colspan="2"><font class="texto">Cargo:</td> <td colspan="2"><input type="text" name="cargo" size="80" value=<% = rs("cargo") %>></td> </tr> <tr> <td colspan="2"><font class="texto">Especialidade:</td> <td colspan="2"><input type="text" name="especialidade" size="80" value=<% = rs("especialidade") %>></td> </tr> <tr> <td colspan="2" width="20%"> </td> <td colspan="2"><INPUT TYPE="submit" name="botao" value="Atualizar"> <INPUT TYPE="button" value="Voltar" onclick="history.back();"></td> </tr> </form> SÓ Q UM CAMPO NOME TEM UM NOME ASSIM..... JOAO BOSCO DAI NO CAMPO TEXT SO APARECE JOAO, N APARECE ASSIM quando DA ESPECO NO NOME E TAL E também NA ESPECIALIDADE, MANUTENCAO E CONFIGURACAO, SÓ APARECE MANUTENCAO NO CAMPO TEXT, porque PODE SER?
-
então galera, to fazendo um cadastrro de funcionarios, simples, só para aprender aqui, dai tem uma pagina com form assim: <form action="insert2.asp" method="post"> <tr> <td colspan="2"><font class="texto">Nome:</td> <td colspan="2"><input type="text" name="nome" size="30"></td> </tr> <tr> <td colspan="2"><font class="texto">Setor:</td> <td colspan="2"><input type="text" name="setor" size="30"></td> </tr> <tr> <td colspan="2"><font class="texto">Cargo:</td> <td colspan="2"><input type="text" name="cargo" size="30"></td> </tr> <tr> <td colspan="2"><font class="texto">Especialidade:</td> <td colspan="2"><input type="text" name="especialidade" size="40"></td> </tr> <tr> <td colspan="2" width="20%"> </td> <td colspan="2"><INPUT TYPE="submit" name="botao" value="Inserir"> <INPUT TYPE="reset" value="Limpar"></td> </tr> </form> esse form é o insert.asp, que chama o insert2.asp, já no insert2.asp tem o seguinte codigo<%@ language=vbscript %> <% Response.expires = -10 %> <!--#include file="conf.asp"--> <% vnome = request.form("nome") vsetor = request.form("setor") vcargo = request.form("cargo") vespecialidade = request.form("especialidade") dim vnome,vcargo,vsetor,vespecialidade,conn,vSQLInsert,insert_dados Set conn = Server.CreateObject("ADODB.Connection") conn.Open "DBQ=C:\Inetpub\wwwroot\site_asp\bdados.mdb;Driver={Microsoft Access Driver (*.mdb)}" vSQLInsert = "insert into tbl_func(nome,setor,cargo,especialidade) values ('" & vnome & "','" & vsetor & "','" & vcargo & "','" & vespecialidade & "')" set insert_dados = conn.Execute(vSQLInsert) conn.close %> <script> alert("Funcionário cadastrado com sucesso!"); </script> <% Response.Redirect ("funcionarios.asp") %> então, ta cadastrando td certinhu o funcionario, só q essa bendita mensagem ai alert do javascript n aparece gente, o que sera q ta errado?
-
valeu dark0, valeu pela força ai...
-
então, eu tentei fazer com um arquivo de 7 mb, dai chega no 3 mb e para, da erro na pagina, dai eu vou ver la na pasta onde era pra ser salvo o arquivo, e ta la ele, so q incompleto, se ele tem 7 mb, ele so baixa 3 mb e para, e deu esse mesmo erro com seu script, e com um outro ai q vi...em relacao ao outro servidor, é hospedado no localweb, e n sei o esquema deles, mais ta bom d+, valeu, alias, aproveitando a situacao, você n sabe algum site, link, q fale tudo sobre (alteracao, insercao, exclusao, etc...) com banco de dados access em asp? me ajude por favor nisso, me passe um link ai dos bons...hehhe..vleu dark0..valeu mesmo !!!
-
então dark0, aconteceu o seguinte..... testei localmente e ta td beleza..... dai testei num servidor e deu erro, ele so baixa ate 3 mb, depois disso da erro, dai testei em um servidor melhor ai, e deu td certo, fez upload de arquivo de ate 17 mb, ta td beleza, axo q deve ser a configuracao do servidor q n deu certo la, mais é estranho porque ele usa iis 5.0, e parece q é no 6.0 q tem aquele limite la, estranhu, você n sabe o que pode ser feito no servidor? mais de qualquer modo, valeu pelas dicas, ta resolvido !!!! valeu dark0 !!!
-
deu certo dark0, valeu mesmo cara, só q tem um problema ainda........... testei localmente e deu........ na web deu com arquivo pequeno mas..... eu testei na web, tentei fazer com um arquivo de 4 mb, e n deu cara, você sabe algum script pra poder usar qualquer tamanho de arquivo no upload?
-
então, entendi cara, já tinha tentado isso, mais so q na explicacao desse link ai, ta falando de banco, eu n uso banco nese projeto ainda, eu simplismente quero fazer upload de um arquivo q esteja em minha maquina, tipo cd "C:\" para "C:\imagens\" entendeu? só para teste, para ver se funciona... na na parte de escrever o arquivo na pasta imagens q da erro, n tem nada a ver com banco de dados e controle total ao usuário Todos, n tem essa opcao quando clico com o direito e proprieades na pasta imangens, entendeu? eu fa fiz essa parte - Vá em painel de controle, de um duplo clique em opções da pasta - Vá até modo de exibição, onde tem configurações avançadas, localize a frase usar compartilhamento simples de arquivos (recomendável) - Desmarque esta opção. Clique em aplicar e depois ok. e n deu certo aparece essa mensagem de erro ainda...Tipo de erro: Erro de tempo de execução do Microsoft VBScript (0x800A0046) Permissão negada /upload_forum/upload_form2.asp, line 31 e a linha 31 é essaSet MyFile = ScriptObject.CreateTextFile(pasta & "\" & nome_foto) valeu
-
me passa ai cara, to precisando mt !!! valeu !!!
-
galera, eu tava seguindo esse exemplo aqui do dark0 Upload sem componente e ta td beleza, so q tem um erro incrivel....... Tipo de erro: Erro de tempo de execução do Microsoft VBScript (0x800A0046) Permissão negada estou usando o win xp, e fiz de td no diretorio ai e nada, dai testei no win 2000 server, e pude colocar um "control full" la no diretorio, q permite escrita no diretorio, e jogujei na net e fez o upload, normal.... como q eu faco para configurar ese diretorio aqui no xp, q ta um lixo, ele da sempre acesso negado nessa linha do scriptSet MyFile = ScriptObject.CreateTextFile(pasta & "\" & nome_foto) tentei mudar ni iis la também permitindo "gravar" no diretorio, n deu, o que eu posso fazer? sempre da "acecsso negado", tipo q dizer q n posso escrever na pasta, o que eu faco pessoal? falou..... a e também, com o win 2000 server la, tentei fazer upload de 4 mb e deu erro, o que eu faco? felw galera !!!!!!!
-
galera, to fazendo um upload simples, só para aprender aqui tenho uma pagina index.htm q tem um formulario e nesse tem... <FORM name="form1" action="upload.asp" method="post" enctype="multipart/form-data"> <table border="0" align="center"> <tr> <td><input type="file" name="arquivo" size="30"> </td> </tr> <tr> <td><input type="submit" name="Enviar" value="Enviar"></td> </tr> </table> </FORM>até ai ta certo , mais na upload.asp, nem sei por onde comecar, alguém tem um exemplo bem simples ai de como fazer o upload desse arquivo e jogar em um determinado diretorio? falou
-
galera, to fazendo um upload simples, só para aprender aqui tenho uma pagina index.htm q tem um formulario e nesse tem... <FORM name="form1" action="upload.asp" method="post" enctype="multipart/form-data"> <table border="0" align="center"> <tr> <td><input type="file" name="arquivo" size="30"> </td> </tr> <tr> <td><input type="submit" name="Enviar" value="Enviar"></td> </tr> </table> </FORM>até ai ta certo , mais na upload.asp, nem sei por onde comecar, alguém tem um exemplo bem simples ai de como fazer o upload desse arquivo e jogar em um determinado diretorio? falou
-
pessoal, tenho mais uma duvida pra variar, tenho uma pagina chamada *arquivos.asp* e nessa pagina tem q buscar todos os arquivos de uma pasta tipo tenho também uma pagina chamada *download.asp* q já ta certa, a ideia é na hora de carregar a pagina *arquivos.asp* aparecer todos os arquivos existentes em um diretorio assim "C:\arquivos_asp" dai esses arquivos aparecerem na pagina, e quando eu clicar nesse arquivo ai ele redireciona para *download.asp* e faz o download do arquivo, galera, por favor, como q faz para busca numa pasta todos os arquivos existentes nessa pasta e mostrar na tela, valeu !!!!
-
pessoal, vo postar aqui vou fazer o possivel q vocês entendam,.... segunte.. tenho uma pagina inicial "login.htm" q tem um action para "valida.asp" esse valida ve se o usuario existe...reparem q uso uma session ai q fica "true" se o usuario existir, se existe redireciona para "index.asp" se n existe mostra uma mensgem de erro if (vusername = username_array) and (vsenha = senha_array) then Session("logado") = "true" acesso = true end if if not acesso then %> <script> alert("Nome de usuário ou senha inválidos!"); history.go(-1); </script> <% else Response.Redirect ("index.asp") end if %> beleza... e esse "index.asp" tem um include nele<!--#include file="conf.asp"--> essa pagina "conf.asp" faz sempre um teste, olhem...<% if Session("logado") <> "true" then Response.Redirect ("login.htm") end if %> se vocês repararem, ele ve sempre se a session é verdadeira, se for, o usuario pode navegar a vontade, mais se n, ele redireciona para login.htm de novo... ate ai beleza... dai q vem o problema, quero fazer logout, dai na pagina "index.asp" tem um link para uma pagina asp chamada "logout.asp"<tr> <td colspan="3" align="center"><a href="logout.asp" target="_self" class="menu"><font face="verdana,arial" size="1">Clique aqui para fazer Logout</a></td> </tr> essa pagina "logout.asp" ai ta assim <% Session("logado") = "false" Session.Abandon Response.Redirect ("index.asp") %> galera a ideia é voltar para a pagina "index.asp" porque nessa pagina tem aquele include la q testa se a session é verdadeira, dai se eu usei esses codigos ai em cima do "logout.asp" quando redirecionar para "index.asp" ele já redireciona para login.htm, e ISSO TA ACONTECEENDO, TA TUDO CERTO !!!! mais tem um grande problema !!!!!!! tipo a session fica "false" e dai ele redireciona para "login.htm" dai eu faco um bendito teste, eu vo na barra de enderecos e digito o endereco da pagina "index.asp" na logica eu n poderia acessar essa pagina, pois quando eu acesso ela ela vai no include la e confere se a session é "true", na certa ele redirecionaria para login de novo, mais isso n acontece, quando eu digito no endereco la em cima o endereco de "index.asp" ele acessa normalmente, so q na hora q aperto f5 ele volta para login, tipo ele cancela a session mais n atualiza entenderam? sera q alguém poderia me ajudar? obrigado !!!
-
Login, Vbscript, Mas Sem Usar Banco De Dados
pergunta respondeu ao Steven Tyler de Steven Tyler em ASP
valeu cyberelaxx...deu certo...você poderia me dizer o que faz exatamente essa linha...set textStreamObject = fso.OpenTextFile(caminho,1,false,0) precisamente o que ta dentro do parenteses depois do caminho, o "1", o "false" e o "0"... valeu -
Login, Vbscript, Mas Sem Usar Banco De Dados
pergunta respondeu ao Steven Tyler de Steven Tyler em ASP
então pessoal, eu tava vendo aqui e consegui exibir na tela os dados do arquivo txt, segue o codigo... <% @language = vbscript %> <html> <head> <title>ramon sales</title> </head> <body> <% caminho = "C:\Inetpub\wwwroot\teste_txt\teste.txt" set fso = CreateObject("Scripting.FileSystemObject") if fso.FileExists(caminho) = false then response.write "Ops... O arquivo não existe!" response.end end if set textStreamObject = fso.OpenTextFile(caminho,1,false,0) response.write "Modo 1 <br>" do while not textStreamobject.AtEndOfStream response.write textStreamObject.ReadLine + "<br>" Loop textStreamObject.close set textStreamObject = nothing %> </body> </html> ta funcionando, só q quando coloco no arquivo texto por exemplo 2 nomes...ramon e brasil ramon brasil percebam q tem um espaco entre eles em branco, e dai na hora q eu carrego a pagina fica esse espaco ai, como que eu faco pra tirar esse espaco ai gostaria q ficasse assim na pagina ramon brasil não ramon brasil é simples isso eu sei, mais n da certo aqui, eu tentei fazer isso aqui galera...do while not textStreamobject.AtEndOfStream if textStreamObject.ReadLine <> "" then response.write textStreamObject.ReadLine + "<br>" end if Loop não adiantou, deu erro, como q eu faco galera, porque essa ideia minha seria.... (imprima na tela o que for diferente de vazio na linha), mais n deu certo, alguém pode me ajudar?