WebSan.Com.Br

Olá novamente, precisava de uma ajuda com o código que mostrei acima.... Alguêm poderia me mostrar onde neste código eu poderia identificar em QUAL PASTA a imagem será salva no servidor ??? Grato desde já.

PERFEITO TED K' !! Vlw guerreiro, por me salvar + 1 vez !! ^^

EU procurei essa dúvida, mas não soube o nome do que eu quero; eu fiz um sisteminha de add parceiros e galeria de fotos, bom em parceiros eu fiz a tabela dividir por 2 e deu certinho, olhem: <% 'ComImagem sem_imagem = "sem_imagem.gif" Set RS = Conn.Execute("SELECT * FROM IMGsParcerias WHERE imagem_Parceria <> '" & sem_imagem & "' ORDER BY nome_Parceria ASC") %> <table width="534" cellspacing="0" cellpadding="0"> <% do until rs.eof If soma1 = false Then T_Ini = "tr><td width=""177"" height=""100""" T_Fim = "/td" soma1 = true Else T_Ini = "td width=""177"" height=""100""" T_Fim = "/td></tr" soma1 = false End If %> <<% = T_Ini %>> <span class="Verdana_12_PretoB"> <img src="<% = rs("caminho_Parceria") & rs("imagem_Parceria") %>" alt="Parceiro: <% = rs("nome_Parceria") %>" border="0"> </span> <<% = T_Fim %>> <% rs.movenext loop Conn.close %> </table> Mas o meu problema aparece quando preciso aumentar a quantidade de imagens por linha. Como eu posso fazer para de ao invés de mostrar 2 resultados por linha aparecam 4 ? Grato desde já.

Vê se nos códigos não indica onde será salvo..., ou então Coloque permissão na pasta raiz onde está todo o sistema (a pasta principal "wwwroot"). Faz um, testa e vê onde salva ! ai você deixa com permissão somente onde será salvo o TXT. Ps: gambiarra, mas dá certo.... rsrs

Rafael... Para add no banco, você usa CampoTexto = Replace(Request.Form("texto"),Chr(13),"<br>") 'INSERIR DADOS NO BANCO inserirSQL = ("INSERT INTO NomeTabela"&_ "(texto) VALUES ( '" & CampoTexto & "')") Conn.Execute inserirSQL Depois para que na hora de visualizar esse texto continue mostrando corretamente faz assim: Dim Conn Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("BANCO.mdb") Set RS = Conn.Execute("SELECT * FROM NomeTabela") Mostra Texto: <% = Replace(rs("texto"),"<br>",Chr(13)) %> Espero que ajude.

beleza bareta, eu só optei pelo upload sem componentes, pelo problema de algumas hospedagem suportarem e outras não... acaba atrapalahndo um pouco. Isso porque eu queria criar um sistema de upload sem componente e com o máximo de recursos possiveis, e que seja acessivel para qualquer tipo de hospedagem Win. Mas vlw a ajuda... estou tentando modificar os códigos citados acima, com o forum que você me mandou ! Se alguém mais souber sobre outros tópicos onde se encontram minhas dúvidas, agradeço desde já.

Rafaelcs, eu postei uma dúvida hoje sobre inclementar o meu upload, mas o meu do jeito que está pode te ajudar, ou até mesmo resolver o seu problema.... No meu post está o código completo e organizado como deve estar.... dá uma olhada.... http://scriptbrasil.com.br/forum/index.php?showtopic=114493 Assim, só não esqueça que com esse upload, você deverá colocar os arquivos outputFile.asp e upload.asp na mesma pasta onde você quer que os curriculos se arquivem. EX: se for dentro da pasta Curriculo no servidor, coloque esses 2 arqiuvos dentro desta pasta e BOA ! E ele não precisa de componentes... acho que funciona em qualquer servidor Windows, mesmo os gratuitos. Mas testa ele ! Abraço.

