Ir para conteúdo
Fórum Script Brasil

vinceplay()

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    249

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por vinceplay()

  3. Lista aleatoria

    em Ajax, JavaScript, XML, DOM

    Postado

    quero listar um monte de perguntas literalmente rsrs... sem repetir aleatoria....

    esse aki lista e não está lento... mas repete.... poderia me ajudar?

    OBS TERIA OUTRO JEITO DE FAZER EM JAVA SCRIPT DE CRIAR UMA LISTA SEM TER QUE USAR O ARRAY ... PEGANDO DE UM ARQUIVO EXTERNO *.TXT

    <script>

    cont = 7

    frase = new Array(cont);

    frase[0]= "frase 1";

    frase[1] = "frase 2";

    frase[2] = "frase 3";

    frase[3] = "frase 4";

    frase[4] = "frase 5";

    frase[5] = "frase 6";

    frase[6] = "frase 7";

    var soma = 0

    while (soma < (cont)){

    ron = Math.round(Math.random() * 6)

    soma += 1

    document.write (frase[ron] + "<br>")

    }

    </Script>

  4. Lista aleatoria

    em Ajax, JavaScript, XML, DOM

    Postado

    Estou com esse script e quando eu vou rodar o script o IE diz que "um script da página está fazendo a execução lenta do IE" eu queria saber se tem como corrigir isso com esse script ou alguém tem outro script para me ajudar

    OBS: PEGUEI ESSE SCRIPT NA INTERNET.

    <script type="text/javascript" language="javascript">

    var nr_of_links = 12;

    var desc = new Array (nr_of_links)

    var dsp = new Array (nr_of_links)

    desc[0]="a suspeição ou impedimento aos seus membros, ao Procurador Geral e aos funcionários da sua Secretaria";

    desc[1]="o registro e a cassação de registro de partidos políticos, dos seus diretórios nacionais e de candidatos à Presidência e vice-presidência da República";

    desc[2]="os conflitos de jurisdição entre Tribunais Regionais e juizes eleitorais de Estados diferentes";

    desc[3]="os crimes eleitorais e os comuns que lhes forem conexos cometidos pelos seus próprios juizes e pelos juizes dos Tribunais Regionais";

    desc[4]="as reclamações relativas a obrigações impostas por lei aos partidos políticos, quanto à sua contabilidade e à apuração da origem dos seus recursos";

    desc[5]="as impugnações á apuração do resultado geral, proclamação dos eleitos e expedição de diploma na eleição de Presidente e Vice-Presidente da República";

    desc[6]="elaborar o seu regimento interno";

    desc[7]="organizar a sua Secretaria e a Corregedoria Geral, propondo ao Congresso Nacional a criação ou extinção dos cargos administrativos e a fixação dos respectivos vencimentos, provendo-os na forma da lei";

    desc[8]="conceder aos seus membros licença e férias assim como afastamento do exercício dos cargos efetivos";

    desc[9]="aprovar o afastamento do exercício dos cargos efetivos dos juizes dos Tribunais Regionais Eleitorais";

    desc[10]="propor a criação de Tribunal Regional na sede de qualquer dos Territórios";

    desc[11]="propor ao Poder Legislativo o aumento do número dos juizes de qualquer Tribunal Eleitoral, indicando a forma desse aumento";

    dsp[0]="";

    dsp[1]="";

    dsp[2]="";

    dsp[3]="";

    dsp[4]="";

    dsp[5]="";

    dsp[6]="";

    dsp[7]="";

    dsp[8]="";

    dsp[9]="";

    dsp[10]="";

    dsp[11]="";

    var hits = 0;

    while (hits < (nr_of_links + 1))

    {

    rnd = Math.round(Math.random() * nr_of_links)

    if (dsp[rnd] == "")

    {

    dsp[rnd] = desc[rnd]

    hits += 1

    document.write( desc[rnd] + '<br><br>')

    }

    }

    </script>

  6. Listagem

    em ASP

    Postado · Editado por vinceplay()

    já coloquei mais não adiantou

    conectar2.asp

    <% Set Conexao = CreateObject("ADODB.CONNECTION")
conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("textos.mdb")
ConexaoAberta = FALSE
Sub AbreConexao()
    if not ConexaoAberta then
    Conexao.Open ConStr
    ConexaoAberta = True
    end if
end sub
Sub FechaConexao()
    if ConexaoAberta then
    Conexao.close
    ConexaoAberta = False
    end if
end sub %>
    <!--#include file="conectar2.asp"-->
