Ir para conteúdo
Fórum Script Brasil

Xenofonte

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    34

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por Xenofonte

  1. Desaparecer texto da DIV no Onload do Body

    em Ajax, JavaScript, XML, DOM

    Postado

    Fala galera,

    Tenho uma página ASP e preciso mostrar uma mensagem assim que for acessada essa página. Mas no momento do onload do Body já quero que desapareça essa página e continue com o processamento da página:

    No Internet Explorer ta tudo certo, o problema ta sendo no firefox que a mensagem não desaparece quando a página é carregada.

    Código:

    <body bgcolor="#ffffff" onLoad="Mensagem.style.display = 'none';">

<%
Response.Write "<div id='Mensagem' class='font01'>Aguarde, carregando ... </div> "
Response.Flush 
%>

    No IE ta beleza, mas no firefox não funciona.

    o que posso fazer?

  4. (Resolvido) Mascara cep para firefox e IE

    em Ajax, JavaScript, XML, DOM

    Postado

    Estou usando funções para colocar máscara no cep.

    Mas essas máscaras só funcionam com Internet Explorer.

    Algúem tem essas máscaras ajustadas pra funcionar tanto para IE quanto para Firefox? (CrossBrowser)

    Seguem as funções que uso:

    //adiciona mascara de cep
function MascaraCep(cep){
        if(mascaraInteiro(cep)==false){
        event.returnValue = false;
    }    
    return formataCampo(cep, '00.000-000', event);
}

//valida CEP
function ValidaCep(cep){
    exp = /\d{2}\.\d{3}\-\d{3}/
    if(!exp.test(cep.value))
        alert('Numero de Cep Invalido!');        
}

//valida numero inteiro com mascara
function mascaraInteiro(){
    if (event.keyCode < 48 || event.keyCode > 57){
        event.returnValue = false;
        return false;
    }
    return true;
}

function formataCampo(campo, Mascara, evento) { 
    var boleanoMascara; 
    
    var Digitato = evento.keyCode;
    exp = /\-|\.|\/|\(|\)| /g
    campoSoNumeros = campo.value.toString().replace( exp, "" ); 
   
    var posicaoCampo = 0;     
    var NovoValorCampo="";
    var TamanhoMascara = campoSoNumeros.length;; 
    
    if (Digitato != 8) { // backspace 
        for(i=0; i<= TamanhoMascara; i++) { 
            boleanoMascara  = ((Mascara.charAt(i) == "-") || (Mascara.charAt(i) == ".")
                                || (Mascara.charAt(i) == "/")) 
            boleanoMascara  = boleanoMascara || ((Mascara.charAt(i) == "(") 
                                || (Mascara.charAt(i) == ")") || (Mascara.charAt(i) == " ")) 
            if (boleanoMascara) { 
                NovoValorCampo += Mascara.charAt(i); 
                  TamanhoMascara++;
            }else { 
                NovoValorCampo += campoSoNumeros.charAt(posicaoCampo); 
                posicaoCampo++; 
              }            
          }     
        campo.value = NovoValorCampo;
          return true; 
    }else { 
        return true; 
    }
}
    Segue a chamada do input text: 
    <td width=30% class=font02><input type="text" onKeyPress="MascaraCep(UpdateAluno.txtResCEP);" onBlur="ValidaCep(UpdateAluno.txtResCEP)" tabindex="10" name="txtResCEP" id="txtResCEP" size="15" MAXLENGTH="10" value="<%= Session("CEP_Res") %>"></td>

    Já tentei aqui de todo jeito, mas não deu certo. Espero que alguém saiba isso!

    Agradeço quem ajudar!

    valeu!

  5. Ajuda em uma consulta simples

    em SQL Server

    Postado · Editado por Xenofonte

    Deu certo.

    tava ordenando pela string convertida

    fiz assim,

    select distinct Convert(varchar,DATA,103) data, data as real_data from ly_agenda where turma = 'CEAHR_N1' and disciplina = '7266-31' and ano = 2009 and semestre = 1 and num_func = '5' order by real_data

    Brigadão pela ajuda!

    valeu!

  6. Ajuda em uma consulta simples

    em SQL Server

    Postado · Editado por Xenofonte

    eu tentei isso ne ;P mas não da certo

    eu fiz isso aqui:

    select distinct Convert(varchar,DATA,103) data from ly_agenda where turma = 'CEAHR_N1' and disciplina = '7266-31' and ano = 2009 and semestre = 1 and num_func = '5' order by data

    mas ele só organiza o dia.

    O mês não fica ordenado.

    ex: fica assim:

    01/06/2009

    04/05/2009

    08/06/2009

    11/05/2009

    15/06/2009

    18/05/2009

    ;/

  7. Ajuda em uma consulta simples

    em SQL Server

    Postado

    Estou fazendo uma consulta SQL, mas não estou conseguindo organizar da data menor para a maior.

    a consulta é essa:

    select distinct Convert(varchar,DATA,103) from agenda where turma = 'xxx'

    resultado que aparece:

    01/06/2009

    04/05/2009

    08/06/2009

    11/05/2009

    15/06/2009

    como que faço para organizar essa consulta?

    quero que o resultado obtido pelo select seja esse:

    04/05/2009

    11/05/2009

    01/06/2009

    08/06/2009

    15/06/2009

    ou seja, da menor para a maior data.

    Acredito que seja simples, porém não ta dando certo.

    agradeço quem puder ajudar

  8. Como capturar nome do usuário logado na máquina

    em ASP

    Postado

    Olá galera,

    existe alguma função em ASP que capture o nome do usuário que está logado na máquina?

    eu estava usando o Request.ServerVariables("AUTH_USER"), mas só funciona quando a página está com o windows authentication.

    Existe algum outro código que funcione, mesmo quando a página não está com o windows authetication?

    Vocês sabem?

    Agradeço!

  10. (Resolvido) Passar parametro via GET para pagina ASP

    em Ajax, JavaScript, XML, DOM

    Postado · Editado por Xenofonte

    Fala galera,

    estou tentando passar um parâmetro via get para uma página ASP por Ajax, mas não estou conseguindo.

    Dentro da função:

    ...