Se o caso for para que a parte da <table> que está o campo que pode as vezes não está preenchido, pode fazre assim tb: <table width="100%" cellspacing="0" cellpadding="0"> <TR><td>Outros campos...<td> <% If rs("Campo_EXTRA") = "" Then </TR> <% Else %> </TR> <tr><td><% = rs("Campo_EXTRA") %></td></tr> <% End If %> <tr><td>&nbsp;</td></tr> </table> Com isso se o campo estiver em branco lá no banco, o <tr> com o seu conteudo nem irá aparecer, assim, a tabela nunca terá espaço em branco... você pode fazer esse tipo de comparação para todos os <tr> ou <td>.... para que se qualquer tipo esteja em branco, nem apareça aquela parte da tabela. Espero que ajude tb ! ^^

Olá para todos ! Eu tenho um sistema de upload sem necessidade de componentes, mas não consigo inserir novas buscas das fotos em up0load. O que eu gostaria de modificar nele é o seguinte: - Poder colocar um campo no form, junto com o file upload, com o nome = nome_da_foto, para quando ele for fazer o upload ele modifique o nome da foto. - Tambem gostaria de mostrar na tela o tamanho da foto: "ex: Upload com sucesso, foto: XXX.jpg com Largura de 800 e altura de 600." Isso eu queria para poder fazer alguns IF no código, para separar as fotos por grupos de tamanho. E com o controle de tamanho das imagens, fazer com que se a imagem for maior que X, o upload não seja feito. - E gostaria de saber como faço para que se a imagem for maior que X Kbs, o upload falhe tb. - O upload é feito na pasta onde se encontra esses arquivos, mas gostaria que o upload fosse direcionado para uma pasta X. onde essa pasta X poderia ser criada pelo usuário, como no PHP "<? mkdir("galeria/$nomedapasta", 0777); ?>" ! Desculpe pela quantidade de dúvidas de uma vez, mas não entendo muito de UpLoad, e tenho VARIOS sistemas de upload apra estudar, mas não consigo montar o meu ! Por Favor, HELP-ME !! Codigos abaixo: default.asp <form method="post" enctype="multipart/form-data" action="IMGsParcerias/outputFile.asp"> <table width="500" border="0" cellpadding="0" cellspacing="0" class="Verdana_12_PretoB"> <tr><td height="20">Limite máximo de 2 MegaBytes por imagem.<br><br></td></tr> <tr> <td height="50" align="center">Imagem: <input name="blob" type="file" class="BoxInput_12_Preto" size="25"></td></tr> <tr><td height="50" align="center"><input name="Enter" type="submit" class="BoxInput_10_P_Baixo" value="Enviar Imagem"></td></tr> </table> </form> outputFile.asp <% ' Author Philippe Collignon ' Email PhCollignon@email.com Response.Expires=0 Response.Buffer = TRUE Response.Clear 'Response.BinaryWrite(Request.BinaryRead(Request.TotalBytes)) byteCount = Request.TotalBytes 'Response.BinaryWrite(Request.BinaryRead(varByteCount)) RequestBin = Request.BinaryRead(byteCount) Dim UploadRequest Set UploadRequest = CreateObject("Scripting.Dictionary") BuildUploadRequest RequestBin contentType = UploadRequest.Item("blob").Item("ContentType") filepathname = UploadRequest.Item("blob").Item("FileName") filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\")) value = UploadRequest.Item("blob").Item("Value") 'Create FileSytemObject Component Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") 'Create and Write to a File pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14 Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&filename) For i = 1 to LenB(value) MyFile.Write chr(AscB(MidB(value,i,1))) Next MyFile.Close %> Upload Efetuado !<br> <img src="<% = filename %>"><br><br> Agora coloque o nome e descrição desta imagem.<br> <form name="form1" method="post" action="insereDB.asp"> <input type="hidden" name="imagem_Parceria" value="<% = filename %>"> <br> Nome:<input type="text" name="nome_Parceria"> (Ex: Funda&ccedil;&atilde;o Palavra M&aacute;gica)<br> Desc:<input type="text" name="descricao_Parceria"> (Ex: Esta empresa est&aacute; colaborando com o projeto X e Y)<br> Site:<input type="text" name="site_Parceria"> (Ex: www.site.com.br)<br> <input name="submit" type="submit" id="submit" value="Submit"> </form> <!--#include file="upload.asp"--> upload.asp <% ' Author Philippe Collignon ' Email PhCollignon@email.com Sub BuildUploadRequest(RequestBin) 'Get the boundary PosBeg = 1 PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13))) boundary = MidB(RequestBin,PosBeg,PosEnd-PosBeg) boundaryPos = InstrB(1,RequestBin,boundary) 'Get all data inside the boundaries Do until (boundaryPos=InstrB(RequestBin,boundary & getByteString("--"))) 'Members variable of objects are put in a dictionary object Dim UploadControl Set UploadControl = CreateObject("Scripting.Dictionary") 'Get an object name 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) 'Test if object is of file type If PosFile<>0 AND (PosFile<PosBound) Then 'Get Filename, content-type and content of file PosBeg = PosFile + 10 PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34))) FileName = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg)) 'Add filename to dictionary object UploadControl.Add "FileName", FileName Pos = InstrB(PosEnd,RequestBin,getByteString("Content-Type:")) PosBeg = Pos+14 PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13))) 'Add content-type to dictionary object ContentType = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg)) UploadControl.Add "ContentType",ContentType 'Get content of object PosBeg = PosEnd+4 PosEnd = InstrB(PosBeg,RequestBin,boundary)-2 Value = MidB(RequestBin,PosBeg,PosEnd-PosBeg) Else 'Get content of object 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 'Add content to dictionary object UploadControl.Add "Value" , Value 'Add dictionary object to main dictionary UploadRequest.Add name, UploadControl 'Loop to next object BoundaryPos=InstrB(BoundaryPos+LenB(boundary),RequestBin,boundary) Loop End Sub 'String to byte string conversion Function getByteString(StringStr) For i = 1 to Len(StringStr) char = Mid(StringStr,i,1) getByteString = getByteString & chrB(AscB(char)) Next End Function 'Byte string to string conversion Function getString(StringBin) getString ="" For intCount = 1 to LenB(StringBin) getString = getString & chr(AscB(MidB(StringBin,intCount,1))) Next End Function %> Grato desde já !

