Para vc testar localmente essas páginas, pode usar o pws.
Você instala no seu micro, adiciona o caminho das páginas nele, e a partir daí vc vai acessar vai browser como o endereço virtual das páginas...
http://nome do seu micro/nome do site/pagina.asp
Acho que é o mais simples... e se já estiver hospedado, vc só tem que sber se eles te dão suporte ao asp para poder chamá-las pelo browser...
Acho que isso...
Se alguém puder complementar...
Até mais.
ecbert's Content
There have been 87 items by ecbert (Search limited from 29/05/2023)
#104086 Asp E Iframe
Posted by
on 23/05/2003, 10:24
in
ASP
Tenho um menu em asp que passa parâmetros para montar cada página dos links...
Quero que a partir de um certo ponto da navegação ele apareça sempre, só que tentei usar frames, e o iframe também... e ele me dá sempre o erro
ADODB.Field error '800a0bcd'
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
/sistema/menu.asp, line 25
Se alguém souber o que acontece e puder me ajudar dando alguma dica de como montar esse menu, agradeço....
Obrigada e até mais
Quero que a partir de um certo ponto da navegação ele apareça sempre, só que tentei usar frames, e o iframe também... e ele me dá sempre o erro
ADODB.Field error '800a0bcd'
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
/sistema/menu.asp, line 25
Se alguém souber o que acontece e puder me ajudar dando alguma dica de como montar esse menu, agradeço....
Obrigada e até mais
#93524 Excluir
Posted by
on 07/05/2003, 08:21
in
ASP
Tenho uma página que lista os usuários cadastrados
É uma tabela montada com os registros da tabela e no canto tem um botão que é para excluir o registro caso o administrador queira.
Alguém poderia me ajudar a montar esse excluir.asp dessa forma?
Quero que esse botão pegue os campos mostrados pelo recordset e os apague da tabela, atualizando a página...
Já tentei fazer, mas deu erro sobre erro sobre erro...e eu tenho um pouco de pressa para terminar esse cadastro.
Obrigada e até...
É uma tabela montada com os registros da tabela e no canto tem um botão que é para excluir o registro caso o administrador queira.
Alguém poderia me ajudar a montar esse excluir.asp dessa forma?
Quero que esse botão pegue os campos mostrados pelo recordset e os apague da tabela, atualizando a página...
Já tentei fazer, mas deu erro sobre erro sobre erro...e eu tenho um pouco de pressa para terminar esse cadastro.
Obrigada e até...
#107357 Alguém Pode Me Indicar....
Posted by
on 28/05/2003, 07:25
in
ASP
Dá uma olhada nos primeiros tópicos do fórum de Asp e Asp.Net...tem bastante coisa que o pessoal indica lá, inclusive um curso que o Otávio lançou esses tempos.
Se quiser um curso legal pra começar a se inteirar, vá ao WebAula.com.br
tem um curso de asp que para quem está iniciando vale a pena.
Até mais e boa sorte.
Se quiser um curso legal pra começar a se inteirar, vá ao WebAula.com.br
tem um curso de asp que para quem está iniciando vale a pena.
Até mais e boa sorte.
#124644 Como Criar Uma Area Protegina
Posted by
on 20/06/2003, 07:31
in
ASP
Você pode fazer isso criando um banco de usuários com a definição do login, senha e acesso e fazendo a autenticação deste login e senha. Abra um recordset que receberá um select desse banco e armazene os dados digitados em sessions que serão utilizadas depois...
Arquivo para autenticação:
e a rotina abaixo vc coloca no início da página que quer restringir, fazendo com que o usuário se logue no sistema pois caso não esteja (session("logado")=false) ele redireciona para uma determinada página e ao mesmo tempo se o acesso for diferente de, por exemplo, acesso 1 ele também é redirecionado para tal página.
Isso deve ser colocado no início de todas as páginas que quer restringir...
Acho que é isso... Existem outras maneiras de se fazer, caso não seja essa sua necessidade poste novamente e o pessoal ajuda, ok?
Boa sorte.
Arquivo para autenticação:
[SIZE=1]<%
'Conexão com o banco=============
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("banco/users")
'Autenticação do usuário============
Dim rs 'recordset para receber o resultado do select
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "Select * from Usuarios Where Usuario='" & request.form("txtusuario") & "'" _
& " And Senha='" & request.form("txtsenha") & "'", Conexao,3,3
if not rs.eof then 'encontrou o registro procurado
session("logado")= true
session("acesso")=rs("acesso")
response.redirect("talpagina.asp")
else
response.redirect("restrito.asp")
end if
%> [/SIZE]e a rotina abaixo vc coloca no início da página que quer restringir, fazendo com que o usuário se logue no sistema pois caso não esteja (session("logado")=false) ele redireciona para uma determinada página e ao mesmo tempo se o acesso for diferente de, por exemplo, acesso 1 ele também é redirecionado para tal página.
Isso deve ser colocado no início de todas as páginas que quer restringir...
[SIZE=1]<%
if not session("logado")=true then
if not session("acesso")=1 then
response.redirect "restrito.asp"
end if
end if
%>[/SIZE]Acho que é isso... Existem outras maneiras de se fazer, caso não seja essa sua necessidade poste novamente e o pessoal ajuda, ok?
Boa sorte.
#94811 Sistema De Autenticação...
Posted by
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.
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.
#103464 Alguém Já Viu Um Script Assim?
Posted by
on 22/05/2003, 07:46
in
ASP
Só alterando uma coisa.... no action do formulário não é buscaCep.asp... é buscaRevendedor.asp.....ok?
#103463 Alguém Já Viu Um Script Assim?
Posted by
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:
Agora o arquivo de conexão com seu bd:
E agora o arquivo BuscaRevendedor.asp:
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
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
#88322 Como Fazer Isto?
Posted by
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í...
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í...
#88127 Urgente... Proteger Páginas Com Pdf
Posted by
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á.
#106924 Qual O Código Para Abrí-lo
Posted by
on 27/05/2003, 13:25
in
ASP
Não deu certo... coloquei
response.redirect ("pagina.asp") & rs("localizacao") & "/" & rs("NomeArquivo")
Dá esse erro:
Response object error 'ASP 0156 : 80004005'
Header Error
/sisproagro/Operacao.asp, line 138
The HTTP headers are already written to the client browser. Any HTTP header
modifications must be made before writing page content.
Onde está o erro?
response.redirect ("pagina.asp") & rs("localizacao") & "/" & rs("NomeArquivo")
Dá esse erro:
Response object error 'ASP 0156 : 80004005'
Header Error
/sisproagro/Operacao.asp, line 138
The HTTP headers are already written to the client browser. Any HTTP header
modifications must be made before writing page content.
Onde está o erro?
#106848 Qual O Código Para Abrí-lo
Posted by
on 27/05/2003, 11:08
in
ASP
Cadastrei um arquivo pdf num banco access indicando o nome do arquivo e sua localização
Agora quero mostrá-lo dentro de uma página asp que montei.
Preciso passar os parâmetros do arquivo, mas não sei como faço para que ele abra dentro da célula..
É mais ou menos assim o que estou fazendo:
Alguém me ajuda?
Agora quero mostrá-lo dentro de uma página asp que montei.
Preciso passar os parâmetros do arquivo, mas não sei como faço para que ele abra dentro da célula..
É mais ou menos assim o que estou fazendo:
Html...
<%
if rs.eof then
Response.write("Não existe documento cadastrado para essa atividade.")
%>
<%else%>
<%=rs.Fields("localizacao").Value & "\" & rs.Fields("NomeArquivo").Value%>
// Nesta linha acima é que eu não sei como fazer
//Gostaria que ele abrisse dentro da célula onde tem esse código
html...Alguém me ajuda?
#132707 Usuário Que Imprime Página
Posted by
on 30/06/2003, 09:09
in
ASP
Para o pessoal com mais experiência em programação asp, estou tentando montar o seguinte:
Tenho um site onde usuários tem níveis para acesso às paginas... Dentre essas páginas existem algumas que mostram documentos de qualidade. Esses documentos são cadastrados por um sistema auxiliar feito em vb e a página apenas direciona o caminho do documento. Até aí tudo bem...
Alguns desses documentos tem cópia controlada, ou seja, não podem ser impressos por qualquer pessoa em qualquer quantidade, então o que preciso?
Tenho que marcar de alguma forma esse usuário que imprimiu tal documento, em tal hora, em tal data e registrá-lo no banco, pois quando houver alguma modificação nesse documento impresso, o sistema terá que informar esse usuário sobre a alteração para que ele possa descartar a cópia.
Alguém tem idéia de como eu poderia montar isso no site?
Vou ter que usar session, mas como e onde é que é o problema...
Estou utilizando Banco Access, rede local, intranet, servidor iis...
Se alguém puder me dar uma dica, obrigada.
Tenho um site onde usuários tem níveis para acesso às paginas... Dentre essas páginas existem algumas que mostram documentos de qualidade. Esses documentos são cadastrados por um sistema auxiliar feito em vb e a página apenas direciona o caminho do documento. Até aí tudo bem...
Alguns desses documentos tem cópia controlada, ou seja, não podem ser impressos por qualquer pessoa em qualquer quantidade, então o que preciso?
Tenho que marcar de alguma forma esse usuário que imprimiu tal documento, em tal hora, em tal data e registrá-lo no banco, pois quando houver alguma modificação nesse documento impresso, o sistema terá que informar esse usuário sobre a alteração para que ele possa descartar a cópia.
Alguém tem idéia de como eu poderia montar isso no site?
Vou ter que usar session, mas como e onde é que é o problema...
Estou utilizando Banco Access, rede local, intranet, servidor iis...
Se alguém puder me dar uma dica, obrigada.
#103501 Dá Para Ver Arquivos Txt No Browser?
Posted by
on 22/05/2003, 09:34
in
ASP
Dá sim....essa é uma idéia.....mas vc pode também usar um include file="nome do arquivo.txt"....
<%
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set listar = fso.OpenTextFile("c:\InetPub\wwwroot\teste.txt",1,0)
Do while listar.AtEndOfStream <> true
conteudo = listar.readline
response.write conteudo & "<br><br>"
Loop
Set fso = Nothing
Set listar = Nothing
%>
Até mais
<%
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set listar = fso.OpenTextFile("c:\InetPub\wwwroot\teste.txt",1,0)
Do while listar.AtEndOfStream <> true
conteudo = listar.readline
response.write conteudo & "<br><br>"
Loop
Set fso = Nothing
Set listar = Nothing
%>
Até mais
#87584 Botão Backward Do Navegador...urgente
Posted by
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...
#106930 Qdo Não Se Tem Registro...
Posted by
on 27/05/2003, 13:41
in
ASP
Dei uma olhada rápida em seu código...
Me parece que esse é o trecho de exibição dos membros não é?
Sendo assim, talvez vc deva encaixar o if aqui:
Teste para ver se dá certo. Até mais.
Me parece que esse é o trecho de exibição dos membros não é?
...
-->
<p>::: Membros cadastrados</p><%
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=" & server.mappath("../db/sw.mdb")
sqlstmt = "SELECT * FROM membros"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sqlstmt, DSNtemp, 3, 3
do while not rs.eof
%>
<table width="100%" border="0" class="text">
<tr>
<td colspan="3" class="titulo">Nome: <%=rs("nome")%></td>
</tr>
<tr>
<td width="17%" rowspan="3"><img src="membros/<%=rs("foto")%>"> </td>
<td width="74%">Nick: <%=rs("nick")%></td>
<td width="9%"> </td>
</tr>
<tr>
<td>Data de Nasc.: <%=rs("nasc")%></td>
<td> </td>
</tr>
<tr>
<td>Site: <a href="http://<%=rs("site")%>" target="_blank"><%=rs("site")%></a></td>
<td> </td>
</tr>
<tr>
<td colspan="3"><hr></td>
</tr>
</table>
<p>
<% if not rs.eof then%>
<% rs.movenext %>
<%end if%>
<%loop%></p>
<!-- InstanceEndEditable --></td>
</tr>
<tr>
<td height="19" colspan="2" valign="top"><!--DWLayoutEmptyCell--> </td>
</tr>
</table>
<table width="100%" height="43" border="0">
<tr>
<td background="../images/light_luz.jpg"> </td>
</tr>
</table>
<p> </p>
</body>
<!-- InstanceEnd --></html>Sendo assim, talvez vc deva encaixar o if aqui:
...
<%
varFoto = rsConsulta("foto")
if (varFoto = "") Then
varFoto = "imagem_padrao.jpg"
%>
<%else%>
<tr>
<td width="17%" rowspan="3"><img src="membros/<%=rs("foto")%>"> </td>
<%end if%>
... Teste para ver se dá certo. Até mais.
#110687 Menu Fica Embaixo Do Conteúdo
Posted by
on 02/06/2003, 11:23
in
HTML, CSS e Metodologias
Oi pessoal, não trabalho muito com DHtml nem javascript, por isso resolvi pedir ajuda.
Através de um gerador online, consegui o seguinte código para um menu:
Acontece que a página tem um iframe recebendo um texto bem no centro e quando eu abro esse menu, que fica suspenso na lateral esquerda, ele aparece metade por baixo do iframe. Eu não posso diminuir a largura do iframe, então tem como modificar alguma coisa nesse código para que ele apareça sempre por cima do conteúdo?
Até mais e obrigada.
Através de um gerador online, consegui o seguinte código para um menu:
<style type="text/css">
<!--
#master {position:absolute; width: 200px; top: 10px; left: -120px; z-index:2; visibility:visible;}
#menu {position:absolute; width: 18px; top: 0px; left: 120px; z-index:5; visibility:visible;}
#top {position:absolute; width: 120px; top: 0px; left: 0px; z-index:5; visibility:visible;}
#screen {position:absolute; width: 120px; top: 6px; left: 0px; z-index:5; visibility:visible;}
#screenlinks {position:absolute; width: 120px; top: 6px; left: 0px; z-index:5; visibility:visible;}
-->
</style>
<style type="text/css">
<!--
.NavJump {font-family: arial; font-size: 10pt; color: #339966; text-decoration: none;}
a:link.NavJump {color : #339966;}
a:visited.NavJump {color : #339966;}
a:active.NavJump {text-decoration: none; color: #003300;}
a:hover.NavJump {text-decoration: none; color: #003300;}
-->
</style>
<script language = "javascript">
<!--
var ie = document.all ? 1 : 0
var ns = document.layers ? 1 : 0
if(ie){
document.write('<style type="text/css">')
document.write("#screen {filter:Alpha(Opacity=30);}")
document.write("</style>")
}
if(ns){
document.write('<style type="text/css">')
document.write("#master {clip:rect(0,150,250,0);}")
document.write("</style>")
}
//-->
</script>
<script language = "javascript">
<!--
var ie = document.all ? 1 : 0
var ns = document.layers ? 1 : 0
var master = new Object("element")
master.curLeft = -120; master.curTop = 10;
master.gapLeft = 0; master.gapTop = 0;
master.timer = null;
function moveAlong(layerName, paceLeft, paceTop, fromLeft, fromTop){
clearTimeout(eval(layerName).timer)
if(eval(layerName).curLeft != fromLeft){
if((Math.max(eval(layerName).curLeft, fromLeft) - Math.min(eval(layerName).curLeft, fromLeft)) < paceLeft){eval(layerName).curLeft = fromLeft}
else if(eval(layerName).curLeft < fromLeft){eval(layerName).curLeft = eval(layerName).curLeft + paceLeft}
else if(eval(layerName).curLeft > fromLeft){eval(layerName).curLeft = eval(layerName).curLeft - paceLeft}
if(ie){document.all[layerName].style.left = eval(layerName).curLeft}
if(ns){document[layerName].left = eval(layerName).curLeft}
}
if(eval(layerName).curTop != fromTop){
if((Math.max(eval(layerName).curTop, fromTop) - Math.min(eval(layerName).curTop, fromTop)) < paceTop){eval(layerName).curTop = fromTop}
else if(eval(layerName).curTop < fromTop){eval(layerName).curTop = eval(layerName).curTop + paceTop}
else if(eval(layerName).curTop > fromTop){eval(layerName).curTop = eval(layerName).curTop - paceTop}
if(ie){document.all[layerName].style.top = eval(layerName).curTop}
if(ns){document[layerName].top = eval(layerName).curTop}
}
eval(layerName).timer=setTimeout('moveAlong("'+layerName+'",'+paceLeft+','+paceTop+','+fromLeft+','+fromTop+')',30)
}
function setPace(layerName, fromLeft, fromTop, motionSpeed){
eval(layerName).gapLeft = (Math.max(eval(layerName).curLeft, fromLeft) - Math.min(eval(layerName).curLeft, fromLeft))/motionSpeed
eval(layerName).gapTop = (Math.max(eval(layerName).curTop, fromTop) - Math.min(eval(layerName).curTop, fromTop))/motionSpeed
moveAlong(layerName, eval(layerName).gapLeft, eval(layerName).gapTop, fromLeft, fromTop)
}
var expandState = 0
function expand(){
if(expandState == 0){setPace("master", 0, 10, 10); if(ie){document.menutop.src = "imagens/menub.gif"}; expandState = 1;}
else{setPace("master", -120, 10, 10); if(ie){document.menutop.src = "imagens/menu.gif"}; expandState = 0;}
}
//-->
</script>
<div id="master">
<div id="menu">
<table border="0" width="18" cellspacing="0" cellpadding="0">
<tr><td width="100%"><a href="javascript:expand()" onfocus="this.blur()"><img name="menutop" border="0" src="imagens/menu.gif" width="18" height="70"></a></td></tr>
</table>
</div>
<div id="top">
<table border="0" width="120" cellspacing="0" cellpadding="0">
<tr><td width="100%"><img border="0" src="imagens/top.gif" width="120" height="6"></td></tr>
</table>
</div>
<div id="screen">
<table border="0" width="120" cellspacing="0" cellpadding="5">
<tr><td width="100%" bgcolor="#339966">
<table border="0" width="100%" bgcolor="#339966" cellspacing="0" cellpadding="0">
<tr><td width="100%">
<table border="0" width="100%" cellspacing="1" cellpadding="5">
<tr><td width="100%" bgcolor="#FFFFFF">
<font class="NavJump"><br></font><font class="NavJump"><br></font><font class="NavJump"><br></font><font class="NavJump"><br></font><font class="NavJump"><br></font><font class="NavJump"><br></font>
</td></tr>
</table>
</td></tr>
</table>
</td></tr>
</table>
</div>
<div id="screenlinks">
<table border="0" width="120" cellspacing="0" cellpadding="5">
<tr><td width="100%">
<table border="0" width="100%" bgcolor="#339966" cellspacing="0" cellpadding="0">
<tr><td width="100%">
<table border="0" width="100%" cellspacing="1" cellpadding="5">
<tr><td width="100%" bgcolor="#FFFFFF">
<a href="documento.asp?descatividade=<%=rs.Fields("descatividade").Value%>" class="NavJump"><b>Operação</b></a><br>
<a href="equipamentos.asp?descatividade=<%=rs.Fields("descatividade").Value%>" class="NavJump"><b>Equipamentos</b></a><br>
<a href="implementos.asp?descatividade=<%=rs.Fields("descatividade").Value%>" class="NavJump"><b>Implementos</b></a><br>
<a href="epis.asp?descatividade=<%=rs.Fields("descatividade").Value%>" class="NavJump"><b>EPI's</b></a><br>
<a href="rh.asp" class="NavJump"><b>Recursos Humanos</b></a><br>
<a href="download.asp" class="NavJump"><b>Donwloads</b></a><br>
</td></tr>
</table>
</td></tr>
</table>
</td></tr>
</table>
</div>
</div>
<script language = "javascript">
<!--
if(ie){var sidemenu = document.all.master;}
if(ns){var sidemenu = document.master;}
function FixY(){
if(ie){sidemenu.style.top = document.body.scrollTop+10}
if(ns){sidemenu.top = window.pageYOffset+10}
}
setInterval("FixY()",100);
//-->
</script>Acontece que a página tem um iframe recebendo um texto bem no centro e quando eu abro esse menu, que fica suspenso na lateral esquerda, ele aparece metade por baixo do iframe. Eu não posso diminuir a largura do iframe, então tem como modificar alguma coisa nesse código para que ele apareça sempre por cima do conteúdo?
Até mais e obrigada.
#111398 Menu Fica Embaixo Do Conteúdo
Posted by
on 03/06/2003, 08:30
in
HTML, CSS e Metodologias
Desculpe... mas o que foi colocado neste tópico não funcionou. Acho que meu caso é diferente, o menu continua abrindo por baixo do iframe...
Valeu.
Valeu.
#103704 Como Fazer Um Iframe?
Posted by
on 22/05/2003, 16:22
in
HTML, CSS e Metodologias
Tenho um menu em asp que funciona passando parâmetros para abrir as páginas.
Mais ou menos assim:
Link1 - "pagina.asp?itemTal=<%=rs.Fields("itemTal").Value%>" blá blá blá...
Estou tentando montar com frames mas não está dando certo...
Será que isso seria caso para o iframe?
Não sei como fazer, se for o caso... Alguém pode me ajudar?
Queria que ficasse um cabeçalho, um rodapé, o conteúdo e esse menu na lateral esquerda...
Se alguém puder, agradeço...
Até mais.
Mais ou menos assim:
Link1 - "pagina.asp?itemTal=<%=rs.Fields("itemTal").Value%>" blá blá blá...
Estou tentando montar com frames mas não está dando certo...
Será que isso seria caso para o iframe?
Não sei como fazer, se for o caso... Alguém pode me ajudar?
Queria que ficasse um cabeçalho, um rodapé, o conteúdo e esse menu na lateral esquerda...
Se alguém puder, agradeço...
Até mais.
#102923 Mostrar Registros De Forma Diferente
Posted by
on 21/05/2003, 07:54
in
ASP
Tenho uma tabela que lista equipamentos... Além das características dos equipamentos tem a imagem dele....
Como faço para listar esses equipamentos lado a lado na página colocando a imagem acima e a descrição abaixo ou a imagem e descrição lado a lado...
Tem jeito não tem?
Como faço para listar esses equipamentos lado a lado na página colocando a imagem acima e a descrição abaixo ou a imagem e descrição lado a lado...
Tem jeito não tem?
#103090 Mostrar Registros De Forma Diferente
Posted by
on 21/05/2003, 13:09
in
ASP
Valeu pessoal, testei das duas formas e deu certo....
Obrigada e até mais
Obrigada e até mais
#99082 Pra Serve O Include Virtual
Posted by
on 15/05/2003, 09:24
in
ASP
include file pega o caminho físico do arquivo...
include virtual pega o caminho virtual...
não sei se funciona para endereçar outros servidores não...
Até mais...
include virtual pega o caminho virtual...
não sei se funciona para endereçar outros servidores não...
Até mais...
#122808 Error '80004005'
Posted by
on 18/06/2003, 09:24
in
ASP
Tenho um sistema de cadastro, alteração e exclusão de usuários.
Quando tento fazer qualquer uma dessas funções, tenho o seguinte erro:
Este no caso de alteração de usuários...
Meu arquivo de conexão é o seguinte:
Alguém sabe o porquê desse erro? O pessoal migrou de um servidor para outro esses tempos. Antes de mudar estava funcionando legal, agora dá esse erro.
Se alguém souber, obrigada.
Quando tento fazer qualquer uma dessas funções, tenho o seguinte erro:
Este no caso de alteração de usuários...
Microsoft OLE DB Provider for ODBC Drivers error '80004005' [Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.Todos os arquivos asp e o banco estão no mesmo diretório.
Meu arquivo de conexão é o seguinte:
<%
'Procedimentos utilizados no Site
'Variáveis
Dim StrCon 'String de conexão
Dim Conexao 'Objeto de conexão
Set Conexao = CreateObject("ADODB.CONNECTION")
Conexao.Mode = adModeReadWrite
Strcon ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("../banco/users")
Sub AbreConexao()
Conexao.Open Strcon
end sub
Sub FechaConexao()
Conexao.close
end sub
%>Alguém sabe o porquê desse erro? O pessoal migrou de um servidor para outro esses tempos. Antes de mudar estava funcionando legal, agora dá esse erro.
Se alguém souber, obrigada.
#95040 Registrar Domínio
Posted by
on 09/05/2003, 14:46
in
ASP
Seu endereço é:
www.supertrafego.com
ele tem um link para o que está querendo......
www.supertrafego.com
ele tem um link para o que está querendo......
#113234 Request <%x=x=1%>?
Posted by
on 06/06/2003, 08:32
in
ASP
Explique melhor o que pretende fazer com essa página. Está trabalhando com banco ou não?
O que quer mostrar?
Tenho alguma coisa com while... mas utilizo banco... Poste novamente que eu tento te ajudar.
Até mais.
O que quer mostrar?
Tenho alguma coisa com while... mas utilizo banco... Poste novamente que eu tento te ajudar.
Até mais.
