Ir para conteúdo

POWERED BY:

Arquivado

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

Spirit

Pegar o nome de login e imprimir em saudação

Recommended Posts

E aí galera olha só o que quero é pegar o nome de login que foi usado pelo usuario na página default.asp e imprimi-lá junto com a data na página application.asp...Como faço isso???Thiago M.

Compartilhar este post


Link para o post
Compartilhar em outros sites

você salva este login onde?Em alguma session?Se for em session, basta você dar:<%=session("nome_session")%>dentro de um codigo HTML, que ele mostrará o valor da session..Preste atenção em <%= o sinal de = faz mostrar..

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olha só como é o sistema de login que criei pelo DW...

<%MM_LoginAction = Request.ServerVariables("URL")If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString)MM_valUsername=CStr(Request.Form("login"))If MM_valUsername <> "" Then  MM_fldUserAuthorization=""  MM_redirectLoginSuccess="application.asp"  MM_redirectLoginFailed="default_erro.asp"  MM_flag="ADODB.Recordset"  set MM_rsUser = Server.CreateObject(MM_flag)  MM_rsUser.ActiveConnection = MM_intranet_STRING  MM_rsUser.Source = "SELECT login, senha"  If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization  MM_rsUser.Source = MM_rsUser.Source & " FROM regio.admin WHERE login='" & Replace(MM_valUsername,"'","''") &"' AND senha='" & Replace(Request.Form("senha"),"'","''") & "'"  MM_rsUser.CursorType = 0  MM_rsUser.CursorLocation = 2  MM_rsUser.LockType = 3  MM_rsUser.Open  If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then     Session("MM_Username") = MM_valUsername    If (MM_fldUserAuthorization <> "") Then      Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)    Else      Session("MM_UserAuthorization") = ""    End If    if CStr(Request.QueryString("accessdenied")) <> "" And false Then      MM_redirectLoginSuccess = Request.QueryString("accessdenied")    End If    MM_rsUser.Close    Response.Redirect(MM_redirectLoginSuccess)  End If  MM_rsUser.Close  Response.Redirect(MM_redirectLoginFailed)End If%>

Este é o codigo que verifica o login na default.asp, daí se correto ele é jogado para a página applications.asp que é onde quero imprimi o nome dele no meio dessa saudação aqui...

<%session.LCID = 1046dim dia(7)dia(1)="Domingo"dia(2)="Segunda-feira"dia(3)="Terça-feira"dia(4)="Quarta-feira"dia(5)="Quinta-feira"dia(6)="Sexta-feira"dia(7)="Sábado"dim mes(12)mes(1)="Janeiro"mes(2)="Fevereiro"mes(3)="Março"mes(4)="Abril"mes(5)="Maio"mes(6)="Junho"mes(7)="Julho"mes(8)="Agosto"mes(9)="Setembro"mes(10)="Outubro"mes(11)="Novembro"mes(12)="Dezembro"Select Case Hour(now())Case 0,1,2,3,4,5,6,7,8,9,10,11,12Response.Write "Bom Dia! Hoje é "Case 13,14,15,16,17Response.Write "Boa Tarde! Hoje é "Case elseResponse.Write "Boa Noite! Hoje é "End SelectResponse.write dia(weekday(now()))&", "&day(now())&" de "& mes(month(now()))&" de "& year(now())%>

Quero imprimi logo após o Bom Dia! e antes do Hoje é...Não sei se deu pra você entender corretamente...Mais tá aí....Qualquer coisa que puder me ajudar agradeço...

Compartilhar este post


Link para o post
Compartilhar em outros sites

Imprime Session("MM_Username")...

 

assim...

Select Case Hour(now())Case 0,1,2,3,4,5,6,7,8,9,10,11,12Response.Write "Bom Dia! "Case 13,14,15,16,17Response.Write "Boa Tarde! "Case elseResponse.Write "Boa Noite! "End SelectResponse.Write Session("MM_Username")Response.write "Hoje é " & dia(weekday(now()))&", "&day(now())&" de "& mes(month(now()))&" de "& year(now())

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

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