var sURL = "../autoriza.asp";
parametros="logon=aol";
...
    xmlHttp.open("GET",sURL,false);
    xmlHttp.setRequestHeader("Content-type", "application/x-www-form-urlencoded");
    xmlHttp.send(parametros);
    Essa sintaxe pra passar o parâmetro está correta? na página asp (autoriza.asp) eu quero capturar a string "aol" então eu fiz assim: 
    dim VemDeOnde
    
VemDeOnde = Request.QueryString("logon")

    A questão é que quando tento capturar o parametro na pagina autoriza.asp, a variável fica empty.

    Ele até entra na página, mas não ta enxergando o parâmetro.

    Onde estou errando?

    Valeu!

    Edit: Se eu tentar via post dá tudo certo. Mas eu to querendo via GET mesmo.

  12. (Resolvido) Muitos caracteres na string

    em ASP

    Postado

    Galera,

    tenho uma variável de erro que está vindo de uma procedure:

    Session("ResultadoError") = "A senha deve ter um mínimo de 8 caracteres."
    ela tem 43 caracteres, mas quando eu faço isso: 
    Session("ResultadoError") = len(Session("ResultadoError"))
    me é retornado 1023 caracteres. E outra... quando eu faço a comparação: 
    strComp(Session("ResultadoError"), "A senha deve ter um mínimo de 8 caracteres.")

    me retorna 1 (dizendo que são iguais)

    o que é isso?

    Tem alguma coisa a ver com unicode, hexadecimal? como resolver isso?

    como converto de unicode para hexadecimal, será que dá certo?

    alguém sabe?

  13. Não mostra o Alert de jeito nenhum

    em Ajax, JavaScript, XML, DOM

    Postado

    Fala Galera,

    Estou com um problema aqui que está me fazendo perder muito tempo.

    P.S: No SQL SERVER dá tudo certo, mas no oracle acontece o erro a seguir:

    Tenho uma página em asp que está validando a senha do usuário através de uma procedure em Oracle.

    Se houver algum erro na validação dessa senha, por exemplo, o usuário tenha digitado uma senha com menos de 8 caracteres. Então ele acessa a procedure e verifica que a senha tem menos de 8 caracteres, então retorna erro.

    Aqui é a chamada da procedure

    sRespostaAux = ValidouSenhaDocente(Csng(txt_numero_matricula),txt_senha)
Session("ResultadoError") = sRespostaAux
    Dentro da FUNÇÃO ValidouSenhaDocente ele acessa a Procedure(ORACLE) e acontece o erro: 
    a_APrI_Ly_docente.erro :=  'A senha deve ter um mínimo de 8 caracteres.';
RETURN;
    A função recebe a mensagem de erro: 
    ValidouSenhaDocente = cmd("erro")
    Nesse momento está assim: ValidouSenhaDocente = "A senha deve ter um mínimo de 8 caracteres." sRespostaAux = "A senha deve ter um mínimo de 8 caracteres." Session("ResultadoError") = "A senha deve ter um mínimo de 8 caracteres." Agora, popula uma variável de sessão: 
    If sRespostaAux <> "" Then
    Session("ResultadoTratamentoSenha") = "NO"
Else
    Session("ResultadoTratamentoSenha") = "OK"
