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

  4. O Q Tem Errado?

    em ASP

    Postado

    BELEZA!!!

    FUNCIONOU BEM DIREITIM... MAS O ESTRANHO É Q NA VERSAO ANTERIOR DO SITE ESTAVA ASSIM E FUNCIONAVA, NUNCA TINHA MUDADO AS PERMISSOES DE USUÁRIO.... VAI ENTENDER O WINDOWS...

    VLW

    OK!!

    Tópico Fechado!!!

  9. Alguem Sabe Me Dize

    em ASP

    Postado

    vamos supor que voce esteja listando dados de um recordset e que são muitas informações, normalmente o servidor processa toda a informações e depois de tudo pronto manda a resposta (html) para o client, como é muita informação o limite de buffer do servidor esta sendo execedido, uma alternativa por exemplo é limpar o buffer a cada 100 registros por exemplo:

    response.buffer = true
x=1
Do While not Rs.Eof
   'mostra os dados
   if x Mod 100 = 0 then
     response.flush 'zera o buffer
   end if
   x=x+1
   Rs.MoveNext
loop

  12. Enviar Email Ao Fazer Login

    em ASP

    Postado

    legal, deu ceto , mais ao invés de usa rno login eu coloquei em outra pagina que redirecionava após ter feito o login...

    []'s

    beleza!!

    mais atente que colocando nessa pagina se o usuário resolver dar refresh na pagina ou navegar e depois voltar, a cada acesso será enviado um novo email, por isso eu propus o email na validação do login

  13. Função Inciais Em Maiusculo

    em ASP

    Postado

    Boa função!!

    Posta ela no tópico de funcões!!!

    fiz uma aki também:

    <%

    function formatanome(valor)

      aux=split(nome,chr(32))

      x=0

      for each n in aux

          if len(n) > 3 or x=0 then

            formatanome=formatanome&chr(32)&Ucase(left(n,1))&Lcase(right(n,len(n)-1))

          else

            formatanome=formatanome&chr(32)&Lcase(n)

          end if

      x=x+1

      next

    end function

    %>

  14. Problemas Com O Contador?

    em ASP

    Postado

    <%

    'Contador de inscritos:

    idevento=request("evento") ' aki voce informa qual o envento

    Sql1="Select count(Tipo_Presenca) as total from IP where Tipo_Presenca='Inscritos' and Id_evento=" & idevento & " group by Tipo_Presenca"

    set RsIP1=conexao.execute(sql1)

    'Contador de participantes:

    Sql2="Select count(Tipo_Presenca) as total from IP where Tipo_Presenca='Participantes' and Id_evento=" & idevento & " group by Tipo_Presenca"

    set RsIP2=conexao.execute(sql2)

    response.write "Total de Inscritos: " & RsIP1("total") & "<br>"

    response.write "Total de Participantes: " & RsIP2("total") & "<br>"

    Response.write "Percentual de Participantes :" & FormatPercent(RsIP2("total")/RsIP1("total"))

    %>

  15. Problemas Com O Contador?

    em ASP

    Postado

    Seria isso???

    <%
'Contador de inscritos:
Sql1="Select count(Tipo_Presenca) as total from IP where Tipo_Presenca='Inscritos' group by Tipo_Presenca"
set RsIP1=conexao.execute(sql1)

'Contador de participantes:
Sql2="Select count(Tipo_Presenca) as total from IP where Tipo_Presenca='Participantes' group by Tipo_Presenca"
set RsIP2=conexao.execute(sql2)

response.write "Total de Inscritos: " & RsIP1("total") & "<br>"
response.write "Total de Participantes: " & RsIP2("total") & "<br>"
Response.write "Percentual de Participantes :" & FormatPercent(RsIP2("total")/RsIP1("total"))
%>

    voce só precisa identificar o tipo de evento nas instruções sql através de Where.

  18. Criar .txt Na Memoria

    em ASP

    Postado

    entendi em parate o que você citou.

    então vamos lá.

    imagina um recordset, atraves deste recordset eu crio o meu arquivo ".txt" no servidor é claro!

    apos criação abro o arquivo...

    voce pode colocar o recordset abaixo do script que eu postei.

    Pra simplificar:

    voce monta a pagina como quer que o usuário veja e então coloque aquele código antes, entaum a pagina não sera aberta no navegador, será gerado um arquivo txt para download, tendeu???

  20. Criar .txt Na Memoria

    em ASP

    Postado

    entendi!!

    não precisa de FSO não, faz assim:

    <%
Response.ContentType = "text/plain"
Response.AddHeader "Content-Disposition", "attachment;filename=arquivo.txt"
response.write "texto" 
%>

    quando voce pedir pra visualizar essa pagina ele ira jogar todo o conteudo para o arquivo arquivo.txt e ira abrir a tela de salvar arquivo.

  23. Transformar Arrays Em Independentes [resolvido]

    em ASP

    Postado

    pagina 3 :

    <%

    valor_divida = Request.form("valor_divida")

    valor_corrigido = Request.form("valor_divida")

    juros_mensal = request.form("juros_mensal")

    juros_anual = request.form("juros_anual")

    response.write "Valor principal: " &  valor_divida & "<br>"

    response.write "Juros Anual: " & juros_anual & "%"

    response.write "<br><br>"

    arJuros = Split(juros_mensal, ",")

    For i = LBound(arJuros) To UBound(arJuros)

    Response.Write "periodo: " & i+1 & " - " & FormatNumber(valor_corrigido,2)

    valor_corrigido = ((valor_corrigido * (replace(arjuros(i),".",",")/100)) + valor_corrigido)

    response.write " + " & arJuros(i) & "% = " & FormatNumber(valor_corrigido,2) & "<br>"

    valor_total = valor_total + valor_corrigido

    Next

    valor_final = ((valor_total * (juros_anual/100)) + valor_total)

    response.write "<br><br>"

    response.write "Valor Corrigido: " & FormatNumber(valor_total,2) & "<br>"

    response.write "Valor Final com juros anual: " & FormatNumber(valor_final,2)

    %>

  25. Enviar Email Ao Fazer Login

    em ASP

    Postado

    Exemplo usando CDONTS

    Sql = "Select * from users where usuario='" & request("user") & "' and senha='" & request("senha")
set rs=conexao.execute(Sql)
If not rs.eof then
   session("logado") = true
   Set ObjMail = CreateObject("CDONTS.NewMail")
   ObjMail.to = "seuemail@asdasd.com.br"
   ObjMail.from = "Site" & "<email@dosite.com.br>"
   ObjMail.subject = "Usuario logado no site"
   ObjMail.body = "O Usuário " & rs("user") & " acessou o site em " & now()
   ObjMail.send
   Set ObjMail = nothing
   response.redirect("pagina.asp")
else
   response.redirect("login.asp")
end if

×
×
  • Criar Novo...