Ir para conteúdo
Fórum Script Brasil

lampiao_muléstia

Membros
  • Total de itens

    264
  • Registro em

  • Última visita

Tudo que lampiao_muléstia postou

  1. Oi bom dia pessoal, alguém ai sabe como faço tipo aqueles players de video, que tem nos sites para tocar os videos e musicas, bom, queria fazer um daquele, só que para ficar tocando um streaming de áudio, tipo uma rádio online, alguém ai sabe como fazer ou onde achar? valeu
  2. não tem essa opção aqui cara.... seguinte, segue abaixo o código do arquivo, conexão.asp, <% Sub OpenDB (ByRef con) strPhysicalPath = Server.Mappath(".") strDBName = "noticias/noticias.mdb" Set con = Server.CreateObject("ADODB.Connection") con.Open "DRIVER=Driver do Microsoft Access (*.mdb);UID=admin;UserCommitSync=Yes;Threads=3;SafeTransactions=0;PageTimeout=5;MaxScanRows=8;MaxBufferSize=2048;FIL=MS Access;DriverId=25;DefaultDir=" & strPhysicalPath & ";DBQ=" & strPhysicalPath & "\" & strDBName End Sub Function InsertAP(t) If Not IsNull(t) Then InsertAP = Replace(t, "'", "''") Else InsertAP = "" End If End Function Sub InsertBBMessage(intRID) If Request("SendEmail") = "Yes" Then intSendEmail = 1 Else intSendEmail = 0 End If If Request("GID") = "" Then intGID = -1 Else intGID = Request("GID") End If If Request("BulletinCate") = "" Then intCate = -1 Else intCate = Request("BulletinCate") End If If Request("Face") = "" Then intFace = "-1" Else intFace = Request("Face") End If sql = "INSERT INTO tblBulletin (fldReplyID, fldGroupID, fldCateID, fldName, fldEmail, fldTitle, fldMessage, fldSendEmail, fldFace, fldDate, fldTime, fldIP) VALUES (" sql = sql & intRID & "," sql = sql & intGID & "," sql = sql & intCate & ",'" sql = sql & InsertAP(request("Name")) & "','" sql = sql & InsertAP(request("Email")) & "','" sql = sql & InsertAP(request("Title")) & "','" sql = sql & InsertAP(request("Message")) & "'," sql = sql & intSendEmail & "," sql = sql & intFace & ",'" sql = sql & Date & "','" sql = sql & Time & "','" sql = sql & request.ServerVariables("REMOTE_ADDR") & "')" response.write SQL OpenDB con con.Execute (sql) If Request("GID") = "" Then 'yes, newly posted message Application.Lock 'for SQL server, better ways can be used SQL = "SELECT Max(fldAuto) FROM tblBulletin" Set RSMax = con.Execute(SQL) intGID = RSMax(0) RSMax.Close Set RSMax = Nothing SQL = "UPDATE tblBulletin SET fldGroupID = " & intGID & " WHERE fldAuto = " & intGID con.Execute(SQL) Application.UnLock End If 'con.Close 'Set con = Nothing response.Cookies("UASP").Expires = #1/1/2005# response.Cookies("UASP")("ClientName") = request("Name") response.Cookies("UASP")("ClientEmail") = request("Email") End Sub Function BulletinCate(it) OpenDB bcCON s = "<SELECT NAME=BulletinCate>" SQL = "SELECT fldAuto, fldCategory FROM tblCategory WHERE fldActive = 1" Set bcRS = bcCON.Execute(SQL) While Not bcRS.EOF s = s & "<OPTION VALUE=""" & bcRS(0) & """" If Cstr(it) = cstr(bcRS(0)) then s = s & " selected" End If s = s & ">" & bcRS(1) & " (" & GetTodayNew(bcCON, bcRS(0)) & " Novas Hoje)" bcRS.MoveNext Wend s = s & "</SELECT>" BulletinCate = s bcRS.close bcCON.close Set bcRS = Nothing Set bcCON = Nothing End Function Function GetBulletinCate(id) arrCate = Array("ASP/VBScript", "HTML/Javascript","ADO/Database","XML","IIS/PWS/NT","ActiveX/COM+","Other") GetBulletinCate = arrCate(INT(id) - 1) End Function Function GetTodayNew(con, intCateID) SQL = "SELECT COUNT(fldAuto) FROM tblBulletin WHERE fldCateID = " & intCateID & " AND fldDate = #" & Date & "#" Set gtw = con.Execute(SQL) GetTodayNew = gtw(0) gtw.close Set gtw = Nothing End Function Function RadioFace For i = 0 to 9 f = f & "<input type=""radio"" name=""face"" value=""" & i & """><img src=""images/face/" & i & ".gif"">&nbsp;" If i = 4 then f = f & "<BR>" Next RadioFace = f End Function Sub SendNotificationEmail(GID) '======================================================================== 'uncomment the following lines after you install ASPMail ActiveX Component 'and change the email server, address to you own '======================================================================== 'Set mail = Server.CreateObject("APSMAIL") 'mail.FromAddress = "webmaster@busqui.com.br" 'mail.FromName = "UltimateASP Bulletin Board" 'sql = "SELECT DISTINCT fldEmail, fldName FROM tblBulletin WHERE fldGroupID = " & GID & " AND fldSendEmail = 1" 'OpenDB SNECon 'Set SNERs = SNECon.Execute(SQL) 'While Not SNERs.EOF 'mail.AddRecipient SNERs("fldName"), SNERs("fldEmail") 'SNERs.MoveNext 'Wend 'SNERs.Close 'SNECon.Close 'Set SNERs = Nothing 'Set SNECon = Nothing 'mail.Subject = "Your Message Has Been Replied on UltimateASP Bulletin Board!" 'b = b & "Per your request, this is to notify you that a reply message has been posted on UltimateASP bulletin board in your message thread. Please go to http://www.ultimateasp.com/bulletin to view it. Thank you!" & vbCrLf & vbCrLf 'b = b & "webmaster@busqui.com.brm" 'mail.BodyText = b 'mail.RemoteHost = "smtp.busqui.com.br" 'mail.SendMail 'Set Mail = Nothing End Sub %> tava conversando com um rapaz, aqui e ele me sugeriu que trocasse a conexão com o banco de dados para Conexao = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("SUBDIRETORIO/ARQUIVO.mdb") Ou Conexao = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\domains\SEUDOMINIO \SUBDIRETORIO\ARQUIVO.mdb" mas onde que faço essa alteração,??, sei que to sendo insistente e contra as regras do forum, mas o ponto é que eu num sei nem pra onde que vai o tal do ASP....se puderem me ajudar..., valeu
  3. cara, pra te falar a verdade, eu não manjo muito dessas paras de Banco de Dados..., porém, vamos ao que interessa... essa permissão para gravar no novo servidor eu faço por onde...?,,, uso o HELM para gerenciar este site, tem que criar algo lá.? valeu,,, até +
  4. eae galera.... tenho um site aqui que tem um sistema de noticias, e recentemente o mudei de servidor, porem depois que mudei de servidor, começou a dar o seguinte erro quando se tenta adicionar uma noticias pelo sistema...., INSERT INTO tblBulletin (fldReplyID, fldGroupID, fldCateID, fldName, fldEmail, fldTitle, fldMessage, fldSendEmail, fldFace, fldDate, fldTime, fldIP) VALUES (-1,-1,1,'teste','teste@teste.com.br','teste','teste',0,-1,'10/27/2006','6:15:20 AM','201.11.189.38') Microsoft OLE DB Provider for ODBC Drivers error '80004005' [Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query. /noticias/tools.asp, line 57 pois bem, na linha 57 do arquivo tools.asp tem o seguinte código...vejam o que antecede o código... 42 -sql = "INSERT INTO tblBulletin (fldReplyID, fldGroupID, fldCateID, fldName, fldEmail, fldTitle, fldMessage, fldSendEmail, fldFace, fldDate, fldTime, fldIP) VALUES (" 43- sql = sql & intRID & "," 44 - sql = sql & intGID & "," 45 - sql = sql & intCate & ",'" 46 - sql = sql & InsertAP(request("Name")) & "','" 47 - sql = sql & InsertAP(request("Email")) & "','" 48 - sql = sql & InsertAP(request("Title")) & "','" 49 sql = sql & InsertAP(request("Message")) & "'," 50- sql = sql & intSendEmail & "," 51- sql = sql & intFace & ",'" 52- sql = sql & Date & "','" 53- sql = sql & Time & "','" 54- sql = sql & request.ServerVariables("REMOTE_ADDR") & "')" 55- response.write SQL 56- OpenDB con 57- con.Execute (sql) Valeu, galera, alguém ai sabe porque está dando esse erro??? Valeuuuuuuuuu, to precisando meso disso ai... ATÉ + falouuuu
  5. eae galera, alguém aí sabe onde acho o código de uma sala de bate papo massa....e que seja configurável de acordo com o layout que desejar...., vi umas no site, mas não consegui mexer em nada........ pois bem, a outra questão é: alguém ai sabe onde eu posso encontrar o ódigo de uma caixa de texto com as formatação a serem aplicadas ao texto, por exemplo, essa que agente digita as mensagens aqui no forum, ( mudar cor, negrito, italico, centralizar, inserir link, imagem,) valeu pessoal, vo ficar na espreita..... Falowsssssssssssssss :blink:
  6. eae povo... seguinte..., é possivel a function de um onEnterFrame de um MC "comflitar" com outra function de outro onEnterFrame de ou MC... para ver se entendem melhor segue um link com o exemplo.... " PRESTE ATENÇÃO NAS DUAS LOGOMARCAS QUE ABREM NO TOPO DO SITE.... WM CELULARES e WM NET " - deixe o mouse sobre uma delas e mude rapidamente para cima da outra logomarca... verá que quando a logomarca que sofreu o rollOut deveria diminuir o _alpha, mas fica com o alpha elevado http://www.wmnet.com.br/flash/ eis os códigos dos botões que sobrepõem as logomarcas : on(rollOver){ onEnterFrame = function(){ this.wmcel._alpha += 5; if(this.wmcel._alpha >= 100){ delete onEnterFrame; } } } on(rollOut){ onEnterFrame = function(){ this.wmcel._alpha -= 5; if(this.wmcel._alpha <= 50){ delete onEnterFrame; } } } on(rollOver){ onEnterFrame = function(){ this.wmnet._alpha += 5; if(this.wmnet._alpha >= 100){ delete onEnterFrame; } } } on(rollOut){ onEnterFrame = function(){ this.wmnet._alpha -= 5; if(this.wmnet._alpha <= 50){ delete onEnterFrame; } } } LEMBRANDO QUE PARA OS MCS DAS LOGOMARCAS INICIAREM COM 50% DE ALPHA USEI UM onClipEvent(load){ _alpha = 50; } SOBRE OS MCS LOGOMARCAS.. ´ é isso ai pessoal... FALOWSSSSSSSSSSSSSSS
  7. eae galera..., seguinte estou fazendo uma função para abrir uma determinada "animação" do site, e quando o usuário clicar no botão ela retroceda os frames "fechando" a animação.. segue o código on(release){ if(mc._currentframe == 1){ mc.gotoAndPlay(2); } else if ( mc._currentframe == 50){ onEnterFrame = function() { mc.prevFrame(); } } } bom, o problema é o seguinte, COMO EU FAÇO PARA ESSA FUNÇÃO PARAR? quando mc mc está no frame 50 e o bt é clicado, a função se inicia, e fica ai rodando e não para nunca ,,,hehe.... alguém ai sabe como parar a função.?
  8. eaeeeeee..... Bom galera,,, o endereço do site é: ACIC-CDL na página incial vai ter um quadro com o nome ASSOCIADOS... é bem aí que to querendo colocar o código para sumir a Barra... Estou colocando sim o código entre as tags <head> </head>... O DOCTYPE está transitional, tudo certinho..... Se eu colocar apenas o código <style type="text/css"> <!-- body { overflow: hidden; } --> </style> ele ta funfando, pois some tudo da página, mas se eu coloco o Y ali depois do overflow, ele volta ao normal com as barras.... Valeus, qualquer coisa posta ae galera.........
  9. <style> body{ overflow-y: hidden; } </style> coloquei esse lance aí.... mas não some a barra de jeito nenhum... coloquei esse aí....<body scroll=no> aí some tudo...hehhe.... valeu.... falows.........
  10. rapaz... essse trem masco.... Tentei adcionar esse css na minha página que o scroll tava fungado, num deu certo não cara.. alguém aí sabe um outro código???
  11. Olá, Seguinte, tava querendo remover a barra hozrizontal do meu site por meio de código, eu tenho aqui o <body scroll=no> mas esse remove todas as barras de rolagem.... alguém aí sabe como remover só a horizontal? Valeu galera, qualquer coisa tamo aí... e tambem, se tem alguma forma de fazer isso por behaviors ou por CSS... valeus Edgar Lucas www.cbkdesign.com.br
  12. eae galera. procurei o quanto pude para não enxer o saco aqui do pessoal,,, mas num achei nem k peste.... alguém ai sabe o código para quando clicar no link abrir a janela para definir o site como a PÁGINA INICIAL ? caleu galera, qualquer nois tamo na área
  13. sei não cara. mas sei o seguinte..... Faz sua animação sem nenhum Botão.....Que ai vai da pra clicar no bichinho... WMODE TRANSPARENT ve se a grafia esta certa... no fundo da animação deixa só o undo do palco mesmo.. FALows.....
  14. rapaz.... mais em cima inpossivel... valeu aí pelo código, é esse mesmo... Até +
  15. lampiao_muléstia

    Fire 8

    Galera eu tenho que deixar meu oment aqui....> ESSE PROGRAMA VAI SER SHOW............. iNTEGRAÇÃO MUITO MELHOR COM OFLASH É ISSO AI GALER.A. UM ABRAÇO E VAMOS AGUARDAR
  16. Olá, Gostaria de saber é o código de redirecionamento... Ex: Entrei no site www.zica.com.br ai ele automaticamente se clicar em nada vai para o site www.zicapreta.com.br... Grato a Todos que puderem ajudar. Obrigado, Edgar Lucas
  17. eae meu povo... tudo na paz..... leva a mal não é que hoje eu to mei doido, tinha uma desgrama dum grilo gritando aqui do meu lado.....tive que da tiro nele pra ele parar..... mas vamos direto ao assunto..... seguinte... sei que se eu colocar a seguinte action: on (release) { if ( MC._currentframe <= 10 ) { stop(); } else { gotoAndPlay(25); } } que significa que.... se ele tiver em um quadro < ou = a 10 ele para,,,,e se eu quisese somente os quadros que fosse < que 10 e > que 5 no caso (9, 8, 7, 6) ???????????????? valeus falowwww
  18. cara, me fala uma coisa aí... pra mim saber colcoar as coisas nos caminhos certos... esse "carrega" é oque? hhehehe, valeus.... falows
  19. bom cara, fiz as madificações ae, mas o trem ta feio.... heheheh ficou assm agora.. _parent.alvo.loadMovie("inicial.swf"); total = _parent.alvo.getBytesTotal(); barra._xscale = 0; _parent.alvo.stop(); barra.onEnterFrame = function() { loaded = _parent.alvo.getBytesLoaded(); pct = Math.floor((loaded/total)*100); barra._xscale = pct; if (pct eq 100) { _parent.alvo.play(); } pct = pct add "%"; }; da uma olhada do link http://www.marisalinhares.com.br/lind/ e v como esta.... " lembrando que só o bt inicial esta com essa action..... falows, valeu e posta ae...
  20. bom galera, deem uma olhada ai nesse preloader para arquivo externo... ... quando vo ver se o bicho funciona ele passa dirteto pelo preloader e só mostra o filme swf carregado depois..... o código é esse _parent.alvo.loadMovie("inicial.swf"); total = _parent.alvo.getBytesTotal(); barra._xscale = 0; barra.onEnterFrame = function(){ loaded = _parent.alvo.getBytesLoaded(); pct = Math.floor (loaded/total) * 100; barra._xscale = pct; if (pct eq 100); play(); pct = pct add "%"; } valeus falows
  21. Eae galera, tava perguntando esses dias ai como fazia pra carregar um filme externo, no cas, um SWF pronto dentro de um MC em outro filme... bom....isso ae consegui fazer filé,,,, Agora oque quero fazer é colocar um preloader dentro do mc que chama o swf..... ou seja.....o swf só será solto na tela quando estiver totalmente carregado.... ficaria mais ou menos assim Link para ex. (Só o botão " Inicial " esta funcionando e o inicial.swf tem aprox. 3,4 MB, pois como estava testando um preloader coloquei um arquivo meio grande......ta com uma mp3 do allan jakson) O Esquema de como foi feito é esse.... _root > mc_alvo > mc_preloader_inicial > inicial.swf Como vocês podem notar ai no exemplo acima eu tenho uns 6 botões.... cada botão tem seu respectivo MC dentro do "mc_alvo" ou seja.,,, quando é clicado o mc correspondente da play.....e ai cai no quadro que tem o código de preloader.... Esse é meu problema.... tenho um código aqui mas ele é pra carregar o filme em si, e não um filme externo através de um MC , que é o que eu estou querendo fazer.... O Código que tenho é o seguinte.... onClipEvent (load) { total = _root.getBytesTotal(); } onClipEvent (enterFrame) { carregado = _root.getBytesLoaded(); porcentagem = Math.round((carregado/total)*100); _root.pct = porcentagem+' %'; _xscale = porcentagem; if (porcentagem == 100) { _root.play(); } else { _root.stop(); } } mas o preloader que to querendo é oque carrega o film externo como falei aí emcima..... bom galera é isso.... alguém ai sabe como faz esse tipo de prelaoder...?? falows, qualquer duvida posta ae.... falows t+
  22. dae brow.... vo fazer aqui esse trem, oque eu conseguir eu falo aqui pra vc (s) falows até + Edgar lucas
  23. Bom pessoal minha dúvida de hoje é a seguinte Não to conseguindo entender como se faz um filme assim: Primeiro de tudo faço os botões.... nesses botões coloco um código para que quando clicar no botão abra um MC dentro de um MC alvo.....ou seja: botao > mc_alvo > mc_conteudo até ai tudo bem, consegui fazer com que o "mc_conteudo" ficasse dentro do "mc_alvo" e ao clicar em "botao" o "mc_conteudo" fosse playado e assim o mc se reproduz... on(release){ _root.mc_alvo.mc_conteudo.play(); } Nesse caso que acabei de mencionar acima, o "mc_conteudo" já está no palco, ou seja, já carregou, já pesou o filme, oque realmente estou querendo saber com esse monte de babozeira que to escrevendo aqui, é se tem como eu abrir esse "mc_conteudo" dentro do "mc_alvo" sem que o "mc_conteudo" já esteja no palco,,, tipo se tem um jeito de carregar como sendo um arquivo externo ou como ele sendo um MC que já esteja no palco, mas que não tenha sido carregado ainda, ou seja, ele só será carregado quando o foi solicitado.....tipo, quando clicar em "botao" vai ser carregado e abrir o "mc_conteudo" dentro do "mc_alvo".. Se alguém não entender oque to pedindo ai, posta ae que eu tento explicar melhor.... Bom, pessoal, é isso ae... qualquer coisa postem ai,,,, falows e até + Edgar Lucas
×
×
  • Criar Novo...