End if
    Ele entrou no If, então ficou assim: Session("ResultadoTratamentoSenha") = "NO" Agora, entra no If, mas não mostra o alert com o erro na tela: 
    If Session("ResultadoTratamentoSenha") = "NO" Then
    Response.Write  "<script LANGUAGE=JavaScript>" & _
                    "self.alert('" & Session("ResultadoError") & "');" & _
                    "self.location.href = 'AltSenha.asp';</SCRIPT>" 
    Response.end
End if

    Ou seja, era pra aparecer na página, "A senha deve ter um mínimo de 8 caracteres.". Depois ir pra página de alterar a senha

    Acontece que não mostra de jeito nenhum o erro e entra normal. Mesmo eu debugando ele entra no If, mas quando dá o response.end não para e se perde.

    No SQL tudo isso funciona normal, será que tem algo a ver com o Oracle? O que pode ser? Parece que a variável está recebendo espaço a mais, não sei. Já tentei passar trim, mas não deu certo.

    OBS: SE EU COLOCAR O ALERT('ERRO!'), DÁ CERTO. SÓ NÃO DÁ CERTO QUANDO EU QUERO PASSAR VARIÁVEL NO ALERT. SEJA

    DE SESSÃO OU NÃO.

    Alguém pra ajudar?

    Valeu.

    Descobri que o erro é justamente na Session("ResultadoError").

    Tipo quando eu dou o len(Session("ResultadoError")), me aparece 1023 caracteres.

    e na mensagem de erro só são 43:

    alguma coisa ta fazendo de errado

    pode ser aquele negócio de unicode, asc essas coisas que não manjo.

  15. Recurso de Exibir/Ocultar Cabeçalho

    em Ajax, JavaScript, XML, DOM

    Postado

    Galera,

    Tenho uma página em ASP que chama um cabeçalho. Esse cabeçalho tem um recurso de

    Exibir/Ocultar, ou seja, a página já vem exibindo o cabeçalho e quando o usuário clica no

    símbolo de '+' ao lado do cabeçalho, o mesmo oculta e fica um símbolo de '-'. Do mesmo modo,

    quando o usuário clica no '-', o cabeçalho é exibido.

    Mas acontece que a mesma página tem uma combo, e quando o usuário clica nessa combo, o evento

    onchange chama para a mesma página para preencher uma varíavel com o valor da combo.

    Assim, o que eu quero fazer é o seguinte, quando o usuário ocultar o cabeçalho, o mesmo

    permanecer oculto independente de refresh na página ou não.

    O que tá acontecendo aqui é que quando eu dou o refresh na página, escolhendo um valor na

    combo o mesmo que antes estava oculta, volta a aparecer e eu não quero isso.

    Pra ficar melhor entendido o que eu quero é:

    Quando o usuário clicar para ocultar o cabeçalho, o mesmo ficar oculto até que seja clicado

    para exibir.

    Código do cabeçalho:

    Response.Write "<input type= ""hidden"" name='flgImgX' id='flgImgX' value='Minus'>"
Response.Write "<img border='0' title='Ocultar Cabeçalho' 

style=""cursor:pointer;cursor:hand;"" align=right id='imgX' name='imgX' 

src='../lib/minus.gif' width='15' height='15' 

onclick=""java script:AmpliaDiminuiDiv('Mais');MudandoFlag();"">"
Response.Write "<br>"
Response.Write "<div name='Mais' id='Mais'>"
    Funcões: 
    function AmpliaDiminuiDiv(id) {
    
    if(document.getElementById(id).style.display != 'none')    {
        document.getElementById(id).style.display='none';
    }
    else
    {
        document.getElementById(id).style.display='block';
    }
    
    if(document.getElementById("flgImgX").value == "Minus")    {
        document.getElementById("imgX").src='../lib/plus.gif';
        document.getElementById("flgImgX").value = "Plus";
        document.getElementById("ImgX").title = 'Exibir Cabeçalho';
    }
    else
    {
        document.getElementById("imgX").src='../lib/minus.gif';
        document.getElementById("flgImgX").value = "Minus";
        document.getElementById("ImgX").title = 'Ocultar Cabeçalho';
    }
}
    function MudandoFlag() {
    if (document.getElementById("flgStatus").value == "Exibe") {
        document.getElementById("flgStatus").value = "Oculta";
    }
    else
    {
        document.getElementById("flgStatus").value = "Exibe";
    }
    
    alert(document.getElementById("flgStatus").value);

}
    Aqui é o form: 
    <form method="post" id="frmDtAula" name="frmDtAula" target="_parent">
    <input type="hidden" name="dtaula" id="dtaula" value="<%=sDtAula%>">
    <input type="hidden" name="disc" id="disc" value="<%=sDisciplina%>">
    <input type="hidden" name="turma" id="turma" value="<%=sTurma%>">
    <input type="hidden" name="ano" id="ano" value="<%=sAno%>">
    <input type="hidden" name="semestre" id="semestre" value="<%=sSemestre%>">
    <input type="hidden" name="bOK" id="bOK" value="ok">
    <input type="hidden" name="sProva" id="sProva" value="<%=sProva%>">
    <input type="hidden" name="coment" id="coment">
    <input type="hidden" name="pcomentbanco" id="pcomentbanco" value="<%=pcomentbanco%>">
    <input type="hidden" name="flgStatus" id="flgStatus" value="Exibe">
    <%if Request.Form("bOK") <> "" then %>
            <script 

