Ir para conteúdo
Fórum Script Brasil

cyberalexxx

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    2.500

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por cyberalexxx

  1. Link Para Download Simples

    em ASP

    Postado

    Crie uma tabela para cadastrar os arquivos disponiveis, contendo nome do arquivo, endereço para download, descrição do arquivo, categoria do arquivo e o q mais achar necessário.

    Depois é só fazer uma consulta no banco e exibir os links filtrando da maneira q voce desejar.

  3. Comparação De Valore ( Com Loop )

    em ASP

    Postado

    como diria "jack o estripador" vamos por partes:

    SELECT (previstoxrealizado.realizado * 100 / metas.vlr_meta) as percentual, multiplica o valor do campo realizado da tabela previstoxrealizado por 100 e depois divide pelo vampo vlr_meta da tabela metas e joga o resultado no campo percentual

    metas.central, metas.mes seleciona os campos: central (tabela metas) e mes (tabela metas)

    from previstoxrealizado, metas informa quais tabelas serão usadas na consulta

    where previstoxrealizado.central = metas.central o campo central deve ter o mesmo valor nas tabelas previstoxrealizado e metas

    and previstoxrealizado.mes = metas.mes o campo mes deve ter o mesmo valor nas tabelas previstoxrealizado e metas

    and metas.mes = 'Março/05'  aki voce informa de qual mes voce quer as informações

    tendeu??

  5. Comparação De Valore ( Com Loop )

    em ASP

    Postado

    <%

    set rs = objConnection.Execute("SELECT (previstoxrealizado.realizado * 100 / metas.vlr_meta) as percentual, metas.central, metas.mes from previstoxrealizado, metas where previstoxrealizado.central = metas.central and previstoxrealizado.mes = metas.mes and metas.mes = 'Março/05' ")

    If not rs.EOF Then

    Do until rs.eof

    %>

    <% Response.write Round(Rs("percentual"), 2) & "%" & rs("central") %>

    <%  rs.MoveNext

      Loop

      End if

    %>

    Eu coloquei 2005 mais acho q no seu banco esta 05

  6. Comparação De Valore ( Com Loop )

    em ASP

    Postado

    retire o group by e v c funciona.

    <%
set rs = objConnection.Execute("SELECT (previstoxrealizado.realizado * 100 / metas.vlr_meta) as percentual, metas.central, metas.mes from previstoxrealizado, metas where previstoxrealizado.central = metas.central and previstoxrealizado.mes = metas.mes and metas.mes = 'Março/2005' ")

Response.write Round(Rs("percentual"), 2) & "%" & rs("central")
%>

  7. Comparação De Valore ( Com Loop )

    em ASP

    Postado

    tenta assim:

    <%
set rs = objConnection.Execute("SELECT (previstoxrealizado.realizado * 100 / metas.vlr_meta) as percentual, metas.central, metas.mes from previstoxrealizado, metas where previstoxrealizado.central = metas.central and previstoxrealizado.mes = metas.mes and metas.mes = 'Março/2005' Group by Metas.Central")

Response.write Round(Rs("percentual"), 2) & "%" & rs("central")
%>

  8. Order By

    em ASP

    Postado

    Cria outro recordset:

    set rs1 = objConnection.Execute("SELECT * FROM previstoxrealizado WHERE mes='Março/05' AND Central='Apae Ibipora' ORDER BY Data Desc LIMIT 0, 1 ") 

set rs2 = objConnection.Execute("SELECT * FROM previstoxrealizado WHERE Data='" & rs1("Data") & "' AND Central='Apae Ibipora' ORDER BY Data Desc")

  9. Login & Senha

    em ASP

    Postado

    kara isso depende do modo de autenticação de voce usa.

    Exemplo:

    Caso voce faça um select na tabela de usuários where User=request("user") and senha=request("senha")

    realmente ele vai selecionar independente de maiusculas ou minusculas.

    Uma solução é testar na raça depois, tipo:

    a = Rs("user")
b = Request("user")
if a = b then
   session("acesso") = true
   response.redirect("pagina.asp")
else
   response.redirect("login.asp")
