Ir para conteúdo
Fórum Script Brasil

1980coelho

Membros
  • Total de itens

    69
  • Registro em

  • Última visita

Tudo que 1980coelho postou

  1. 1980coelho

    Notícia não aparece

    você quer fazer a noticia de rolagem como no site mostrado? 1- coloque o codigo java script: <script language="javascript" CHARSET="ISO-8859-1"> // ScrollNews var scrollspeed=cache=1 function initialize(){ marqueeheight=document.all? parent.document.all.datamain.height : parent.document.getElementById("datamain").getAttribute("height") dataobj=document.all? document.all.datacontainer : document.getElementById("datacontainer") dataobj.style.top=5 thelength=dataobj.offsetHeight scrolltest() } function scrolltest(){ dataobj.style.top=parseInt(dataobj.style.top)-scrollspeed if (parseInt(dataobj.style.top)<thelength*(-1)) dataobj.style.top=5 setTimeout("scrolltest()",50) } window.onload=initialize </script> 2- coloque na pagina principal o iframe: <iframe id='datamain' src='scrollnews.asp' allowTransparency='true' width='300px' height='200px' marginwidth='10' marginheight='10' hspace='0' vspace='0' frameborder='0' scrolling='no'></iframe> 3- dentro da pagina chamada pelo iframe: <div id='datacontainer' onMouseover='scrollspeed=0' onMouseout='scrollspeed=cache' align='left'> <% Response.Write ("<font size='2'>") Response.Write ("<b> Title </b>") Response.Write ("</font>") Response.Write ("<br>") Response.Write ("<font size='2'>") Response.Write ("Info") Response.Write ("</font>") %> </div> ---
  2. problemas .. quando dou um loop ou paging em alguma sql se coloco o valor entre DIV ou TABLE ele me retorna a lista um em cima do outro como faco para listarem lado a lado? exemplo do cod. %> <div style='position:relative; border-style:solid;border-width:1px; width:100px; height:100px; z-index:999; margin-left:0px; margin-top:0px; margin-bottom:0px; margin-right:0px; background-color: #666666; text-align:center;'> <% Response.Write ("<font size='1'>") Response.Write ("<span style='font-weight:normal;'>") Response.write ("rs("Img")) Response.Write ("</span>") Response.Write ("</font>") %> </div> <% RESOLUCAO: usei <span> em vez do <div> ---
  3. sabe fazer isso? não estou conseguindo..
  4. como mover somente entre 10 registros em vez de dar o loop por todos registros? RESOLUCAO: "SELECT TOP 20 *" ---
  5. Estou querendo contar cliques em um link e pensei em fazer isso usando o comando OnClick.. consigo chamar um SQL por ele? como? RESOLUCAO: OnClick='CallFuntion()' ---
  6. 1980coelho

    Iframe auto size..

    achei esse script porem, ele não volta o tamanho da pagina se for menor, exemplo abro o primeiro link com altura de 600px, se abro o segundo de 100px a bara de rolagem ainda fica ate os 600px com o conteudo da sobra em branco e não se auto ajusta ao novo tamanho de 200px.. alguém pode ajudar? <script language="JavaScript"> function calcHeight() { //find the height of the internal page var the_height= document.getElementById('iframe_name').contentWindow. document.body.scrollHeight; //change the height of the iframe document.getElementById('iframe_name').height= the_height; } </script> OnLoad="calcHeight();"
  7. 1980coelho

    Iframe auto size..

    problema pagina com 3 colunas; A, B e C sendo B a central contendo um iframe como setar para ser automatico o tamanho do iframe de acordo com a pagina chamada?
  8. Pelo que eu entendi do que vi e do que tu falou eu usaria o q postei... lógico que pode ter falhas ... heheehhehehe.. mais vamos por partes... num primeiro ponto destaco que se existe uma navegação de registros existem vários registros, logo existe um próximo e um anterior. O AbsolutePage não tem nada a ver com chave primária... se você exibe 10 registros por página e registro de ID 100 vai estar na página 10 e não na 100, isso sem falar dos registros que já não fazem parte desse mundo... Se SisMunCod for uma categoria que pode contemplar mais de um registro, irá funcionar... se for o ID do registro ai vai ter que mudar... ai pode ser criada uma solução baseada em MoveFirst e MoveNext, Tava digitando aqui lembrei de uma outra solução no caso da navegação baseada no registro atual, você pode informar no link o id atual e uma informação de para onde ir (anterior ou proximo) e usar select top pegando o 1 registro antes ou depois do atual... me tira uma duvida os registros que você quer passar para o proximo ou voltar um, você quer movimentar pelo ID deles ou outro RS? se for pelo id e facil e so: <a href="main.asp?ID=<%= strID - 1 %>">Anterior</a>
  9. boa.. brigado.. entendi 10% rs..
  10. quais são os tipos e pra que situacao servem ??? não entendo muito sobre , sei que em algumas opcoes já vi usando 1,1 ou 3,3 exemplo: rs.Open strSQL, adoCon, 3, 3 ---
  11. Então... na verdade o mysql suporta sim, mais tu tem usar INNODB em vez de MYISAM Documentação constraints do mysql: http://dev.mysql.com/doc/refman/5.6/en/inn...onstraints.html Hmm...muito bom saber disso. Então problema resolvido. Agora vou criar relacionamento entre as tabs para rolar o delete em cascata. Aproveitando a deixa. Sabe dizer quais outros bancos (entre os mais utilizados), além do SQL e MySQL suportam relacionamentos? posta ae como resolveu.. quero entender como deletar varias entradas e retornar a msg se tiver erro.. abraco..
  12. problemas.. se tenho um pagesize = 10 , e um listbox com outras opcoes numericas ele muda tranquilo o problema e que se eu clicar no listbox opcao que mude para o pagesize = 50 depois se eu mandar a mesma listagem "LIKE 'A%'" por exemplo ele me volta a opcao inicial de pagesize= 10 e sai da opcao escolida.. exemplo: If Request.Form("txtNumPerPage") = "50" Then PageSize = 50 Else PageSize = 10 End If como fazer para resolver essa questao? to aqui quebrando a cabeca.. --- RESOLUCAO: depois de quebrar muito a cabeca consegui a solucao, criei um registro para o valor do PageSize na tabela e altero o valor passando por post em metodo de um ListBox ficou assim: If Request.Form("txtUpdateNumPerPage") <> "" Then strNumPerPage = Replace(Request.Form("txtNumPerPage"), "'", "''") strSQL = "UPDATE tblGamesListSettings SET tblGamesListSettings.numperpage='" & strNumPerPage & "' " adoCon2play.Execute(strSQL) %> <meta http-equiv="refresh" content="0;URL=<%= Request.ServerVariables("HTTP_REFERER") %>" > <% End If ---
  13. então facil.. so mandar deletar em todas as tabelas pelo ID, sem erro isso..
  14. me diz uma coisa, o nome dos dados a serem apagados e suas correspondentes tabelas e outra duvida o numero ID dos itens e o mesmo?
  15. estou tentando fazer uma lisagem de games ser listada por completa e ao clicar em um link com letra correspondente somente listar os games dessa letra.. consigo fazer a listagem mais não entendo porque não esta funcionando o click na letra a ser listada, segue o meu codigo: If Request.Querystring("mode") = "listgameslistselected" Then strID = Clng(Request.Querystring("ID")) '// Select A-Z strField = Request.QueryString("field") Select Case LCase(strField) Case "a%", "b%" strField = strField Case Else strField = "a%" End Select strSQL = "SELECT *" strSQL = strSQL & " FROM tblGamesList" strSQL = strSQL & " WHERE category =" & strID & " And gamename LIKE '" & strField & "' " Set rsGames = Server.CreateObject("ADODB.Recordset") rsGames.Open strSQL, adoCon2play, 3, 3 Response.Write ("<font size='1'>") Response.Write ("<a href='admin.asp?mode=listgameslistselected&ID=") Response.Write (rsCategory("ID")) Response.Write ("&field=b%'>") Response.Write ("B") Response.Write ("</a>") Response.Write ("</font>") --- Boa bareta tu e o cara.. rs.. SOLUCAO: foi realmente tirar o coringa da query e adicionei no select. strField = Request.QueryString("field") Select Case LCase(strField) Case "a", "b", "c" strField = strField Case Else strField = "f%" End Select strSQL = "SELECT * " strSQL = strSQL & " FROM tblGamesList " strSQL = strSQL & " WHERE category =" & strID & " And gamename LIKE '" & strField & "%' " Set rsGames = Server.CreateObject("ADODB.Recordset") rsGames.Open strSQL, adoCon2play, 3, 3 ---
  16. duvida como mando o valor selecionado do listbox para local do action sublinhado, achei que estava certo o codigo não entendi.. Response.Write ("<form name='myform' method='post' action='" & ScriptName & "?mode=listgameslistselected&ID=" & strID & "&NumPerPage=" & txtNumPerPage & "&page=1'>") Response.Write ("<b>Registos por página:</b></td><td><select name='txtNumPerPage' size='1'>") %> <option value='' Selected>selecione </option> <% Response.Write ("<option value='5'>5 </option>") Response.Write ("<option value='10'>10 </option>") Response.Write ("<option value='50'>50 </option>") Response.Write ("</select>") Response.Write ("<input type='image' src='images/submit.png' name='Submit' value='' alt=''>") Response.Write ("</form>") --- RESOLUCAO: deixei o codigo como esta em cima mesmo e criei uma variavel para o request; If Request.Form("txtNumPerPage") = "5" Then strNumPerPage = 5 Else strNumPerPage = 10 End If
  17. tenta algo assim: RS.AbsolutePage = "&rs("campo_pk")&"
  18. como fazer uma busca de registros que comecem por uma determinado nome ou letra exemplo "A" ??? a ideia seria buscar em uma listagem de 1.000 registros so os que comecem com a letra determinada..
  19. duvida.. como fazer para mostrar em qual pagina estou da paginacao e o total de paginas.. exemplo: 300 recordsets na tabela , a paginacao mostra 50 de cada vez, como fazer para mostrar os dados equivalentes a: Página 1 de 6 ?
  20. bom vamos ver se entendi e consigo ajudar, na linha: strSQL = "SELECT [iD], [category], [name], [info] FROM tblGames" você tem então que definir aonde sera sua paginacao no caso exemplo; strID = Clng(Request.Querystring("ID")) strSQL = "SELECT [iD], [category], [name], [info] FROM tblGames WHERE = ID =" & strID ou strSQL = "SELECT [iD], [category], [name], [info] FROM tblGames WHERE = ID =" & rs("NOME_DA_COLUNA") --- aguardo contato..
  21. descreve a estrutura da tabela aqui pra eu poder ajudar, como o nome da tabela e as celulas dela.. abraco.. pelo que entendi e bastante facil..
  22. SET categoria = CONEXAO.EXECUTE("SELECT * FROM produtos WHERE categoria = 2 AND ativo = 1 ORDER by id_produto DESC") cria um novo campo na tabela com a ordem numerica que você quer ou faz a ordem numerica sendo o nome das imagens e manda ordenar esse campo sendo o novo criado com o numero da ordem ou o do nome das imagens e modifica isso na linha citada acima: SET categoria = CONEXAO.EXECUTE("SELECT * FROM produtos WHERE categoria = 2 AND ativo = 1 ORDER by nome_da_coluna_a_ordenar ASC") abracos me diz se resolveu..
  23. ve se entendi e se esse codigo te resolve: <% Set adoCon = Server.CreateObject("ADODB.Connection") src = Server.MapPath("produtos.mdb") sConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & src adoCon.Open sConnStr strID = Clng(Request.Querystring("ID")) Set rs = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT [iD], [category], [name], [info] FROM tblGames" rs.open strSQL, adoCon, 3, 3 rs.PageSize = 1 If rs.EOF Then Mensagem = "Nenhum Registro Encontrado" Response.End Else If Request.QueryString("pagina")="" Then intpagina = 1 Else If cint(Request.QueryString("pagina"))<1 Then intpagina = 1 Else If cint(Request.QueryString("pagina"))>rs.PageCount Then intpagina = rs.PageCount Else intpagina = Request.QueryString("pagina") End If End If End If End If rs.AbsolutePage = intpagina intrec = 0 While intrec<rs.PageSize And NOT rs.EOF Response.Write ("<font size='3'>") Response.Write (rs("Name")) Response.Write ("<br>") Response.Write ("<font size='2'>") Response.Write (rs("Info")) Response.Write ("</font>") Response.Write ("<br>") rs.MoveNext intrec = intrec + 1 If rs.EOF Then response.write " " End If Wend If intpagina>1 Then %> <a href="_paging.asp?pagina=<%=intpagina-1%>">Anterior</a> <% End If If StrComp(intpagina,rsViewTop10game.PageCount)<>0 Then %> <a href="_paging.asp?pagina=<%=intpagina + 1%>">Próximo</a> <% End If Set rs = Nothing Set adoCon = Nothing %> se tiver duvidas fale.. abraco
  24. 1980coelho

    script pronto de ranking

    descreve como você quer fazer..
×
×
  • Criar Novo...