mpes_esta

Ué, me fala então do jeito que você faz com .doc

Olá, Queria saber se tem como e como eu faço para inserir a propia tabela do office excel em uma pagina web. Eu sei que dá para salvar a tabela como WEB. Mas não quero desse jeito, eu queria tipo quando alguém vai visualizar um .doc ou .pdf na internet, e o propio abre ali mesmo. Mas com algumas ferramente das mesmas. Exemplo, abrir um edital... EU fiz um esboço no paint. Ou seja, seria dois frames, um para tabela, e outro para a pagina que a pessoa vai ficar comparando ao lado, que no caso eu coloquei a do Google. alguém pode me ajudar?

Bom, primeiro queria mostrar o código, ele busca em pastas e mostra o resultado se o arquivo existe na pasta. QUando ele mostra o resultado, ele só mostra, ele não gera link daquele arquivo que ele encontrou! Queria tentar fazer com que ele gerasse o link daquele arquivo que ele encontrou, assim podendo a pessoa fazer o download do resultado. ( é um site de intranet ) A primeira parte do código esta aqui: <% 'Desenvolvido por Diogo Silvério(diogosilverio@yahoo.com.br) 'Fez alguma Alteração? Poste aqui sem tirar os créditos anteriores. 'A alteração ficou legal?? Manda pra mim o link '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~------ 'Esse sisteminha de busca recursiva é parte de um sistema maior que 'tenho trabalhado, é semelhante a um gerenciador de FTP, só que em ASP ^^ '[]'s e lembrem, esse código é livre para N-Finalidades, exceto venda a parte Option Explicit On Error Resume Next Dim nomeBusca, pastaBusca, tipoBusca,teste Dim resultado,vasculhado, qtdPasta Dim agora, maistarde, depoisdabusca ':PpPPP Dim subpastas agora = (hour(now) * 3600) + (Minute(now) * 60) + Second(now) resultado = 0 vasculhado = 0 qtdPasta = 0 nomeBusca = Request.Form("txt_busca") pastaBusca = Request.Form("txt_pasta") subpastas = Request.Form("subpasta") tipoBusca = Request.Form("opcao") efetuaBusca "|-", nomeBusca, pastaBusca, tipoBusca Sub efetuaBusca(nivel, nome, pastaBusca, tipoBusca) Dim objFso, objPasta, objArq,FileName Dim arquivo, pasta Set objFso = Server.CreateObject("Scripting.FileSystemObject") Set objPasta = objFSO.GetFolder("C:\Inetpub\wwwroot\caij\") if(subpastas = 1) then For each pasta in objPasta.SubFolders Response.Write(nivel & "<img src='pasta.gif' /> " & pasta.Name & nome & "<br/>" & VbCRLF) efetuaBusca (nivel & "-"), nome, pasta, tipoBusca qtdPasta = qtdPasta + 1 Next else For each pasta in objPasta.SubFolders Response.Write(nivel & "<img src='pasta.gif' /> " & pasta.Name & "<br/>" & VbCRLF) qtdPasta = qtdPasta + 1 next end if For each arquivo in objPasta.Files Select Case tipoBusca Case 0 : if(nomeBusca = nomeBusca) then Response.Write(nivel & "<img src='arquivo.gif' /> " & arquivo.Name & "<br/>" & VbCRLF) resultado = resultado + 1 end if Case 1 : if(InStr(LCase(arquivo.name), LCase(nomeBusca))) then Response.Write(nivel & "<img src='arquivo.gif' /> " & arquivo.Name & "<br/>" & VbCRLF) resultado = resultado + 1 end if Case 2 : if((LCase(arquivo.name) = LCase(nomeBusca)) or (InStr(LCase(arquivo.name), LCase(nomeBusca)))) then Response.Write(nivel & "<img src='arquivo.gif' /><font color='red'> " & arquivo.Name & "</font><br/>" & VbCRLF) resultado = resultado + 1 else Response.Write(nivel & "<img src='arquivo.gif' /> " & arquivo.Name & "<br/>" & VbCRLF) End if End Select vasculhado = vasculhado + 1 Next Set objFso = nothing Set objPasta = nothing End Sub maistarde = (hour(now) * 3600) + (Minute(now) * 60) + Second(now) depoisdabusca = maistarde - agora %>z <div style="text-align:right"><strong><%=resultado%></strong> ocorrências de <strong>'<%=nomeBusca%>' </strong>em <strong><%=depoisdabusca%> s</strong>.<br> <strong><%=vasculhado%></strong> arquivos em <strong><%=qtdPasta%> pastas.</strong></div> No caso eu teria que inserir um link aqui nesse código, correto? Response.Write(nivel & "<img src='arquivo.gif' /> " & arquivo.Name & "<br/>" & VbCRLF) Mas como? alguém poderia me dar um help?

Eu achei esse cod na net, porem não estou conseguindo fazer ele funcionar... Essa busca ela pesquisa nas pastas e joga o resultado como? Como link dos arquivos ou onde estao?

Esse código faz busca nas pastas? Eu não entendi muito bem... Queria um codiigo que procurava arquivos nas pastas...sera q existe?

Olá, alguém saberia como dizer como fazer um sistema de busca( ou se já tem algum código),sendo uma intranet, a busca teria que percorer as pastas de um determinado diretório... A busca teria que me trazer, por exemplo. Se eu buscar: "Edital 2009", ela teria que percorrer uma pasta e me mostrar o arquivo na tela para eu fazer o download.. Muito dificil??? :unsure: Att.

Olá, Andei pesquisando mais ainda não consgui encontrar algo com que eu estou tentando fazer em ASP. Precisava de uma aplicação que toda vez que a pessoa entrase no site ela atualizaria e listava os arquivos com um link de download direto na página, sem que a pessoa precisase toda vez colocar links no codigo do site.. A pagina será local, logo não preciso preucupar com servidor. No mais é isso....alguém saberia?