Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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
%>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.
Carregando comentários...