language="javascript">AmpliaDiminuiDivX('Mais',document.getElementById("flgStatus").value)</s

cript>
    <%end if%>
</form>
    function AmpliaDiminuiDivX(id, pFlag) {
    alert(pFlag);
    if (pFlag != "Exibe") {
        document.getElementById(id).style.display='none';
        alert('1');
    }
    else
    {
        document.getElementById(id).style.display='block';
        alert('2');
    }
    
}
    Página Completa: 
    Dim aRs, iTot, sSQL, iTot2, iCount, iCount2, sql
Dim sProva, sTurma, sDisciplina, sSemestre, sAno, sClassTr, pmsg, sDtAula
Dim oNotas, colnotas
dim valor 
Dim strSQL, arrRs, strUltNumChamada, permit
dim aRsFaculdade
dim aRsUnidade
dim bFlag

bFlag = False

Set oNotas = Server.CreateObject("DOLServer.clsNotas")

if Request.Form("bOK") = "" then
    sTurma = trim (Request.Form("turma"))
    sDisciplina = trim (Request.Form("disc"))
    sProva = trim (Request.Form("prova"))
    sSemestre = trim (Request.Form("semestre"))
    sAno = trim (Request.Form("ano"))
else
    sTurma = trim (Request.Form("turma"))
    sDisciplina = trim (Request.Form("disc"))
    sProva = trim (Request.Form("sProva"))
    sSemestre = trim (Request.Form("semestre"))
    sAno = trim (Request.Form("ano"))
    sDtAula = trim (Request.Form("dtaula"))
    bFlag = True
end if 
 'Consulta o Numero de Casas decimais usados na Disciplina
Dim aDisc
Dim sSqlDisc
Dim iTotDisc
Dim nCasasDec
dim discipConceito

If Application("Banco")= 1 Then
    sSqlDisc = "Select nvl(n_casas_dec,0) , nvl(n_casas_dec_media,0), grupo_nota " & _
               "From Ly_Disciplina " & _
               "Where disciplina = '" & sDisciplina & "'"
Else
    sSqlDisc = "Select isnull(n_casas_dec,0) , isnull(n_casas_dec_media,0), grupo_nota " & _
               "From Ly_Disciplina " & _
               "Where disciplina = '" & sDisciplina & "'"
End If
aDisc = getArr(sSqlDisc)
iTotDisc = getTotArr(aDisc)
nCasasDec = 0
discipConceito = false

If iTotDisc >= 0 Then
    nCasasDec = aDisc(0,0)
    'Verifica se a disciplina trabalha com conceitos
    if trim(aDisc(2,0)) <> "" then
      discipConceito = true
    else
      discipConceito = false
    end if
End If

'Verificar se existe último número de chamada
strSQL = " select ULT_NUM_CHAMADA from LY_TURMA " & _
                 " where TURMA = '"&sTurma&"' and DISCIPLINA = '"&sDisciplina&"' " & _
                 " and SEMESTRE = "&sSemestre&" and ANO = "&sAno&" "
arrRs = GetArr(strSQL)
strUltNumChamada = UCase(arrRs(0,0))



    if (onotas.Processamento2 (colnotas, sturma, sdisciplina, sano, ssemestre, pmsg,, 

Session("DOCENTE_LY"), Session("USER_SM")) = True) then
      if Application("Banco") = 1 then
      sSQL = "select c.nome as curso, b.nome as disciplina, a.turma, a.ano, " & _
      "  a.semestre, a.faculdade , a.dependência, f.nome_abrev, pl.id_reduzida, " & _
      "  a.unidade_responsavel " & _
      "  from ly_turma a, ly_disciplina b, ly_curso c, ly_faculdade f, ly_periodo_letivo pl " 

& _
      "  where a.turma = '" & sTurma & "' " & _
      "  and a.disciplina = '" & sDisciplina & "' " & _
      "  and a.disciplina = b.disciplina " & _
      "  and a.curso = c.curso (+) " & _
      "  and a.ano = " & sAno & " " & _
      "  and a.semestre = " & sSemestre & " " & _
      "  and a.faculdade = f.faculdade " & _
      "  and pl.ano=a.ano " & _
      "  and pl.periodo=a.semestre "
    else
      sSQL = "select c.nome as curso, b.nome as disciplina, a.turma, a.ano, " & _
      "  a.semestre, a.faculdade, a.dependência, f.nome_abrev, pl.id_reduzida, " & _
      "  a.unidade_responsavel " & _
      "  from ly_turma a, ly_disciplina b, ly_curso c, ly_faculdade f, ly_periodo_letivo pl " 

& _
      "  where a.turma = '" & sTurma & "' " & _ 
      "  and a.disciplina = '" & sDisciplina & "' " & _
      "  and a.disciplina = b.disciplina " & _
      "  and a.curso *= c.curso and " & _ 
      "  a.ano = " & sAno & " " & _
      "  and a.semestre = " & sSemestre & " " & _
      "  and a.faculdade = f.faculdade " & _
      "  and pl.ano=a.ano " & _
      "  and pl.periodo=a.semestre "      
    end if
aRs = GetArr(sSQL)
'#######################################
'    TABELA DE CABEÇALHO (fundo amarelo)
'#######################################

'--------------------------------
'obtem o nome da unidade Responsável
'--------------------------------
ssql = "select nome_abrev from ly_faculdade where faculdade='" & ars(9,0) & "'"
aRsUnidade = GetArr(sSQL)

'--------------------------------
'obtem o nome da unidade física
'--------------------------------
ssql = "select nome_abrev from ly_faculdade where faculdade='" & ars(5,0) & "'"
aRsFaculdade = GetArr(sSQL)

Response.Write "<input type= ""hidden"" name='flgImgX' id='flgImgX' value='Minus'>"
Response.Write "<img border='0' title='Ocultar Cabeçalho' 

style=""cursor:pointer;cursor:hand;"" align=right id='imgX' name='imgX' 

src='../lib/minus.gif' width='15' height='15' 

onclick=""java script:AmpliaDiminuiDiv('Mais');MudandoFlag();"">"
Response.Write "<br>"
Response.Write "<div name='Mais' id='Mais'>"
Response.Write "<table border=0 width=""100%"">"
Response.Write "<tr class=tr01t>"
if session("descricao_disciplina") <> "" then
    Response.Write "<td width=""50%"" class=font02 colspan=2 align=left> " & 

session("descricao_disciplina") & " : "  & sDisciplina & " - " & aRs(1, iCount) 
else
    Response.Write "<td width=""50%"" class=font02 colspan=2 align=left>Disciplina: "  & 

sDisciplina & " - " & aRs(1, iCount) 
end if
'====================================
' SUBDISCIPLINAS
'====================================
call ListaSubDisciplina(sDisciplina,"")
Response.Write "</td>"
Response.Write "<td width=""50%"" class=font02 align=left colspan=2 valign=top>Turma: " & 

aRs(2, iCount) &  "</td>"
Response.Write "</tr>"
Response.Write "<tr class=tr01t>"
Response.Write "<td width=""25%"" class=font02 align=left>Ano/Período:&nbsp;" & aRs(3, 

iCount) & "/"&aRs(4, iCount)&"</td>"

if not IsEmpty(aRsUnidade) then
    response.Write "<td width=""30%"" class=font02 align=left>Unidade Responsável: 

"&aRsUnidade(0, 0)&"</td>"
else
    response.Write "<td width=""30%"" class=font02>&nbsp;</td>"
end if

if not IsEmpty(aRsFaculdade) then
    response.Write "<td width=""30%"" class=font02 align=left>Unidade Física: 

"&aRsFaculdade(0, 0)&"</td>"
else
    response.Write "<td width=""30%"" class=font02>&nbsp;</td>"
end if

Response.Write "<td width=""15%"" class=font02 align=left>Sala:&nbsp;" & aRs(6, iCount) & 

"</td>"
Response.Write "</tr>"
Response.Write "<tr class=tr01t><td width=""100%"" colspan=4 class=font02 

align=left>Curso:&nbsp;" & aRs(0, iCount) & "</td></tr>"
Response.Write "</table>"
Response.Write "</div>"        
        
%>
<script LANGUAGE=javascript>
function foto(pessoa, nome){
      var janela;
      janela = 

window.open('MostraFoto.asp?pessoa='+pessoa+'&nome='+nome,'Foto','toolbar=no,location=no,dire

ctories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,menubar=no,width=200,height=200'

);
}

function ChamaDtAula(pDtAula,pDisciplina,pTurma,pAno,pSemestre,pComent,pValida){
    document.getElementById("dtaula").value = pDtAula;
    document.getElementById("disc").value = pDisciplina;
    document.getElementById("turma").value = pTurma;
    document.getElementById("ano").value = pAno;
    document.getElementById("semestre").value = pSemestre;
        
    if (pValida == "valida") {
        document.getElementById("coment").value = pComent;
        document.all.frmDtAula.action = "DolDiariodeClasse_posValid.asp";
    }
    else 
    {
        document.all.frmDtAula.action = "DOLDiariodeClasse2.asp";
    }
    document.forms['frmDtAula'].submit();
}

function limita(campo){
var tamanho = document.getElementById(campo).value.length;
var tex=document.getElementById(campo).value;
if (tamanho>=1999) {
    document.getElementById(campo).value=tex.substring(0,1999);
}
return true;
}

</script>
<%end if%>
<%
Function TRADUZA(pMsg)
   TRADUZA = pMsg
End Function

%>
<%
function MostraMsgBox (sMens, sURL)
  Response.Write "<script LANGUAGE=JavaScript>" & _
                             "self.alert('" & sMens & "');" & _
                             "self.location.href = '" & sURL & "';</SCRIPT>"
End function
%>
<%
'buscar data da aula
dim sSqlDtAula
dim rsBuscaDtAula
dim totBuscaDtAula
If Application("Banco")= 1 Then 'Oracle
    sSqlDtAula = " select agenda, To_Char(DATA,'dd/mm/yyyy') "
else 'SQL
    sSqlDtAula = " select agenda, Convert(varchar,DATA,103) "
end if

sSqlDtAula = sSqlDtAula & " from ly_agenda " & _
                          " where turma = '" & sTurma & "' " & _ 
                          " and disciplina = '"& sDisciplina &"' " & 

_
                          " and ano = "& sAno &" " & _
                          " and semestre = "& sSemestre &" " & _
                          " and num_func = '"& Session("CODIGO") &"' 

"    

rsBuscaDtAula = GetArr(sSqlDtAula)
totBuscaDtAula  = GetTotArr(rsBuscaDtAula)

if totBuscaDtAula = -1 then
    MostraMsgBox TRADUZA("Não há datas de aula para esta turma!"), 

"DOLDiariodeClasse.asp"
    response.end
end if
%>
    <table border="0" width="100%" align=center>
      <tr>
        <td width=100% colspan=2 class=font02><%= TRADUZA("Datas de Aula: ")%>
          <select name="sel_dtaula" tabindex = "19" 

onchange="java script:ChamaDtAula(this.value,'<%=sDisciplina%>','<%=sTurma%>','<%=sAno%>','<%=

sSemestre%>','','');" size="1">
             <%DIM cont%>
             <OPTION value="0"></Option> 
             <% For cont = 0 to totBuscaDtAula%>
                 <OPTION value="<%=rsBuscaDtAula(0,cont)%>" <%if not 

isempty(sDtAula) then%><%if cstr(rsBuscaDtAula(0,cont)) = cstr(sDtAula) then Response.Write " 

Selected" end if %><%end if%> ><%=rsBuscaDtAula(1,cont)%></Option> 
             <% Next %>
          </select>
        </td>
       </tr>
       <tr><td colspan=4>&nbsp;</td></tr>
     
 <%if bFlag = true and sDtAula <> "0" then
    'verificar se existe registro
    dim sSql2, pcomentbanco
    dim rsBusca
    dim totBusca
    sSql2 = " select comentarios " & _
                    " from ly_diario_eletronico " & _
                    " where turma = '" & sTurma & "' " & _ 
                    " and disciplina = '"& sDisciplina &"' " & _
                    " and ano = "& sAno &" " & _
                    " and semestre = "& sSemestre &" " & _
                    " and agenda = '"& sDtAula &"' " & _
                    " and aula = '1' "    

    rsBusca = GetArr(sSql2)
    totBusca  = GetTotArr(rsBusca)%>
    
    <tr class=tr01a>
    <td width=100% colspan=2 class=font02><%= TRADUZA("Comentário: ")%></td>
    </tr>
    
    <tr>
      <td width=50% class=font02>
    <%if totBusca > -1 then
        pcomentbanco = rsBusca(0,0)%>
        <textarea cols=50 rows=10 name="comentario" id="comentario" 

onkeyup="limita('comentario');"><%=rsBusca(0,0)%></textarea>
    <%else
        pcomentbanco = ""%>
        <textarea cols=50 rows=10  name="comentario" id="comentario" 

onkeyup="limita('comentario');"></textarea>
    <%end if%>
      </td>
    </tr>
    
<%end if%>
    </table>


<%if bFlag = true and sDtAula <> "0" then%>
<script type="text/javascript" src="animated_scroll.js"></script>
<div class="wrap">
    <p class="top"><a 

href="java script:ChamaDtAula('<%=sDtAula%>','<%=sDisciplina%>','<%=sTurma%>','<%=sAno%>','<%=

sSemestre%>',document.getElementById('comentario').value,'valida');">&nbsp;</a></p>
</div>

<style type="text/css">
    <!--
    .top {  width:150px; height:25px; margin:0; padding:0; center:10px; bottom:50px; 

position:fixed; }
    .top a { width:150px; height:120px; display:block; overflow:hidden; font-size:1px; 

text-indent:-200px; background:url("../images/confirmaralterações.gif") no-repeat; }
    -->
</style>
<%end if%>

<script language="javascript">
function AmpliaDiminuiDivX(id, pFlag) {
    alert(pFlag);
    if (pFlag != "Exibe") {
        document.getElementById(id).style.display='none';
        alert('1');
    }
    else
    {
        document.getElementById(id).style.display='block';
        alert('2');
    }
    
}

function MudandoFlag() {
    if (document.getElementById("flgStatus").value == "Exibe") {
        document.getElementById("flgStatus").value = "Oculta";
    }
    else
    {
        document.getElementById("flgStatus").value = "Exibe";
    }
    
    alert(document.getElementById("flgStatus").value);

}

</script>
<form method="post" id="frmDtAula" name="frmDtAula" target="_parent">
    <input type="hidden" name="dtaula" id="dtaula" value="<%=sDtAula%>">
    <input type="hidden" name="disc" id="disc" value="<%=sDisciplina%>">
    <input type="hidden" name="turma" id="turma" value="<%=sTurma%>">
    <input type="hidden" name="ano" id="ano" value="<%=sAno%>">
    <input type="hidden" name="semestre" id="semestre" value="<%=sSemestre%>">
    <input type="hidden" name="bOK" id="bOK" value="ok">
    <input type="hidden" name="sProva" id="sProva" value="<%=sProva%>">
    <input type="hidden" name="coment" id="coment">
    <input type="hidden" name="pcomentbanco" id="pcomentbanco" value="<%=pcomentbanco%>">
    <input type="hidden" name="flgStatus" id="flgStatus" value="Exibe">
    <%if Request.Form("bOK") <> "" then %>
            <script 

language="javascript">AmpliaDiminuiDivX('Mais',document.getElementById("flgStatus").value)</s

cript>
    <%end if%>
</form>

<%

Set oNotas = nothing

%>

    Agradeço quem puder ajudar.

    Deve ser alguma besteira, mas eu não estou conseguindo achar onde que é.

  16. Capturar Variável já com másca de cep

    em ASP

    Postado

    galera,

    eu estou recebendo uma variável,

    assim:

    strCep = Request.form("txtCep")

    como eu faço pra na hora que eu for colocar em um textbox a variável já ficar com a máscara?

    ex:

    eu recebo assim:

    strCep = "60500600"

    mas eu quero que fique assim

    strCep = "600.500-600"

    <td width=30% class=font02><input type="text" onKeyPress="MascaraCep(UpdateAluno.txtResCEP);" onBlur="ValidaCep(UpdateAluno.txtResCEP)" tabindex="10" name="txtResCEP" size="15" MAXLENGTH="10" value="<%= strCEP %>"></td>

    obs: a máscara e a validação tá funcionando normal, o negócio é que quando eu pego do banco pra imprimir na tela pra o usuário poder alterar ele vem sem a formatação, pois na hora que eu fui gravar no banco eu dei o replace.

    Portanto quero que, quando eu capturar ela do banco, ela venha já no formato de CEP..

    Espero que tenham entendido

    Agradeço a ajuda.

  19. Passar string do combo via método POST

    em ASP

    Postado

    Galera,

    Tenho uma página asp que mostra o Código do aluno, o nome e o Curso.

    ex:

    Aluno Nome Curso

    1000604129 MARCIO PAGANELI FÁVARO - Matriculado 100001

    E também tem a lista de presença de cada turma.

    Criei um combo que mostra o código dessas listas de presença

    assim:

    <left><Font class=font02>Selecione  a lista de presença para impressão</font>
<select name="sel_listapresenca" size="1">
<%
DIM cont
For cont=0 to totlista
  response.write "<option value=" & ars(0,cont) & ">" & ars(0,cont) & " </option>"
Next
%>
</select>
    e Logo depois tem um botão chamado "Visualizar" 
    <%response.write " <input type=""button"" name=""submitmes"" value=""Visualizar"" " & _
               "onClick=""AbreJanelaLPresenca( '" & SESSION("pdisciplina") & "','" & SESSION("pturma") & "','" & SESSION("pano") & "','" & SESSION("psemestre") & "');"" >"
%>

    Ao clicar no botão Visualizar, eu preciso fazer com que o que está aparecendo no combo vá para a página que eu chamei no onclick do botão.

    Mas preciso que ela vá pelo MÉTODO POST, como faço isso?

    ou seja, como faço pra receber essa string q tá no combo dessa nova página? visto que o que aparece no combo é fruto de uma consulta sql.

    porque dependendo do que está selecionado no combo, é que eu vou fazer uma nova consualta nessa página que tá sendo chamada pelo botão.

    Agradeço a ajuda.

  21. (Resolvido) Dar 'enter' no código - não tô conseguindo

    em ASP

    Postado · Editado por Xenofonte

    o processo de montagem entra nesse if aqui:

    if Session("EXIBE_HORARIO") = "S" then

    aRs2(2, iCount) = aRs(1, iCount)&"&nbsp;["&MostraHora(aRs(14, iCount))&"]"

    qual a sintaxe pra eu colocar o br?

    to fazendo assim e não consigo:

    aRs2(2, iCount) = aRs(1, iCount)&"&nbsp;["&MostraHora(aRs(14, iCount))&"]";["&response.write("<br>")&"]

    o que ta errado?

  22. (Resolvido) Dar 'enter' no código - não tô conseguindo

    em ASP

    Postado · Editado por Xenofonte

    Não dá certo eu já tinha tentado isso..

    o espaço fica acima do loop

    coloquei o br assim:

    For iCount=0 to iTot

    aRs2(0, iCount) = aRs(13, iCount)

    aRs2(1, iCount) = "DolConteudoAula.asp?Agenda=" & aRs(2, icount)

    If Session("DOL_Exibe_nome_disciplinas") = "S" Then

    if Session("EXIBE_HORARIO") = "S" then

    aRs2(2, iCount) = aRs(1, iCount)&"&nbsp;["&MostraHora(aRs(14, iCount))&"]"

    else

    aRs2(2, iCount) = aRs(1, iCount)&"&nbsp;"

    end if

    Else

    if Session("EXIBE_HORARIO") = "S" then

    aRs2(2, iCount) = aRs(7, iCount)&"&nbsp;["&MostraHora(aRs(14, iCount))&"]"

    else

    aRs2(2, iCount) = aRs(7, iCount)&"&nbsp;"

    end if

    End if

    response.write("<br>")

    'response.write ("aqui" & ars2(0, icount) & "---" &ars2(1,icount) &"---"& ars2 (2, icount))

    Next

    o que mais posso tentar?

  23. (Resolvido) Dar 'enter' no código - não tô conseguindo

    em ASP

    Postado

    Galera,

    tenho uma página que mostra a disciplina e o horario das disciplinas dos professores

    mas tá mostrando tudo junto queria que tivesse um 'enter' entre cada uma delas..

    to tentando aqui por um response.write "<br>", e outros modos mas não estou conseguindo de jeito nenhum.

    ex:

    INTRODUÇÃO À FILOSOFIA [07:45] INTRODUÇÃO À FILOSOFIA [08:35] BANCO DE DADOS [10:50] THAU (THAU (ARQ I) ) [10:50] ATIV COMPL (ATIVIDADES COMPLEMENTARES) [10:50] C. SOC (CIENCIAS SOCIAIS) [16:40]

    quero que fique assim:

    INTRODUÇÃO À FILOSOFIA [07:45]

    INTRODUÇÃO À FILOSOFIA [08:35]

    BANCO DE DADOS [10:50]

    THAU (THAU (ARQ I) ) [10:50]

    ATIV COMPL (ATIVIDADES COMPLEMENTARES) [10:50]

    C. SOC (CIENCIAS SOCIAIS) [16:40]

    como faço?

    O código tá assim:

    '**** Montagem do calendário ****
dData = ("01/" & sMes & "/" & sAno)
    
Redim aRs2(3, iTot) 
    
For iCount=0 to iTot
    aRs2(0, iCount) = aRs(13, iCount)
    aRs2(1, iCount) = "DolConteudoAula.asp?Agenda=" & aRs(2, icount)
    If Session("DOL_Exibe_nome_disciplinas") = "S" Then
        if  Session("EXIBE_HORARIO") = "S" then
            aRs2(2, iCount) = aRs(1, iCount)&"&nbsp;["&MostraHora(aRs(14, iCount))&"]"
        else
            aRs2(2, iCount) = aRs(1, iCount)&"&nbsp;"
        end if   
    Else
        if  Session("EXIBE_HORARIO") = "S" then
            aRs2(2, iCount) = aRs(7, iCount)&"&nbsp;["&MostraHora(aRs(14, iCount))&"]"
        else
            aRs2(2, iCount) = aRs(7, iCount)&"&nbsp;"
        end if  
    End if  
    'response.write ("aqui" & ars2(0, icount) & "---" &ars2(1,icount) &"---"& ars2 (2, icount))
Next

    qual o comando que eu tenho que fazer pra dar o 'enter' ? não tá dando certo aqui

    deve ser alguma besteira.

    Agradeço a ajuda.

×
×
  • Criar Novo...