end if

  13. Paginacao Texto

    em ASP

    Postado

    Uma lógica:

    Abrir o texto utilizando o componente FSO.

    definir um numero máximo de caracteres por pagina.

    Mandar imprimir linha a linha na tela sempre contrando o numero de caracteres por linha (len) e armazenando o total em uma variavel.

    caso o total ultrapasse o tamanho maximo definido pare a exibição e no link de próxima pagina informe via querystring em qual linha voce parou para dar andamento na próxima pagina.

    Comece a desenvolver que eu ajudo.

    Quando a fornecer o script, ai tem que rolar R$.

    []'s

  15. Round

    em ASP

    Postado

    Não chamaria isso de lógica de programação não, e sim conhecimento de sintaxe das funções.

    Lógica seria a forma que voce vai adotar para realizar determinada tarefa, é mais complexo, como no seu exemplo veja a lógica.

    Que logica vou utilizar para exibir os percentuais atingidos por determinada central em mes??

    Ai voce utilizou uma logica:

    -Selecionar os dados da tabela previstoxrealizado usando um filtro (where)

    -Selecionar os dados da tabela metas usando um filtro (where)

    -Aplicar um calculo para pegar o valor

    -APlicar uma função para exibir o resultado formato.

    Cada um tem uma lógica!!

    Eu faria a mesma coisa usando um só select:

    <%
set rs = objConnection.Execute("SELECT (realizado. previstoxrealizado * 100 / vlr_meta.metas) as percentual from previstoxrealizado, metas WHERE mes.previstoxrealizado='Março/05' AND Central.previstoxrealizado='Apae Jaú' AND mes.previstoxrealizado = mes.metas AND Central.previstoxrealizado=central.metas ORDER BY Data.previstoxrealizado Desc LIMIT 0, 1 ") 
Response.write FormatPercent(Rs.percentual,2)
%>

    Viu a diferença de lógicas, pode até dar erro mais é a lógica que eu utilizei.

  16. Round

    em ASP

    Postado

    O que você quer exatamente?? definir o numero de casas decimais ou arredondar??

    definindo o numero de casas:

    <% =FormatPercent(total,4)%>
    definindo o numero de casas e arredondando:
    <% =FormatPercent(round(total,4),4)%>

  24. Formulário Com Auto Responder

    em ASP

    Postado

    exemplo:

    <%

    '  Atribuindo os dados do formulário submetido as váriveis strNome e strEmail

    '

    strNome = Trim(Request.Form("nome"))

    strEmail = Trim(Request.Form("email"))

         

    '  Agora vamos criar uma conexão com o CDONTS para enviar os dados

    '  submetidos para o webmaster do site.

    '  O Email será enviado pelo usuário recém cadastrado

      Set objMail = Server.CreateObject("CDONTS.NewMail")

      objMail.To = "seuemail@seu.dominio"

      objMail.From = strEmail     

      objMail.Subject = "Solicito cadastro no site!"

    ' Vamos criar agora uma mensagem padrão a ser enviado para o webmaster

    ' vbcrlf = quebra de linha

    strMsgParaCadastro = "Nome: " & strNome & vbcrlf

    strMsgParaCadastro = strMsgParaCadastro & "Email: " & strEmail & vbcrlf

    strMsgParaCadastro = strMsgParaCadastro & "-----------------------------" & vbcrlf

    strMsgParaCadastro = strMsgParaCadastro & "Estou incluindo dados a mais na mensagem" & vbcrlf

      objMail.Body = strMsgParaCadastro

      objMail.Send

    ' Email para o webmaster enviado, portanto fechamos a conexão com o CDONTS

      Set objMail = nothing

    ' Agora imediatamente, criamos a mensagem padrão que será enviada de agradecimento

    ' ao usuário recém cadastrado.

    strMsgObrigado = "Olá " & strNome & vbcrlf

    strMsgObrigado = strMsgObrigado & "Obrigado por se cadastrar em nosso site" & vbcrlf

    strMsgObrigado = strMsgObrigado & "Breve você receberá mais informações." & vbcrlf & vbcrlf

    strMsgObrigado = strMsgObrigado & "Abraços," & vbcrlf

    strMsgObrigado = strMsgObrigado & "Vinicci brindes" & vbcrlf

    strMsgObrigado = strMsgObrigado & "Adicionando mais informações"

    ' Criando novamente outra conexão com o CDONTS para enviar o email ao usuário.

          Set objMail = Server.CreateObject("CDONTS.NewMail")

          objMail.From = "seuemail@seu.dominio"

          objMail.To = strEmail    ' observe

          objMail.Subject = "Cadastro!"

          objMail.Body = strMsgObrigado

         

          objMail.Send

    ' Pronto. Um email de agradecimento com uma mensagem personalizada com o nome

    ' de cada usuário foi enviado por email.

    ' Simples e muito eficiente

    %>

    Da uma olhada na parte em vermelho

×
×
  • Criar Novo...