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

  3. Atualização De Campos Automaticamente...

    em ASP

    Postado

    Um pequeno exemplo:

    <!-- #include file = "conecta.asp" -->
<%
codigo = ""
nome = ""
endereco = ""
if len(request("codigo")) > 0 then
    sql = "Select * from tabela where id=" & request("codigo")
    set rs = conexao.execute(sql)
    if not rs.eof then
        codigo = request("codigo")
        nome = rs("nome")
        endereco = rs("endereco")
    end if
end if
%>
    
     
<form name="clientes" action="<%=request.servervariables("script_name")%>" method="post">
    Código <input type="text" name="codigo" value="<%=codigo%>" onchange="document.clientes.submit()" />
    Nome: <input type="text" name="nome" value="<%=nome%>"  />
    Endereço: <input type="text" name="endereço" value="<%=endereco%>"  />
</form>    
</body>
</html>

  6. Ajuda Com Redimencionamento (ainda não Resolvido)

    em ASP

    Postado

    Aqui voce tem um exemplo de redimensionamento que eu fiz para uma Loja virtual, no exemplo a largura não pode ser superior a 80:

    caminho = ".\produtos" 
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open trim(server.mappath(caminho))    & "\" & mid(trim(nome_foto),2,100)
largura = Jpeg.OriginalWidth
if largura > 80 then
    indice = largura/80
    Jpeg.Width = Jpeg.OriginalWidth / indice
    Jpeg.Height = Jpeg.OriginalHeight / indice
end if
Jpeg.Save trim(server.mappath(caminho)) & "\mini_" & mid(trim(nome_foto),2,100)
Jpeg.close

  7. Upload Com Dados (resolvido)

    em ASP

    Postado

    Realmente quando se submete um formulário usando ENCTYPE="multipart/form-data" o request não funciona, no entanto todos os componentes de upload oferecem uma propriedade do objeto criado que resgata os valores dos campos, no seu caso tente assim:

    <HTML>
<BODY>
<%
Set upl = Server.CreateObject("SoftArtisans.FileUp")
upl.Path = "e:\home\linguageral1\Web\site\images\autores"
upl.Save%>
Total de Bytes Enviados: <%=upl.TotalBytes%>


<%
nome = upl.Form("nome")
telefone = upl.Form("telefone")
Response.Write(nome &" / "&telefone)
Set upl = Nothing
%>
</BODY>
</HTML>

  8. Como Chamar Uma Função Asp

    em ASP

    Postado

    na verdade o código da andreia sera mais uma SUB do que uma função pois ela executa uma tarefa e não devolve um valor (function)

    tenta assim:

    <%
function Mensagem

Mensagem = "ola, esta é uma mensagem"

end function
%>

