Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

LeonardoBM

[Resolvido] Problemas com os Browser ( navegador de internet)

Por , em ASP Clássico

Recommended Posts

LeonardoBM    0

LeonardoBM
Postado

Bom dia pessoal,

 

Caros colegas estou com um problema com a programação em asp, não estou conseguindo rodar perfeitamente a pagina no IE, mas no Chorme e no Firefox roda uma maravilha.

 

Vamos direto ao codigo:

 

<!--#include file="registro.asp"-->
<%
	' Não permite que o arquivo abra sem o index.asp
	if not Request.QueryString("true") = "max" then
			Response.Redirect("index.asp")
	end if

	' Recupera as variáveis
	campo = Request.QueryString("campo")
	ordem = Request.QueryString("ordem")

	' Variáveis da paginação
	pag = request.querystring("pagina") ' Recupero o valor da página atual
	regs = 20 ' Registros listados por página
	oRS.CursorLocation = 3 'Cursor a ser utilizado, escolho deixar o cursor do lado do cliente
	oRS.pagesize = regs
	
	' Se for a primeira vez que o usuário esta acessando a página indico que pag = 1
	' Se o usuário digitar 0 no valor get da página atribuo o valor 1 para pag
	if pag = "" or pag = 0 Then 
	  pag = 1
	end if

	' Recupera a variável que diz a ação a ser tomada
	if not Request.Form("action") = "" then
		action = Request.Form("action")
	else
  		action = Request.QueryString("action")
	End If

	' Exclui o usuário selecionado
	if not Request.QueryString("deletar") = "" then 
		deletar = Request.QueryString("deletar")	
		id = Request.QueryString("id")	
	else 
		deletar = Request.Form("deletar")	
		id = Request.Form("id")	
	end if
	if deletar = "ok" and not Session("id_usuario") = id then
		sqry = "DELETE FROM tbusuarios WHERE (id like '"& id &"')"
		oConn.Execute(sqry)		
		
		Session("id_usuario") = id
		exclui_usuario = "ok"
	end if

	' Condições para ordenar o relatório
	if campo = "login" and ordem = "cima" then
		var_ordem = "login DESC"
	elseif campo = "login" and ordem = "baixo" then
		var_ordem = "login ASC"
	elseif campo = "permit" and ordem = "cima" then
		var_ordem = "permit DESC"
	elseif campo = "permit" and ordem = "baixo" then
		var_ordem = "permit ASC"
	elseif campo = "nome" and ordem = "cima" then
		var_ordem = "nome DESC"
	else
		var_ordem = "nome ASC"
	end if

	' Monta a select da pesquisa que o usuario selecionou
	if Session("pesquisa_ok") = "ok" and not Session("palavra_chave") = "" then
		Set oRS2 = Server.CreateObject("ADODB.Recordset")
		oRS2.Open "SELECT tbusuarios_campo, tbusuarios_nome FROM tbpesquisa WHERE (tbusuarios_campo not like '" & "" & "' and tbusuarios_nome not like '" & "" & "') ORDER BY id ASC",oConn
		
		if Session("texto_exato") = "on" then
			texto_exato = ""
		else
			texto_exato = "%"
		end if
		
		Do While not oRS2.eof
			if Session(oRS2.Fields("tbusuarios_campo")) = "on" then
				if monta_select = "" then
					monta_select = "(" & oRS2.Fields("tbusuarios_campo") & " like '"& texto_exato &"" & Session("palavra_chave") & ""& texto_exato &"')"
				else
					monta_select = monta_select & " or " & "(" & oRS2.Fields("tbusuarios_campo") & " like '"& texto_exato &"" & Session("palavra_chave") & ""& texto_exato &"')"
				end if
			end if
			oRS2.MoveNext
		Loop
		
		Session("monta_select") = monta_select
		
		' Reseta a variável para não montar a select novamente, mantém ela formada
		Session("pesquisa_ok") = ""
	end if

	' Reseta a pesquisa mostrando todos os registros
	if Request.QueryString("null") = "ok" then
		Session("monta_select") = ""
		Session("pesquisa_ok") = ""
	end if
	
	' Montagem da select
	if not Session("monta_select") = "" then
		oRS.Open "SELECT id, login, nome, permit FROM tbusuarios WHERE ((login not like '" & "adm" & "') and (login not like '" & "manual" & "') and (" & Session("monta_select") & ")) order by " & var_ordem & "",oConn	
		Session("select_impressao_usuario") = "SELECT login, nome, permit FROM tbusuarios WHERE ((login not like '" & "adm" & "') and (login not like '" & "manual" & "') and (" & Session("monta_select") & ")) order by " & var_ordem & ""
	else
		oRS.Open "SELECT id, login, nome, permit FROM tbusuarios WHERE (login not like '" & "adm" & "') and (login not like '" & "manual" & "') order by " & var_ordem & "",oConn
		Session("select_impressao_usuario") = "SELECT login, nome, permit FROM tbusuarios WHERE (login not like '" & "adm" & "') and (login not like '" & "manual" & "') order by " & var_ordem & ""
	end if