Olá, não sei se é o local correto da minha perunta, então qualquer coisa, me desculpe. Eu preciso colocar a senha na pasta wwwroot do PWS do meu Windows98, este computador é usado por várias pessoas, e não gostaria que pegassem o código-fonte das páginas que estão no intranet. Eu fiz 3 sisteminhas para usar aqui neste computador, e não quero que seja copiado. Como eu faço para colocar senha na pasta wwwroot do meu PWS ????? Grato desde já.

Como isso poderia ser feito Bareta ?

Olá novamente, Como viram, estou atrás de uma solução definitiva para eu me assegurar dos códigos em ASP. Bom, eu estou DESESPERADO atrás de um encriptador ASP, onde não tem nenhuma chance de se retornar essa encriptação. Eu estou usando o Screnc da microsoft, porem achei um programinha (li no forum sobre ele) que faz a desincriptação da página, OU SEJA, qualquer um que tenha esse programa, poderá ver meus códigos ASP. - E tambem agora que fui ler sobre o Screnc, ele chamam ele de CODIFICADOR, e não ENCRIPTADOR (já mostra que tem retorno.) Existe algum programa SEGURO de ENCRIPTAÇÃO de páginas ASP para que eu posso ficar relaxado com isso ????? POR FAVOR, se alguém tiver a solução, mande detalhes aqui. "DETALHADO, OK ?" Grato desde já, abraços.

Tem razão Bareta, é bobagem mesmo. abraço.

Desculpe BARETA pelo erro com o seu vulgo. abraço.

E ai galera, beleza ? Eu coloquei senha no meu banco de dados ACCESS, mas com isso minha conexão do ASP falha, ele pede esta senha do ACCESS. Como eu faço para colocar esta senha nos codigos ASP ? Abraços.