<a href="#" onclick="alert('<%= Mensagem() %>')">link</a>

  14. Split E Array

    em ASP

    Postado

    já fiz rotinas de envio de emails dentro de laços (While) e funcionaram sem problema, voce só deve atentar para a quantidade de mensagens que serão enviadas pois se for muita coisa alguns servidores tem limitaçãoes.

    []'s

  15. Consulta Sql Em Asp

    em ASP

    Postado

    Fiz uma consulta SQL, executei na página ASP e funcionou.

    SrtSQl = "SELECT nome_job, Count(*) AS cnt, Max(duracao) AS MaxDur, Min(duracao) AS MinDur, Avg(duracao) AS MedDur, StDev(duracao) AS DesDur, StDev(duracao)/Avg(duracao) as per FROM HIS_jobs GROUP BY nome_job having (Count(*) > 9 ) and (Avg(duracao) <> 0 ) and (StDev(duracao)/Avg(duracao) > 3.9 )"

    Gostaria de saber como eu passo dois valores por parâmetro, através de um formulário ASP, para serem utilizados em uma consulta SQL.

    Eu fiz da seguinte forma:

    * Página onde os números será digitados.

    <FORM action="pagina4.asp" method=get>

    Digite os parâmetros de Busca:

    <p>

    Desvio Padrão:<input class="textarea" type="text" name="desvio" id="desvio" size=5><p>

    Média: <input class="textarea" type="text" name="md" id="md" size=5>

    <input type="submit" value="enviar">

    * Página que deveria receber os números digitados:

    <%

    Dim oConn ' ** CONEXÃO COM O BANCO DE DADOS

    Dim iRS,SrtSQL ' ** VARIÁVEL QUE RECEBE O RESULTADO (SET)

    Dim desvio, md

    <% desvio=request.querystring("desvio")

    md=request.querystring("md") %>

    SrtSQl = "SELECT nome_job, Count(*) AS cnt, Max(duracao) AS MaxDur, Min(duracao) AS MinDur, Avg(duracao) AS MedDur, StDev(duracao) AS DesDur, StDev(duracao)/Avg(duracao) as per FROM HIS_jobs GROUP BY nome_job having (Count(*) > "&md&" ) and (Avg(duracao) <> 0 ) and (StDev(duracao)/Avg(duracao) > "&desvio&" )"

    %>

    Quando executado desta forma, diz que a página não pode ser exibida....

    Vlw

    De um response.write na variavel SrtSQl sem executá-la para ver como esta ficando a instrução.

    Se você está passando paramentro por formulario você deve usar o request.form("") não o request.queryString

    esse request o request.queryString e quando você quer recuperar dados através de link o que esper te ajudado.

    O request dele esta correto, pois ele está o utilizando método get e não post no formulário

  16. Split E Array

    em ASP

    Postado

    Para não repetir o registro:

    <%
strpalavrachave = "flamengo, palmeiras"
MyArray = Split(strpalavrachave, ",")

palavras = 0
For I = LBound(MyArray) to Ubound(MyArray)
    if palavras = 0 then
        sql = "SELECT * FROM 1ALERTA WHERE palavrachave LIKE '%" & LCase(Trim(MyArray (I))) & "%' "
    else
        sql = sql & " or palavrachave LIKE '%" & LCase(Trim(MyArray (I))) & "%' "
    end if
    palavras = palavras + 1
next

Set palavrachave = Server.CreateObject("ADODB.Recordset")
palavrachave.Open sql, Conexao

If palavrachave.EOF Then
    response.write "Não foi encontrado nenhum alerta para esta PALAVRA-CHAVE"
Else

    while Not palavrachave.EOF
        strNome = palavrachave("nome")
        strEmail = palavrachave("email")
        response.write strEmail &"<br><br><br>"
        palavrachave.MoveNext
    wend
End If

palavrachave.Close
Set palavrachave = Nothing
%>

  17. Duvida Sql

    em ASP

    Postado

    Não conheço nenhuma instrução SQL que aponte isso, mais da pra fazer um script que te informe isso, olha um exemplo que fiz agora:

    <!--#include file="conecta.asp" -->
<%
sql = "Select distinct produto from produtos"
set rs = conexao.execute(sql)
Do while not rs.eof
    sql2 = "Select count(produto) as soma from produtos where produto='" & rs("produto") & "'"
    set rs2 = conexao.execute(sql2)
    if not rs.eof then
        if Cint(rs2("soma")) > 1 then
            Response.write "Produto: " & rs("produto") & " com " & rs2("soma") & " ocorrencias"
        end if
    end if
    rs.MoveNext
Loop
%>

  22. Intel Core 2 Duo

    em Hardware

    Postado

    já Comprou???

    Se já, posta o config pra gente ver como ficou! (tomara que não apareça um E6600 numa MB PCCHIPS P23G)

    Se não comprou ainda, explica melhor a finalidade do micro e quanto voce quer gastar ai fica mais facil pra indicar.

  24. Problema Com LaÇo A Listbox

    em ASP

    Postado

    Voce abre o RS2 mais manda exibir dados do RS da uma olhada no código abaixo:

    <select name="regional" id="regional">

    <%

    rs2.Open "SELECT * FROM regional",db

    while not rs2.eof

    %>

    <option selected><%=rs2("regionais")%></option>

    <% rs2.movenext

    wend

    %>

    </select>

×
×
  • Criar Novo...