<% Abreconexao
Set rsAlbum = Conexao.Execute("SELECT * FROM texto order by RND(INT(NOW*id)-NOW*id")
If rsAlbum.EOF Then
Response.Write "<font face=tahoma size=1>Nenhuma mensagem adicionada!</font>"
Else
While not rsAlbum.EOF
Response.Write "" & rsAlbum("com1") & "<br>"
rsAlbum.Movenext
Wend
end if
%>

    deu o mesmo

    Tipo de erro:

    Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)

    [Microsoft][Driver ODBC para Microsoft Access] ), ] ou item faltando na expressão de consulta 'RND(INT(NOW*id)-NOW*id'.

    /aaa.asp, line 3

    bd=textos

    tabela=texto

    ID=autonumeração

    com1=texto

    com2=texto

    com3=texto

    o que eu faço? VALEU PELA FORÇA BRIGADÃO. Sou meio leigo, nessa parte, da uma força.

  7. Listagem

    em ASP

    Postado · Editado por vinceplay()

    da uma LUZ AÍ tentei fazer assim mais está dando erro.

    <!--#include file="conectar2.asp"-->
<% Abreconexao

Set rsAlbum = Conexao.Execute("SELECT * FROM banners order by RND(INT(NOW*com1)-NOW*com1")
If rsAlbum.EOF Then
Response.Write "<font face=tahoma size=1>Nenhuma mensagem adicionada!</font>"
Else
While not rsAlbum.EOF
Response.Write "" & rsAlbum("com1") & "<br>"
rsAlbum.Movenext
Wend
end if
%>

    # Tipo de erro:

    Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)

    [Microsoft][Driver ODBC para Microsoft Access] ), ] ou item faltando na expressão de consulta 'RND(INT(NOW*com1)-NOW*com1'.

    /aaa.asp, line 3

    EU QUERO ASSIM

    exemplo: coloquei informações em 10 linhas.

    1________________5 <<< abrindo a pagina ficaria assim aleatorio. TODA VEZ que ABRISSE, MUDASSE

    2________________9

    3________________1

    4________________7

    5________________3

    6________________2

    7________________10

    8________________6

    9________________8

    10________________4

  9. Iss+ No-ip + Rotiador

    em ASP

    Postado

    mais ´lá no no-ip não a porta

    Hostname Information (DNS)

    Hostname: leovince.serveftp.com

    Host Type: DNS Host (A)

    IP Address: xxx.xxx.xxx.xxx << aqui o DUC atualiza toda vez renincia o modem router

    configurei assim

    em Host Type tem essas configurações tambem

    DNS Host (Round Robin)

    DNS Alias (CNAME)

    Port 80 Redirect

    Web Redirect

  10. Apache + No-ip + Rodiador

    em Outros Assuntos

    Postado

    POW ESTOU TENTANDO CONFIGURAR UM SERVIDOR NO MEU PC

    TENHO A HOST NO NOIP

    BAIXEI O NOPI DUC

    leovince.servegame.com

    minha duvida é lá no Port Forwarding pois meu modem speedtream 5200 rotiado, quando eu coloco a PORTA no caso coloquei 8090 mais na hora de colocar o IP so consigo colocar o IP do MODEM aquele que quando vai no IP CONFIG tem lá

    IP ENDEREÇO XXX.XXX.XXX.XXX

    MASCARA XXX.XXX.XXX.XXX

    GATEWAY PADRÃO XXX.XXX.XXX.XXX

    i AI não o consigo colocar o IP do meu computador NO CASO EU acho que SERIA aquele que FICA NO NOIP DUC NÉ?

    quando eu coloco o IP do meu computador aparece isso

    >> NAPT server IP address is not a valid host LAN address <<

    leovince.servegame.com:8090 <<<não abre

    leovince.servegame.com <<< abre a pagina do modem já configurei a porta com ip do modem mais não abre o que faço?

  11. Iss+ No-ip + Rotiador

    em ASP

    Postado

    POW ESTOU TENTANDO CONFIGURAR UM SERVIDOR NO MEU PC

    TENHO A HOST NO NOIP

    BAIXEI O NOPI DUC

    leovince.servegame.com

    minha duvida é lá no Port Forwarding pois meu modem speedtream 5200 rotiado, quando eu coloco a PORTA no caso coloquei 8080 mais na hora de colocar o IP so consigo colocar o IP do MODEM aquele que quando vai no IP CONFIG tem lá

    IP ENDEREÇO XXX.XXX.XXX.XXX

    MASCARA XXX.XXX.XXX.XXX

    GATEWAY PADRÃO XXX.XXX.XXX.XXX

    i AI não o consigo colocar o IP do meu computador NO CASO EU acho que SERIA aquele que FICA NO NOIP DUC NÉ?

    quando eu coloco o IP do meu computador aparece isso

    >> NAPT server IP address is not a valid host LAN address <<

    outra duvida onde e como eu configuro no iis a para abrir meu site no meu computador?

    ai na hora de abrir teria que ser assim?

    leovince.servegame.com:8080

×
×
  • Criar Novo...