%>
	<table class="black" style="position: relative; top:20px; left:10px;" border="0" height="400" width="80%" align="center" cellpadding="0" cellspacing="0">
		<tr>
			<td height="20" class="black_negrito" width="50%" style="border-bottom:2px solid #666;">
				<img src="images/setas.gif" width="9" height="5">
				<%
					if action = "excluir" then 
						Response.Write("<b>Exclusão de Usuários</b>") 
					elseif action = "alterar" then 
						Response.Write("<b>Alteração de Usuários</b>")
					elseif action = "lista" then 
						Response.Write("<b>Lista dos Usuários Cadastrados</b>") 
					elseif action = "relatorio" then 
						Response.Write("<b>Relatório de Usuários</b>") 
					end if 
				%> 
			</td>
			<td width="50%" align="right" style="border-bottom: 2px solid #666;">

            <%
			if Session("tipo") = "ADM" then					'este numero é o mesmo número q foi gravado na tabela como a permissão do usuário,
																					'ou seja pode ser alterado de acordo com o usuário q você queira restringir

			response.write ("<a href= ""index.asp?file=usuario_incluir&action=incluir&true=max"" onMouseOver=""window.status=':: Clique para Adicionar um Novo Usuários';return true"" style=""position:relative; right:30px;""><img src=""Images/NOVO_USUARIO.jpg"" border=""0"" alt=""Adicionar novo usuario""></a>")

			end if
			%>

            
				 <a href="#" onclick="openWindow('pesquisa.asp?action=<%=action%>&tipo=usuarios&true=max','yes','460','290','10','10','myWindow'); return false;" onMouseOver="window.status=':: Clique para Efetuar a Busca de Usuários';return true" style="position:relative; right:20px; "><img src="images/lupa.gif" border="0" alt="Efetuar Busca"></a>
                
				 <a href="usuario_impressao.asp" onMouseOver="window.status=':: Clique para Imprimir o Relatório de Usuários';return true" style="position:relative; right:10px;"><img src="images/impressora.gif" border="0" alt="Imprimir Relatório"></a>
			</td>
		</tr>
		<tr>
			<td align="center" colspan="2">

				<table width="100%" height="400" border="0" align="center" cellpadding="0" cellspacing="0" class="black">
					<tr>
						<td align="center">              
							<table width="80%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#C6C6C6" class="black">
								<tr height="18" bgcolor="#E1E1E1">
									<%if campo = "nome" and ordem = "baixo" then%>
										<td width="50%" class="black_negrito" onClick="javascript:location.href='index.asp?file=usuario_lista&action=<%=action%>&true=max&campo=nome&ordem=cima'" onMouseOver="phoenix_over(this,'#c6c6c6'); window.status=':: Clique para Ordenar os Registros pelo Nome do Usuário em Ordem Descrescente ::'; return true" onMouseOut="phoenix_hout(this,'#E1E1E1');"><b>Nome</b>  <img src="images/baixo.gif"></td>
									<%elseif campo = "nome" and ordem = "cima" then%>
										<td width="50%" class="black_negrito" onClick="javascript:location.href='index.asp?file=usuario_lista&action=<%=action%>&true=max&campo=nome&ordem=baixo'" onMouseOver="phoenix_over(this,'#c6c6c6'); window.status=':: Clique para Ordenar os Registros pelo Nome do Usuário em Ordem Crescente ::'; return true" onMouseOut="phoenix_hout(this,'#E1E1E1');"><b>Nome</b>  <img src="images/cima.gif"></td>
									<%else%>
										<td width="50%" class="black_negrito" onClick="javascript:location.href='index.asp?file=usuario_lista&action=<%=action%>&true=max&campo=nome&ordem=baixo'" onMouseOver="phoenix_over(this,'#c6c6c6'); window.status=':: Clique para Ordenar os Registros pelo Nome do Usuário em Ordem Crescente ::'; return true" onMouseOut="phoenix_hout(this,'#E1E1E1');"><b>Nome</b></td>
									<%end if%>
	
									<%if campo = "login" and ordem = "baixo" then%>
										<td width="20%" class="black_negrito" onClick="javascript:location.href='index.asp?file=usuario_lista&action=<%=action%>&true=max&campo=login&ordem=cima'" title="teste" onMouseOver="phoenix_over(this,'#c6c6c6'); window.status=':: Clique para Ordenar os Registros pelo Login do Usuário em Ordem Descrescente ::'; return true" onMouseOut="phoenix_hout(this,'#E1E1E1');"><b>Login</b>  <img src="images/baixo.gif"></td>
									<%elseif campo = "login" and ordem = "cima" then%>
										<td width="20%" class="black_negrito" onClick="javascript:location.href='index.asp?file=usuario_lista&action=<%=action%>&true=max&campo=login&ordem=baixo'" onMouseOver="phoenix_over(this,'#c6c6c6'); window.status=':: Clique para Ordenar os Registros pelo Login do Usuário em Ordem Crescente ::'; return true" onMouseOut="phoenix_hout(this,'#E1E1E1');"><b>Login</b>  <img src="images/cima.gif"></td>
									<%else%>
										<td width="20%" class="black_negrito" onClick="javascript:location.href='index.asp?file=usuario_lista&action=<%=action%>&true=max&campo=login&ordem=baixo'" onMouseOver="phoenix_over(this,'#c6c6c6'); window.status=':: Clique para Ordenar os Registros pelo Login do Usuário em Ordem Crescente ::'; return true" onMouseOut="phoenix_hout(this,'#E1E1E1');"><b>Login</b></td>
									<%end if%>

									<%if campo = "permit" and ordem = "baixo" then%>
										<td width="20%" class="black_negrito" onClick="javascript:location.href='index.asp?file=usuario_lista&action=<%=action%>&true=max&campo=permit&ordem=cima'" onMouseOver="phoenix_over(this,'#c6c6c6'); window.status=':: Clique para Ordenar os Registros pelo Tipo do Usuário em Ordem Descrescente ::'; return true" onMouseOut="phoenix_hout(this,'#E1E1E1');"><b>Tipo</b>  <img src="images/baixo.gif"></td>
									<%elseif campo = "permit" and ordem = "cima" then%>
										<td width="20%" class="black_negrito" onClick="javascript:location.href='index.asp?file=usuario_lista&action=<%=action%>&true=max&campo=permit&ordem=baixo'" onMouseOver="phoenix_over(this,'#c6c6c6'); window.status=':: Clique para Ordenar os Registros pelo Tipo do Usuário em Ordem Crescente ::'; return true" onMouseOut="phoenix_hout(this,'#E1E1E1');"><b>Tipo</b>  <img src="images/cima.gif"></td>
									<%else%>
										<td width="20%" class="black_negrito" onClick="javascript:location.href='index.asp?file=usuario_lista&action=<%=action%>&true=max&campo=permit&ordem=baixo'" onMouseOver="phoenix_over(this,'#c6c6c6'); window.status=':: Clique para Ordenar os Registros pelo Tipo do Usuário em Ordem Crescente ::'; return true" onMouseOut="phoenix_hout(this,'#E1E1E1');"><b>Tipo</b></td>
									<%end if%>
	
									<td width="10%" class="black_negrito"><b>Ação</b></td>
								</tr>
								<%
									contador = 0
									if not oRS.eof then
										oRS.absolutepage = pag										
									end if
									
									Do While not oRS.eof and contador < oRS.pagesize
								%>
										<tr height="18">
											<td bgcolor="#FFFFFF"><%=oRS.Fields("nome")%></td>
											<td bgcolor="#FFFFFF"><%=oRS.Fields("login")%></td>
											<td bgcolor="#FFFFFF">
												<%
													if oRS.Fields("permit") = "111111111111111" then
														Response.Write("ADMINISTRADOR")
													else
														Response.Write("USUÁRIO")
													end if
												%>
											</td>
											<td bgcolor="#FFFFFF" align='center'>
                                            
	<%
			if Session("tipo") = "ADM" then					'este numero é o mesmo número q foi gravado na tabela como a permissão do usuário,
																					'ou seja pode ser alterado de acordo com o usuário q você queira restringir

			response.write ("<a href=""index.asp?file=usuario_incluir&action=alterar&true=max&id="" oRS.Fields(""id"") "" class=""link"" onMouseOver=""window.status=':: Clique para Alterar o Cadastro do Usuário  oRS.Fields(""nome"") ';return true""><img src=""images/alterar.gif"" border=""0"" alt=""Alterar Cadastro""></a>")
			response.write ("<a href=""javascript:confirmar_exclusao('do Usuário',' oRS.Fields(""nome"")',' oRS.Fields(""id"") ',' oRS.Fields(""id"") ','usuario_lista',' action ',' pag ',' campo ',' ordem ')""  class=""link"" onMouseOver=""window.status=':: Clique para Excluir o Cadastro do Usuário  oRS.Fields(""nome"") ';return true""><img src=""images/excluir.gif"" border=""0"" alt=""Excluir Cadastro""></a>")

			Else
			
				response.write ("Sem Ação")				
			
			end if
	%>                                  
                                            </td>
										</tr>
								<%
										ok = 1
										contador = contador + 1				
										oRS.MoveNext
									Loop  
								
									if not ok = 1 and pag > 1 then
										Response.Redirect("index.asp?file=usuario_lista&action="&action&"")
									elseif not ok = 1 then
										Response.Write("<tr><td bgcolor='#FFFFFF' height='30' align='center' colspan='4'>Nenhum registro encontrado!!!</td></tr>")
									end if							
								%>
							</table>
						</td>
					</tr>
				</table>
			</td>
		</tr>
	</table>
	<br>
	<%
		' Chama a função de paginação
		call paginacao("index.asp",pag,ok,oRS.pagecount,"&file=usuario_lista&true=max&action="&action&"&campo="&campo&"&ordem="&ordem&"")
	
		' Reseto as variáveis de abertura do banco de dados
		oConn.Close
		Set oRS = Nothing
		Set oRS2 = Nothing
		Set oRS3 = Nothing
		Set oConn = Nothing
	%>
	<script language="javascript" src="includes/inputOver.js"></script>
	<script language="javascript" src="includes/funcoes_globais.js"></script>