E ai Lvcifer! beleza cara ? Foi quase isso mesmo que eu fiz... dá uma olhada... <script type="text/javascript"> up_down = function(img,body) { if(img.src.indexOf("down") > -1) { img.src="images/arrow_up.gif"; document.getElementById(body).style.display = "block"; } else { img.src="images/arrow_down.gif"; document.getElementById(body).style.display = "none"; } } </script> <img src="images/arrow_down.gif" width="15" height="15" onclick="up_down(this,'Peitoral');"> <table id="Peitoral" style="display:none" width="680" border="0" class="Verdana_12_PretoB"> .... </table> Mas o script vou mudar para igual o seu, tá mais prático mesmo.... abraços.

Sim bereta, concordo com você, MAS esse sistema foi montado para funcionar OFFLINE, ou seja, INTRANET (IIS). Eu até poderia colocar ele hospedado, mas 2 problemas impossibilitam, 1º - trafego para ele (a quantidade de avaliação diarias são grandes, com isso teria que ter mais tráfego que o padrão (Gastar mais, coisa que pra mim não direfencia, mas para o cliente sim)) e 2ª e principal - ter que contar com a internet NUNCA dar problema no local. ( porque ele seria o unico modo de se fazer essa avaliação). E eu não posso arcar com a possibilidade de a internet dar pau lá e eles ficarem sem avaliação. Com um site é diferente, ele está publicado lá para todo o mundo ver, só que isso é só para os professores da academia editarem e imprimirem... mais ninguém. E discordo com o que disse no inicio, que nunca será a solução, porque se você chama uma página pelo #include e ela não existe, é mostrado ONDE ELA ESTÁ e qual é o nome desta página. No caso do SERVER.EXECUTE mostra o erro de onde eu chamei o código, OU SEJA, por mais que mostre o erro de Server.Execute, não será mostrada qual é o nome da página que eu chamei e nem onde ela está ! E detalhe o cara não poderá retirar o Server.Execute porque estará encriptado. e também porque todas as páginas do sistema chamam uma confirmação de dados dele. Continuo aguardando ajudo, abraços e grato. ---- EDITADO ----- CONSEGUI... deu certo com SESSION... default.asp Server.Execute("tirar.asp") if Session("tirou") = "" Then Response.Write("<br><br>Ele não leu a Session<br><Br>") Else Response.Write("<br><br>Session LIDA<br><Br>") End If tirar.asp Session("tirou") = "não" Abraços....

é que o seu 2º link é direto para um download né de um exemplo ? esse exemplo que você mandou existem 3 versões dele e esse ai é o mais complexo ! A 1ª versão desse exemplo é bem mais simples e já resolveu meu problema. Muito Obrigado... até+.

Obrigado Andreia... eu usei o 1º exemplo que é mais simples... como disse não entendo de javascript, fiquei meio perdido no exemplo que você me mandou... mais a 1ª versão dele tá facil... Obrigado novamente.

E ai galera, beleza ?? Estou precisando de fazer um menu onde terão 7 links, um abaixo do outro, e quando eu clicar em um deles aparece logo abaixo dele uma tabela com seu conteudo, se eu clicar novamente, ele é escondido, como faço ? não entendo nada de javascript, então já pediria alguma coisa mastigada se fosse possivel. Exemplo: Link01 Link02 Link03 Cliquei no link02, ok ? Link01 Link02 - Este é o texto do link02, com todo seu conteudo Link03 - É isso que preciso... Grato desde já... Abraços.

Já tentei sim.... ele dá este erro: "Objeto Server, ASP 0228 (0x80004005) Falha da chamada para Server.Execute ao carregar a página."

