Ir para conteúdo
Fórum Script Brasil

Steven Tyler

Membros
  • Total de itens

    185
  • Registro em

  • Última visita

Tudo que Steven Tyler postou

  1. 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
  2. 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
  3. 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?
  4. Steven Tyler

    Input File

    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 !!!
  5. Steven Tyler

    Input File

    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?
  6. 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 !!
  7. 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">&nbsp;</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%">&nbsp;</td> <td colspan="2"><INPUT TYPE="submit" name="botao" value="Atualizar Registro">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<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? !!!
  8. valeu cara, o galera, alguém ajuda ai pelo amor de deus !!!! valeu !!!
  9. 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%">&nbsp;</td> <td colspan="2"><INPUT TYPE="submit" name="botao" value="Inserir">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<INPUT TYPE="reset" value="Limpar">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<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 !!!
  10. Steven Tyler

    Campo Text

    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 !!!!!!
  11. Steven Tyler

    Campo Text

    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%">&nbsp;</td> <td colspan="2"><INPUT TYPE="submit" name="botao" value="Atualizar">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<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?
  12. 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%">&nbsp;</td> <td colspan="2"><INPUT TYPE="submit" name="botao" value="Inserir">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<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?
  13. Steven Tyler

    Permissão Negada

    valeu dark0, valeu pela força ai...
  14. Steven Tyler

    Permissão Negada

    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 !!!
  15. Steven Tyler

    Permissão Negada

    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 !!!
  16. Steven Tyler

    Permissão Negada

    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?
  17. Steven Tyler

    Permissão Negada

    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
  18. Steven Tyler

    Permissão Negada

    me passa ai cara, to precisando mt !!! valeu !!!
  19. 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 !!!!!!!
  20. Steven Tyler

    Upload

    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
  21. Steven Tyler

    Fazer Upload

    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
  22. 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 !!!!
  23. 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 !!!
  24. 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
  25. 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?
×
×
  • Criar Novo...