o problema esta nessa parte:

 

<%
			if Session("tipo") = "ADM" then					'este numero é o mesmo número q foi gravado na tabela como a permissão do usuário,
																					'ou seja pode ser alterado de acordo com o usuário q você queira restringir

			response.write ("<a href=""index.asp?file=usuario_incluir&action=alterar&true=max&id="" oRS.Fields(""id"") "" class=""link"" onMouseOver=""window.status=':: Clique para Alterar o Cadastro do Usuário  oRS.Fields(""nome"") ';return true""><img src=""images/alterar.gif"" border=""0"" alt=""Alterar Cadastro""></a>")
			response.write ("<a href=""javascript:confirmar_exclusao('do Usuário',' oRS.Fields(""nome"")',' oRS.Fields(""id"") ',' oRS.Fields(""id"") ','usuario_lista',' action ',' pag ',' campo ',' ordem ')""  class=""link"" onMouseOver=""window.status=':: Clique para Excluir o Cadastro do Usuário  oRS.Fields(""nome"") ';return true""><img src=""images/excluir.gif"" border=""0"" alt=""Excluir Cadastro""></a>")

			Else
			
				response.write ("Sem Ação")				
			
			end if
	%>

é uma coisa simples, mas não roda no IE.

Esta com um problema de colocar uma linha com usuario , tipo e sua ação ( editar ou excluir).