Olá galera, beleza ??? Eu fiz um sistema de avaliação física para uma academia, onde será colocado no IIS e ligado em rede para que todos os computadores dessa academia façam avaliação, certo ? Bom... Por questão de segurança (para mim) eu encriptei todas as páginas e coloquei um código assim: topo.asp <!--#include file="../../../WINDOWS/paginaSECRETA.asp"--> <% if meuinclude = "" or 0 Then Response.Redirect("sair.asp") End If %> Esse código está na página topo.asp, onde TODAS as páginas com conteudo chamam ela, OK ? e dentro desta pagina topo.asp chamei um #include file="../../WINDOWS/paginaSECRETA.asp" - onde esta páginaSECRETA.asp contem o seguinte conteudo: paginaSECRETA.asp <% meuinclude = "correto" %> Tudo isso para o caso do cara tentar copiar os arquivos e usar em um novo computador, como sabem o seguro morreu de velho... hehehe AGORA ENTRA O MEU PROBLEMA.... Usando "#Include File" por não poder entrar dentro do código ASP, ele fica esposto, e com isso qualquer um que abrir o código-fonte irá ver onde está está página SECRETA... então E AGORA ???? eu vi sobre o SERVER.EXECUTE(paginaSECRETA.asp)... só que ele NÃO deu certo para mim de JEITO ALGUM... POR FAVOR ME AJUDEMMMMMM.... Abraço a todos e estou grato desde já.

Assim, vocês tem que considerar que seria a cadastro inicial do cliente, ele ainda não tem um Id próprio. Agora na pratica seria assim: tenho 2 tabelas no ACCESS; ALUNOS e AVALIACOES. em ALUNOS seria o cadastro pessoal. em AVALIACOES teria VARIAS avaliações daquele aluno, ordenado por DATA.. (que já está na programação (date), e tem no SELECT assim "SELECT * FROM ALUNOS as a, AVALIACOES as b WHERE a.Id = b.Id_Aluno") Então se você fosse fazer um um cadastro na tabela ALUNOS, significa que você ainda não tem nada na tabela AVALIACOES deste aluno. Mas eu gostaria que assim que cadastrar o ALUNO, depois de enviar os campos para a tabela ALUNOS, ele já entrasse na página de criar uma nova avaliação (avaliacao_01.asp) e já sabendo que é do aluno que foi cadastrado agora, MASSSS...... esta página também será para editar cadastros de avaliações, então eu gostaria de algum código que servissem para na verdade verificar de qual ALUNO estou falando. Entenderam ? Eu to meio perdido em explicar também... huahau. Tá confuso. Abraços.

Ai Junior, acho que não é exatamente a sua dúvida, mas tenho quase certeza que pelo menos irá esclarecer.... <% Set RS = Conn.Execute("SELECT * FROM tabela_produtos ORDER BY nome_pruduto") %> <form name="form1" method="post" action="?acao=resultado"> <select name="produtosX"> <% do until rs.eof %> <option value="<% = rs("nome_produto") %>"><% = rs("nome_produto") %></option> <% rs.movenext loop conn.close %> </select> - <input name="valor_produto" type="text" size="5"> - <input name="quantidade_produto" type="text" size="5"> <input type="submit" name="Submit" value="Submit"> </form> <% If Request.QueryString("acao") = "resultado" Then NomeZ = Request.Form("produtosX") ValorZ = Request.Form("valor_produto") QuantZ = Request.Form("quantitade_produto") SomaZ = ValorZ * QuantZ ' o valor FormatCurrency transforma a string em valor monetário %> Produto: <% = NomeZ %> <br><Br> Valor unitário: <% = FormatCurrency( ValorZ ) %> <br> Quantidade pedida: <% = QuantZ %> uni. <Br><Br> Resultado: <% = FormatCurrency( SomaZ ) %> <% End If %> Com isso você poderá em um ComboBox visualizar todos os produtos... e escolher 1.... e colocando os valores ( valor e quantidade)... é só pegar o resultado abaixo do form. Falai depois se entendi muito mal... heheh... OK ? Boa Sorte.

Olá Rapaziada novamente, Estou precisando fazer um esqueminha aqui, mas tá dificil... alguém pode me ajudar ? Seguinte: Eu estou montando um cadastro de clientes aqui, e gostaria que logo depois de preencher todos os campos, e dar um cadastrar, ele vai entrar nos códigos e dar um "INSERT INTO", certo ? Logo depois de inserir os dados no banco de dados, eu gostaria que já aparecesse na tela aquele cliente que acabou de ser cadastrado, como eu faço isso ? Eu coloquei um "... TOP 1 ... DESC", só que se for alteração de um cliente já cadastrado, não irá funcionar !!! Então como poderia fazer ???? Grato desde já.