Posted by ecbert on 29/04/2003, 09:21 in ASP

Posted by ecbert on 29/04/2003, 10:17 in ASP

Ainda não deu certo ... eu volto pelo back e ele mostra a tal página permitindo que abra os pdf...


meu logout dá a opção tanto para logar novamente ou voltar para intranet... Mesmo redirecionando para a Intranet (por exemplo) quando dou logout se voltar pelo back....acabo caindo nessa página e ainda consigo abrir os arquivos....

Já coloquei a restrição nela, mas acontece que os pdf que estão sendo abertos vem de um banco .... Não sei se vcs me entenderam...

Posted by ecbert on 29/04/2003, 10:50 in ASP

Existe uma maneira de impedir que o código html seja visto tanto pelo botão direito quanto pelo exibir/código fonte do navegador?


Agradeço desde já....

Posted by ecbert on 29/04/2003, 11:32 in ASP

Tenho uma página X que tem os links:

documento.asp?cod=1
documento.asp?cod=2...etc

e tenho a pagina documento.asp que abre o banco e mostra arquivos de um diretório conforme foram cadastrados com seu nome, código, e path...

Na página documento.asp tenho a restrição

response.expires=0
if session(acesso)=false then
response.redirect("invalido.asp")
Dei logout, e voltei pelo back...caí na mesma página de antes, ou seja: a documento.asp que é montada pela página x...

Então eu posso continuar abrindo os arquivos listados mesmo que não esteja logado. É isso que não posso deixar acontecer porque são arquivos controlados. Já tentei fazer o logout redirecionando de volta para a intranet...mas se eu volto no back e a página estava carregada antes, eu consigo abrir os arquivos. Será que teria alguma coisa a fazer no código que se refere ao banco?

A página X monta o seguinte documento.asp:


<!--#include file="conecta2.inc"-->

<%
AbreConexao
Dim rs 'Recordset
Set rs = Server.CreateObject("ADODB.Recordset")
Set rs = conexao.Execute("SELECT * FROM CnDocumento" _
& " Where DescSubEtapa='" & request.querystring("descsubetapa") & "'" _
& " Order by DescTipoDocumento, IdDocumento")
%>

<%
Do While Not rs.EOF
%>

<%= rs.Fields("iddocumento").Value %>
<%= rs.Fields("descdocumento").Value %>
<a href="<%=rs.Fields("localizacao").Value & "\" & rs.Fields("NomeArquivo").Value%>" target="_blank"><img border="0" src="gifs/ver.gif" alt="Visualizar"></a></font></p>

<%
rs.MoveNext
Loop
%>

<%
rs.Close
Set rs = Nothing
conexao.Close
Set conexao = Nothing
%>
Se puderem me dar outra dica, agradeço de montão...

Posted by ecbert on 30/04/2003, 07:41 in ASP

Tenho uma página que monta outra chamada documento.asp que lista arquivos de um diretório.
Esses arquivos são pdf e como tal abrem o acrobat no browser.

Acontece que não consigo proteger esse arquivo, ou seja, coloquei restrições no site todo, mas quando dou logout e volto a essa página eu posso abrir o link para visualização desse pdf normalmente (<%=rs.Fields("localizacao").Value & rs.Fields("NomeArquivo").Value%>)...

O que eu gostaria de saber? Existe uma maneira de colocar a restrição nesse link para o arquivo para que quando o sistema for desligado ela retorne a página como "Você não está logado" ou no meu caso que ele redirecionasse para a página invalido.asp....

Tentei limpar o cache depois do logout, mas não deu certo justamente por causa dessa página do arquivo pdf. Ele redireciona todas as páginas para o invalido.asp, menos a que abre pelo acrobat.

Preciso muito achar uma maneira de proteger esses arquivos, mas não estou sabendo como.

Obrigada desde já.

Posted by ecbert on 30/04/2003, 13:41 in ASP

Se for como penso, fiz isso por esses dias...

Vc cria duas páginas ...uma que vai passar e outra que vai receber os parâmetros...

Por exemplo:
página download.asp tem os links:

Freeware, Shareware, etc. Esses links direcionam para uma unica página que irá receber como parâmetro a categoria do download e montar uma lista com os arquivos....

Supondo-se que a página que monta a listagem chame-se montadownload.asp... é mais ou menos assim que fica a chamada na download.asp:

<a href="montadownload.asp?cat="freeware">Freeware<a>
<a href="montadownload.asp?cat="shareware">Shareware<a>


aí na montadownload.asp o código fica mais ou menos assim:

Dim rs 'Recordset
Set rs = Server.CreateObject("ADODB.Recordset")
Set rs = conexao.Execute("SELECT * FROM tabela" _
& " Where cat='" & request.querystring "cat") & "'")

<%
Do While Not rs.EOF
%>
<p><%= rs.Fields("categoria").Value %></P>
<p><%= rs.Fields("nomeArquivo").Value %></P> blá blá blá

<%
rs.MoveNext
Loop
%>

<% rs.Close
Set rs = Nothing
conexao.Close
Set conexao = Nothing
%>