Ou seja ela so mostra o primeiro usuario e sem as figuras da ação, e nao mostra os outros.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Patrique    0

Patrique
Postado

Primeira coisa... coloque os scripts js dentro da tag head do seu code... me refiro a estas chamativas

 

<script language="javascript" src="includes/inputOver.js"></script>
<script language="javascript" src="includes/funcoes_globais.js"></script>

Coloque na tag HEAD

 

Depois vá no seu navegador e exclua o cache

 

Ferramentas >> Opções de Internet >> Histórico de Navegação >> Excluir >> Marque Tudo >> Excluir >> Reinicie o Navegador

 

E Teste.

 

[]'s

Compartilhar este post

Link para o post
Compartilhar em outros sites

Patrique    0

Patrique
Postado

Verifique se as seções estão sendo criadas, pois os ifs utilizam sessions resgatadas em outra página e verifique se esta vindo com o valor.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

ele esta gerando algum numero de erro ??

esta rodando algum plugin no navegador

Compartilhar este post

Link para o post
Compartilhar em outros sites

LeonardoBM    0

LeonardoBM
Postado

Patrique, voce o unico que esta me ajudando agradeço,

 

fiz o teste assim, e deu certo,

 

<%
if Session("tipo") = "ADM" then					
   response.write ("Funcionou")
