Mateustg
-
Total de itens
382 -
Registro em
-
Última visita
Tudo que Mateustg postou
-
Olá, eu tenho um sistema de cartão virtual, mas não consegui utilizá-lo, portanto gostaria de saber se alguém aqui pode me passar um código pronto que funcione bem.
-
Bem, o código é este daqui: <HTML> <HEAD> <TITLE>»» §uper Agito ««</TITLE> <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1"> <script language="JavaScript" type="text/JavaScript"> <!-- function MM_reloadPage(init) { //reloads the window if Nav4 resized if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) { document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }} else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload(); } MM_reloadPage(true); function MM_findObj(n, d) { //v4.01 var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) { d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);} if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n]; for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document); if(!x && d.getElementById) x=d.getElementById(n); return x; } function MM_showHideLayers() { //v6.0 var i,p,v,obj,args=MM_showHideLayers.arguments; for (i=0; i<(args.length-2); i+=3) if ((obj=MM_findObj(args[i]))!=null) { v=args[i+2]; if (obj.style) { obj=obj.style; v=(v=='show')?'visible':(v=='hide')?'hidden':v; } obj.visibility=v; } } //--> </script> </head> <body bgcolor="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td><div align="center"><a href="#"><img src="cultura.gif" border="0" width="468" height="60" alt="" onMouseOver="MM_showHideLayers('Layer1','','show')" onMouseOut="MM_showHideLayers('Layer1','','hide')"></a></div></td> </tr> </table> <div id="Layer1" style="position:absolute; width:468px; height:300px; z-index:1; left: 147; top: 60; overflow: hidden; visibility: hidden;"> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td><img src="restaurantes.jpg" border="0" width="468" height="160" alt=""></td> </tr> <tr> <td> <table width="100%" border="0" cellspacing="2" cellpadding="0" bordercolor="#FFFFFF" height="15" bgcolor="#000000"> <tr> <td height="15"> <div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#FFFFFF">Anuncie Conosco - Ligue<font size="2"><font size="1"> 622-6475</font></font></font></div> </td> </tr> </table> </td> </tr> </table> </div> </body> </html> No sistema rotativo, tenho que colocar o link do banner, mas como vou colocar para aparecer os dois, será que tem como?
-
Olá, eu tenho um sistema de banner rotativo que está funcionando muito bem, mas agora eu quero colocar um banner diferente no sistema, mas não estou conseguindo, pois me parece que o sistema aceita uma figura de banner e este possui duas, é que este banner é o seguinte: quando passo o mouse sobre o banner ele aparace logo abaixo outra parte maior do banner. Para melhor entendimento, vejam o exemplo em: banner A minha pergunta então vem ai, como faço para colocar este banner para rodar em meu sistema rotativo??? Se eu tentar colocar um banner comum ele aceita, mas como faço para colocar este, pois são duas imagens. O sistema rotativo que uso é o do site www.wmonline.com.br
-
Olá, eu tenho um sistema de notícias que se eu só colocar um texto, ele funciona perfeitamente, mas se eu tentar colocar uma imagem, ele me aponta o seguinte erro: Microsoft VBScript runtime error '800a01ad' ActiveX component can't create object: 'Scripting.FileSystemObject' /sistemasweb/temisnetnews/imagens/index.asp, line 92 A linha 92 do arquivo q ele se refere é essa: Set fso = CreateObject("Scripting.FileSystemObject") Aqui vai todo o arq. citado acima: <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <% '*********************************************************************** '** Sistema de Notícias desenvolvido pela TemisNet ** '** Contatos: Temístocles Sota - ICQ 104458476 ** '** http://www.temisnet.com.br ** '*********************************************************************** response.buffer=true Func = Request("Func") nome= Request("nome") if isempty(Func) Then Func = 1 End if Select Case Func Case 1 response.redirect "../index.asp" Case 2 ForWriting = 2 adLongVarChar = 201 lngNumberUploaded = 0 noBytes = Request.TotalBytes binData = Request.BinaryRead (noBytes) Set RST = CreateObject("ADODB.Recordset") LenBinary = LenB(binData) if LenBinary > 0 Then RST.Fields.Append "myBinary", adLongVarChar, LenBinary RST.Open RST.AddNew RST("myBinary").AppendChunk BinData RST.Update strDataWhole = RST("myBinary") End if strBoundry = Request.ServerVariables ("HTTP_CONTENT_TYPE") lngBoundryPos = instr(1,strBoundry,"boundary=") + 8 strBoundry = "--" & right(strBoundry,len(strBoundry)-lngBoundryPos) lngCurrentBegin = instr(1,strDataWhole,strBoundry) lngCurrentEnd = instr(lngCurrentBegin + 1,strDataWhole,strBoundry) - 1 Do While lngCurrentEnd > 0 strData = mid(strDataWhole,lngCurrentBegin, lngCurrentEnd - lngCurrentBegin) strDataWhole = replace(strDataWhole,strData,"") lngBeginFileName = instr(1,strdata,"filename=") + 10 lngEndFileName = instr(lngBeginFileName,strData,chr(34)) if lngBeginFileName = lngEndFileName and lngNumberUploaded = 0 Then Response.Write "<H2> The following Error occured.</H2>" Response.Write "You must Select at least one file To upload" Response.Write "<BR><BR>Hit the back button, make the needed corrections and resubmit your information." Response.Write "<BR><BR><INPUT type='button' onclick='history.go(-1)' value='<< Back' id='button'1 name='button'1>" Response.End End if if lngBeginFileName <> lngEndFileName Then strFilename = mid(strData,lngBeginFileName,lngEndFileName - lngBeginFileName) tmpLng = instr(1,strFilename,"\") Do While tmpLng > 0 PrevPos = tmpLng tmpLng = instr(PrevPos + 1,strFilename,"\") Loop FileName = right(strFilename,len(strFileName) - PrevPos) lngCT = instr(1,strData,"Content-Type:") if lngCT > 0 Then lngBeginPos = instr(lngCT,strData,chr(13) & chr(10)) + 4 Else lngBeginPos = lngEndFileName End if lngEndPos = len(strData) lngDataLenth = lngEndPos - lngBeginPos strFileData = mid(strData,lngBeginPos,lngDataLenth) Set fso = CreateObject("Scripting.FileSystemObject") total = len(FileName) T = inStr(1,FileName,".") -1 uin = nome & right(FileName,total - T) Set f = fso.OpenTextFile(server.mappath(".") & "\" & uin, ForWriting, True) f.Write strFileData Set f = nothing Set fso = nothing lngNumberUploaded = lngNumberUploaded + 1 End if lngCurrentBegin = instr(1,strDataWhole,strBoundry) lngCurrentEnd = instr(lngCurrentBegin + 1,strDataWhole,strBoundry) - 1 loop response.redirect "../atualiza.asp?id="&nome&"&foto="&uin End Select %> Alguém pode me ajudar a fazer a imagem aparecer?
-
Sim, há registros sim. Todos os campos estão lá.
-
Se foi o que entendi é só fazer um link normal: <p align="center"><b><font size="1" face="Verdana"> <a href="foto_4.htm"><<< Foto Anterior</a> <a href="foto_6.htm">Próxima foto >>></a></font></b
-
Foi mal, o erro é o seguinte: Microsoft OLE DB Provider for ODBC Drivers error '80004005' [Microsoft][ODBC Microsoft Access Driver] No current record. /sistemasweb/pd/pd/enviar.asp, line 92
-
Ai galera, não precisa mais, já consegui! Valeu
-
Bem, Diraol e Rob, o que eu quero é um banner igual o desta página aqui: http://www.superagito.com.br/guarapuava/ac...leria_fotos.htm Será que tem como?
-
Olá, gostaria de saber se alguém sabe como eu faço para ter um banner (468x60)daqueles tipos que quando você passa o mouse emcima dele ele aumenta, aparece uma parte maior imendando com o banner acima. Vira uma única imagem grande e quando se tira o mouse ele volta a ter o tamanho normal de 468x60. Alguém tem idéia de como fazer?
-
Olá, estou com um problema no meu sistema de cartões virtuais, quero implementá-lo, mas ele está dando um problema, creio eu, na hora de enviar. Vou postar aqui as páginas deste sistema. Caso alguém tenha um sistema deste tipo já em funcionamento e quiser me ceder, agradeço muito. [B]Pág. construir[/B] <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <body bgcolor=white> <table width="600" border=1><tr><td> <table width="100%"> <tr> <form name="postalenviado" method="post" action="visualizar.asp"> <td width="24" valign="bottom"> <input checked type="radio" value="postal1" name ="R1"> </font> </td> <td width="140"> <img border=2 height=86 src="imagens/postal1.jpg" width=134> </font> </td> <td width="12" valign="bottom"> <input type="radio" value="postal2" name ="R1"> </font> </td> <td width="151"> <font face="Arial"> <img border=2 height=87 src="imagens/postal2.jpg" width=134> </font> </td> </tr> <tr> <td width="24" valign="bottom"> <input type="radio" value="postal3" name="R1"> </font> </td> <td width="140"> <img border=2 height=88 src="imagens/postal3.jpg" width=135> </font> </td> <td width="12" valign="bottom"> <input type="radio" value="postal4" name="R1"> </td> <td width="140"> <img border=2 height=88 src="imagens/postal4.jpg" width=135> </font> </td> </tr> </table> </td><td> <font size=1 face="verdana,arial">Nome Destinatario : </font><input name="nomepara" size="28"> <br> <font size=1 face="verdana,arial">E-Mail Destinatario : </font><input name="emailpara" size="22"> <br> <font size=1 face="verdana,arial">Nome Remetente : </font><input name="nomede" size="28"> <br> <font size=1 face="verdana,arial">E-Mail Remetente : </font><input name="emailde" size="22"><br> <font size=1 face="verdana,arial">Mensagem : </font><br><textarea cols=26 name=mensagem rows=6></textarea> <input type="submit" name=uq value="Previsualizar"> </td></tr></table> [B]pág. visualizar[/B] <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DBQ=" & Server.MapPath("./postaisdigitais.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;MaxBufferSize=8192;Threads=20;", "username", "password" Set rs = Server.CreateObject("ADODB.Recordset") Dim apanhar Dim ident Dim psw ' erring diz-nos se o postal jà existe ' exists. Por defeito achamos que sim. Dim erring ' Normalmente uso 0 e 1 como boolean, ' julgo que ocupa menos recursos ao servidor do que ' um True e False erring = 0 ' Recebemos a informação dos argumentos ' relativos ao postal a ver; ' ficamos a saber se é uma pré-visualização ' ou um destinatário a querer ver o seu postal apanhar = Request("uq") if apanhar = "Previsualizar" then ' para pré-visualizar entra-se aqui ' Criei sessions para guardar a informação, ' assim posso aceder à mesma a qualquer altura session("postal") = Request("R1") session("nomede") = Request("nomede") session("emailde") = Request("emailde") session("nomepara") = Request("nomepara") session("emailpara") = Request("emailpara") session("message") = Request("mensagem") else ' aqui temos o identificador do postal digital, ' para sabermos qual a ir buscar. ' Percorremos a Base de Dados para ver se está ' tudo correcto. ident = Request("ident") ' Buscamos a password ' Não queremos que as pessoas vão ver os postais dos ' só por mudar o ID de 12 para 13 e afins. ' Com a password cada postal só pode ser visto ' pela pessoa que sabe a password, neste caso nem precisa de saber ' só tem de seguir o link que lhe foi enviado psw = Request("psw") ' Esta é uma simples declaração de SQL para ' validar o Id e a password SQLStmt = "SELECT * FROM postal WHERE ID_POSTAL = " & _ CInt(ident) & " AND passw_postal = " & CInt(psw) ' Executamos o SQL rs.Open SQLstmt, Conn, 1, 2 if rs.EOF then 'O Postal digital não existe ou a password está errada! erring = 1 else 'O Postal existe. Vamos preencher as variáveis de 'sessão com a informação da BD. session("postal") = rs("postal_postal") session("nomede") = rs("nomede_postal") session("emailde") = rs("emailde_postal") session("nomepara") = rs("nomepara_postal") session("emailpara") = rs("emailpara_postal") session("mensagem") = rs("mensagem_postal") end if rs.close end if %> <html><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <body bgcolor=white> <% ' Aqui vamos verificar se houveram erros if erring <> 1 and (apanhar="Previsualizar" or apanhar="defora") and len(session("postal")) <> 0 then ' ´se tudo estiver bem mostramo sa informação %> <div align="left"> <table border="0" width="580" cellspacing="0" cellpadding="0"> <tr> <td width="50%" valign="top" align="left"><br> <br> <img src="imagens/<%=session("postal")%>.jpg" hspace="5" border="2" WIDTH="354" HEIGHT="231"> </td> <td width="50%"> <table border="0" cellspacing="3" width="100%" cellpadding="3" bordercolor="#000000" height="202"> <tr> <td width="100%" height="109"> <p align="left"> <font face="Arial"><br> <small>Remetente:</small> <strong><%=session("nomede")%></strong> <br> <small>E-Mail Remetente:</small><small><strong> <%=session("emailde")%></strong></small> <br> <small>Destinatario:</small><strong><small> <%=session("nomepara")%></small></strong> <br> <small>E-mail Destinatario:</small><small><strong> <%=session("emailpara")%></strong></small> </font> </td> </tr> <tr> <td width="100%"> <font face="Arial"> <small>Message:</small><br> <font size="2"><strong> <%=session("message")%></strong> </font> </font> </td> </tr> <tr> <td width="100%" align="center" valign="middle" height="29"> <% 'se apanhar = "seeit" mostramos os botões 'de envio e repetição if apanhar="Previsualizar" then %> <p align="left"><br> <a href="javascript:history.back()"> Repetir </a> <a href="enviar.asp"> Enviar </a> </td> </tr> </table> </td> </tr> </table> </div> <% ' alguém está a ver um postal já criado ' mostra-se o botão de resposta else %> <br><br><br> <a href="construir.asp" target="_self" > Criar Tambem Um Postal </a> <% end if ' este else só funciona se não existir nenhum postal else %> <br><br> <center> ERRO.... </center> <br> <% end if ' Aqui é o local onde removemos Postais antigos, com mais de 30 diasall the postcards ' Não quero ter uma Base de Dados cheia de lixo ' por isso apago todos os regitos com mais de 30 dias. ' Pode perguntar.. "-Porque meteu este código aqui?" ' A minha resposta é: ' "- Porque é o local onde se veêm postais, ' se vamos ver um postal apagamos os que jà não interessam ' mas poderia estar em outro lado qualquer." ' Vamos buscar a data do servidor d = now() ' vamos decrementar 30 dias à mesma d = DateAdd("d",-30,d) ' Corremos o SQL que vai remover tudo SQLStmt = "DELETE FROM postal WHERE data_postal < #" & d & "#" rs.Open SQLStmt,Conn,1,2 %> </body> </html> [B]pág. enviar[/B] <% 'Aqui conectamos com a Base de Dados Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DBQ=" & Server.MapPath("./postaisdigitais.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;MaxBufferSize=8192;Threads=20;", "username", "password" Set rs = Server.CreateObject("ADODB.Recordset") ' Esta é a variável usada como identificador ' do postal digital Dim identifier ' goby é uma variável boolean para ' ajuda na validação Dim goby goby = 1 'lets start it with True %> <html><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <body bgcolor=white> <font face=3D"Arial"> <small><strong> <% ' Validamos então o nome; tem de ter um tamanho ' mínimo de 2 caracteres if len(session("nomepara")) < 2 then ' se existir problemas marcamos logo a nossa variável goby = 0 end if if len(session("nomede")) < 2 then goby = 0 end if ' validamos o email, If Len(session("emailde")) <= 5 Then goby = 0 Else If InStr(1, session("emailde"), "@", 1) < 2 Then goby = 0 Else If InStr(1,session("emailde"), ".", 1) < 4 Then goby = 0 End If End If End If If Len(session("emailpara")) <= 5 Then goby = 0 Else If InStr(1, session("emailpara"), "@", 1) < 2 Then goby = 0 Else If InStr(1,session("emailpara"), ".", 1) < 4 Then goby = 0 End If End If End If ' Aqui verificamos se o texto não tem mais de 500 caracteres. If len(session("message")) >= 500 Then goby = 0 End If ' Vamos agora verificar a nossa variável ' se estiver a zeros avisamos que hà erros if goby = 0 then %> <br><br><br><br><br> <center>ERRO....</center><br> <% end if ' Se não hà erros introduzimos a informação para a Base de Dados ' e enviamos a informação por email para o destinatário If goby = 1 then 'fazemos o update à Base de Dados SQLStmt = "INSERT INTO postal (" & _ "passw_postal, postal_postal, nomepara_postal, nomede_postal, " & _ "emailde_postal, emailpara_postal, mensagem_postal, data_postal) " & _ "VALUES (" ' vamos criar um número aleatório para que o postal fique protegido, ' usamos o randomize/rnd para criar um número aleatório randomize() passw = Int((9999-1)*Rnd + 1) SQLStmt = SQLStmt & passw & ",'" & session("postal") & _ "','" & session("nomepara") & "','" & _ session("nomede") & "','" & _ session("emailde") & "','" & _ session("emailpara") & "','" & _ session("message") & "',Now)" ' escrevemos a informação na BD definitivamente rs.Open SQLStmt, Conn, 3, 3 SQLStmt = "Select max(id_postal) AS maximo from postal" rs.Open SQLStmt, Conn, 1, 2 ident = rs("maximo") ' Vamos aqui usar o componente ASPMail ' pode usar um outro qualquer, este é o que é usado ' no servidor ond estamos Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.RemoteHost = "mail.vipseven.com.br" Mailer.FromName = "O Site" Mailer.FromAddress = "vipseven@vipseven.com.br" Mailer.AddRecipient " ", session("emailpara") Mailer.Subject = "Envio de Postal Digital para si de " & session("nomede") & " ..." ' vamos buscar a data que está no servidor d = now() ' vamos acrescentar-lhe 30 dias, para por no aviso de limite ' de expiração do postal digital d = DateAdd("d",30,d) enviar = "Deixe-me informá-lo de que " & session("nomede") & _ Chr(13) & Chr(10) & _ " enviou-lhe um postal digital. Para o ver " & _ "siga o link :" & _ Chr(13) & Chr(10) & Chr(13) & Chr(10) & _ "http://www.pt4free.net/pd/visualizar.asp?uq=defora&" & _ "ident=" & ident & _ "&psw=" & passw & " " & Chr(13) & Chr(10) & _ " o postal vai estar disponível no nosso site até ao dia " & _ formatDateTime(d,2) & _ Chr(13) & Chr(10) & Chr(13) & Chr(10) & _ Chr(13) & Chr(10) & _ " Obrigado," Mailer.BodyText = enviar Mailer.SendMail If Err <> 0 Then Response.write "ERRO..." Response.Write "<br><br>" & "Houve um Erro : " & Err.description & "<br><br>" Response.Write "<center><p>ERRO DO LADO DO SERVIDOR, " & "contacte o nosso webmaster.</p></center>" goby = 0 Else Response.Write "<br><br><br><center><p>POSTAL DIGITAL ENVIADO" & " SEM PROBLEMAS ...<br>" End if Set Mailer = nothing End If ' penso que reparou que uso o JavaScript history.back ' com este não perdemos a informação jà criada anteriormente %> <center> <a href="javascript:history.go('-2')"> <Refazer> </a> </center> </strong></small></font> </body> </html> Se alguém puder me ajudar ou me arrumar um sistema deste em funiconamento eu agradeço bastante.
-
é Urso, não deu certo não, mudei tudo mas continua sempre aparecendo a mesma coisa.
-
beleza urso, mas como eu faço essa reconfiguração? Eu não localizei. Desculpe estar postando de novo, é q não percebi que o nick não tava logado
-
Olá galera! Estou precisando da ajuda de vocês em relação a um código de administração de um mural de recados. Eu baixei este código e modifiquei ele, até ai tudo beleza, tudo ficou funcionando (evitar palavrões, etc), mas só o admin que não. Já olhei o bd e a senha e login estão corretos. Toda vez que entro no admin e digito os dados ele sempre aparece o seguinte dizer: Sorry, you are not authorised to view the material in this part of the web site. If you try again make sure you have session cookies enabled on your machine. No bd há um campo chamado "cookie", eu deixei ele marcado e não funcionou, tentei desmarcar e deu na mesma. Vou postar aqui os dados do admin, se alguém poder me ajudar vou agradecer muito mesmo, caso queiram posso enviar o código todo para ser melhor analisado. admin_menu.asp Página unauthorised_user_page.htm <html> <head> <title>Unauthorised Access</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <meta name="copyright" content="Copyright © 2001-2003 Bruce Corkhill"> </head> <body bgcolor="#FFFFFF" text="#000000"> <table width="518" border="0" cellspacing="0" cellpadding="0" align="center"> <tr> <td align="center"> <h1>Unauthorised Access</h1> </td> </tr> </table> <div align="center"> <h3><br> <br> Sorry, you are not authorised to view the material in this part of the web site.</h3> <p><br> If you try again make sure you have session cookies enabled on your machine.<br> </p> </div> </body> </html>
-
Tem isso sim. Dá uma olhada em www.scriptfacil.com acho que lá tem
-
entra aqui e veja a sua resposta: http://www.hpg.ig.com.br/melhore/dicas/exemplos/scroll.html
-
Olá, gostaria de saber se tem como eu colocar um bgsound para tocar várias músicas em seguencia e a cada vez que a página for aberta ele traga uma música aleatóriamente.
-
BAIXE APOSTILAS DE HTML, TEM MUITA COISA LÁ. você ACHA EM WWW.WMONLINE OU AQUI mesmo NO SCRIPTBRASIL
-
Caro Gustavo, entre em contato comigo pelo MSN: mateustosta@hotmail.com
-
Eu também topo a parceria. Entre em contato comigo: suportewebsis@yahoo.com.br
-
Bem, para colocar palavras você deve fazer assim: <html> <head> <style> .spanstyle { position:absolute; visibility:visible; top:-50px; font-size:10pt; font-family:Verdana; font-weight:bold; color:blue; } </style> </head> <body onLoad="makesnake()" style="width:100%;overflow-x:hidden;overflow-y:scroll"> <script> <!-- var x,y var step=20 var flag=0 var message="SCRIPT FÁCIL! " message=message.split("") var xpos=new Array() for (i=0;i<=message.length-1;i++) { xpos=-50 } var ypos=new Array() for (i=0;i<=message.length-1;i++) { ypos=-50 } function handlerMM(e){ x = (document.layers) ? e.pageX : document.body.scrollLeft+event.clientX y = (document.layers) ? e.pageY : document.body.scrollTop+event.clientY flag=1 } function makesnake() { if (flag==1 && document.all) { for (i=message.length-1; i>=1; i--) { xpos=xpos[i-1]+step ypos=ypos[i-1] } xpos[0]=x+step ypos[0]=y for (i=0; i<message.length-1; i++) { var thisspan = eval("span"+(i)+".style") thisspan.posLeft=xpos thisspan.posTop=ypos } } else if (flag==1 && document.layers) { for (i=message.length-1; i>=1; i--) { xpos=xpos[i-1]+step ypos=ypos[i-1] } xpos[0]=x+step ypos[0]=y for (i=0; i<message.length-1; i++) { var thisspan = eval("document.span"+i) thisspan.left=xpos thisspan.top=ypos } } var timer=setTimeout("makesnake()",30) } //--> </script> <script> <!-- for (i=0;i<=message.length-1;i++) { document.write("<span id='span"+i+"' class='spanstyle'>") document.write(message) document.write("</span>") } if (document.layers){ document.captureEvents(Event.MOUSEMOVE); } document.onmousemove = handlerMM; // --> </script> <!--------------termina aqui------------------> </body> </html>
-
eu consegui fazer tocar a cada atualizacao da pagina uma música diferente... olhem em http://cybermids.phps.com.br/ na parte de Tutoriais
-
Olá, gostaria de saber se tem como eu colocar um bgsound para tocar várias músicas em seguencia e a cada vez que a página for aberta ele traga uma música aleatóriamente.