Espero tê-lo ajudado, se é essa a dúvida, já passei apuros pra entender ...

Qualquer coisa estamos aí...

Posted by ecbert on 06/05/2003, 08:47 in ASP

Posted by ecbert on 07/05/2003, 08:04 in ASP

Uma outra dica poderia ser usar o Front Page mesmo só pra criar as telas, e o asp, vc pode criar pelo bloco de notas...sem ter que baixar nenhum programa.


Você pode aprender bastante em sites, baixando códigos prontos, entrando em fóruns, mas a princípio, seria bom vc estudar um pouco do asp e como usar os seus objetos...etc......

Quer uma dica?
No site WebAula tem um curso de asp bem legal, é gratuito e vc pode acessar na hora que puder... Acho que valeu a pena fazê-lo... Por que não tenta?

Qualquer coisa é só chamar.

Até.

Posted by ecbert on 07/05/2003, 08:10 in ASP

Posted by ecbert on 07/05/2003, 08:21 in ASP

Posted by ecbert on 08/05/2003, 07:27 in ASP

Posted by ecbert on 09/05/2003, 08:01 in ASP

Vai no Código Livre dar uma olhada...

Uma idéia seria vc fazer um login com essa autenticação e depois lançar uma página de consulta com os projetos em andamento... O cliente "clica" e é redirecionado para o projeto.


Tente montar a autenticação primeiro... Se não conseguir com os códigos que tem lá post novamente... A gente tenta de outra maneira ok?

Até mais e boa sorte.

Posted by ecbert on 09/05/2003, 14:46 in ASP

Posted by ecbert on 15/05/2003, 09:24 in ASP

Posted by ecbert on 15/05/2003, 09:31 in ASP

Posted by ecbert on 15/05/2003, 09:48 in ASP

agora está aparecendo duas vezes o campo um como link e o outro sem link...

Tá dando tiuti já...Com vcs também é assim ? Tem hora que a cabeça parece que não funciona mais?

Posted by ecbert on 15/05/2003, 09:51 in ASP

Posted by ecbert on 15/05/2003, 09:54 in ASP

Valeu...

Posted by ecbert on 15/05/2003, 09:57 in ASP

Posted by ecbert on 15/05/2003, 10:31 in ASP

Posted by ecbert on 19/05/2003, 15:50 in ASP

Posted by ecbert on 21/05/2003, 07:54 in ASP

Posted by ecbert on 21/05/2003, 13:09 in ASP

Valeu pessoal, testei das duas formas e deu certo....




Obrigada e até mais

Posted by ecbert on 22/05/2003, 07:44 in ASP

Bom, vamos lá... Vou tentar ajudá-lo. Vc pode trabalhar basicamente com três arquivos: um formulário, um que conecta com o banco e o outro para fazer a busca...

então vamos ao form DigitaCep.asp:

<html>

<head>
<title>Pesquisa de revendedores</title>
</head>

<body>

<form method="POST" action="BuscaCep.asp">
  <p>Digite seu cep</p>
  <p>
  <input type="text" name="txtcep" size="20">
  <input type="submit" value="Busca" name="btEnviar">
  </p>
</form>

</body>

</html>

Agora o arquivo de conexão com seu bd:

<%
 'Variáveis
 Dim StrCon	'String de conexão
 Dim Conexao	'Objeto de conexão
 
Set Conexao = CreateObject("ADODB.CONNECTION")
Strcon ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &   server.MapPath("nome do banco.mdb") 
 
 Sub AbreConexao()
       Conexao.Open Strcon
 end sub

 Sub FechaConexao()
       Conexao.close
 end sub 
 %>

E agora o arquivo BuscaRevendedor.asp:

<html>
<head>
<title>Lista revendedores</title>

<!--aqui o include do arquivo de conexão com o banco>
<!--#include virtual="/raiz do site/conecta.inc"-->

<%
AbreConexao
 
 Dim rs  'Recordset
'//Montamos aqui o recordset que irá receber os valores do banco
  Set rs = Server.CreateObject("ADODB.Recordset")
  Set rs = conexao.Execute("SELECT * from Revendedores" _
	& " Where cep= '"& request.form("txtCep") & "'")
%>

<p>
<%
   if rs.eof then
   Response.write("Não existem revendedores para este cep.")
   %>
</p>

<%else%>

<%
     Do While Not rs.EOF 
%>

<p><%=rs.Fields("Cep").Value%></p>
<p><%=rs.Fields("NomeRevendedor").Value%></p>
<p><%=rs.Fields("EndRevendedor").Value%></p>
<p>etc...</p>

<%
'//Fecha o Loop
   rs.MoveNext
   Loop
'//Fecha o recordset e libera os objetos
   rs.Close
   Set rs = Nothing
   conexao.Close
   Set conexao = Nothing
   %>

<%end if%>
</html>

Não tive tempo de testar o buscaRevendedor.asp ok? Se tiver alguma falha pessoal, por favor, corrijam ok?

Espero que te ajude...

Até mais

Posted by ecbert on 22/05/2003, 07:46 in ASP