else
   response.write ("Sem Ação")				
end if
%>

isso quer dizer que não estou conseguindo colocar de forma correta.

estou verificando....

 

ele esta gerando algum numero de erro ??

esta rodando algum plugin no navegador

 

 

não tem plugin nenhum, mas diminui o nivel de seguranca

Compartilhar este post

Link para o post
Compartilhar em outros sites

LeonardoBM    0

LeonardoBM
Postado

Patrique e xanburzum,

 

obrigado pela ajuda.

 

pois consegui resolver essa bost@, solucao muito simples.

 

olha ai, é de passar raiva

 

<%
if Session("tipo") = "ADM" then					'este numero é o mesmo número q foi gravado na tabela como a permissão do usuário,
								'ou seja pode ser alterado de acordo com o usuário q você queira restringir
%>
    <a href="index.asp?file=usuario_incluir&action=alterar&true=max&id=<%=oRS.Fields("id")%>" class="link" onMouseOver="window.status=':: Clique para Alterar o Cadastro do Usuário <%=oRS.Fields("nome")%>';return true"><img src="images/alterar.gif" border="0" alt="Alterar Cadastro"></a>
    <a href="javascript:confirmar_exclusao('do Usuário' , '<%=oRS.Fields("nome")%>','<%=oRS.Fields("id")%>','<%=oRS.Fields("id")%>' ,'usuario_lista','<%=action%>','<%=pag%>','<%=campo%>','<%=ordem%>')" class="link" onMouseOver="window.status=':: Clique para Excluir o Cadastro do Usuário <%=oRS.Fields("nome")%>';return true"><img src="images/excluir.gif" border="0" alt="Excluir Cadastro"></a>
<%
Else
   response.write ("Sem Ação")				
end if
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Patrique    0

Patrique
Postado

Crie uma outra pagina para teste, e chame as sessions com response.write

 

Response.write Session("tipo")

teste para ver se elas estão criadas, pois como o if funciona na base delas, quando não existe não irá exibir.

 

As sessions tem que estar funfando.

 

Teste ai e poste o resultado, veja se esta retornando corretamente.

 

Como você esta criando estas sessions?

Compartilhar este post

Link para o post
Compartilhar em outros sites

LeonardoBM    0

LeonardoBM
Postado

Crie uma outra pagina para teste, e chame as sessions com response.write

 

Response.write Session("tipo")

teste para ver se elas estão criadas, pois como o if funciona na base delas, quando não existe não irá exibir.

 

As sessions tem que estar funfando.

 

Teste ai e poste o resultado, veja se esta retornando corretamente.

 

Como você esta criando estas sessions?

 

 

Está aparecendo ADM para administrador e quando uso a tipo usuario aparece USU.

 

Mas já esta funcionando.

 

valeu

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

resolvido, beleza, qualquer coisa posta ae...

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito