Ir para conteúdo
Fórum Script Brasil

mkboy

Membros
  • Total de itens

    216
  • Registro em

  • Última visita

Tudo que mkboy postou

  1. EU to fazendo um select que lista todos as consultas, e junta o nome do paciente que esta em outra tabela: Perfeito, ta funcionado. Agora eu to fazendo um select que lista de acordo com o mês: Só que eu só to conseguindo listar os dados da tabela tb_consultas! Como eu faço, neste segundo select para listar os dados tambem da tabela tb_pacientes como no primeiro! ?
  2. mkboy

    Analizando Um Código!

    No meu contador de visualizações eu preciso fazer uma verificação de ip do usuario, para ele não ficar dando reload e aumentando as visitas. Peguei este codigo pronto de uma enquete, mas num entendi, vamos explora-lo? <% 'VERIFICA O IP PARA VER SE O USUÁRIO já VOTOU ip = Request.ServerVariables("REMOTE_ADDR") data = date hora = time SQLx = "SELECT horario as thora,MAX(datavoto) as tdata FROM tvoto WHERE ip = '"&ip&"' " SQLx = SQLx &"GROUP BY horario HAVING horario = " SQLx = SQLx &"(SELECT MAX(horario) FROM tvoto WHERE datavoto in " SQLx = SQLx &"(SELECT max(datavoto) as tdata FROM tvoto))" Set rsx = db.execute(SQLx) if not rsx.eof then tdata = rsx("tdata") thora = rsx("thora") if trim(data) = trim(tdata) then if (horaatual < horario + rsadm("tempoespera")) then Response.redirect("resultado.asp?codperg="&codperg&"") 'REDIRECIONAMENTO end if end if end if %> Tem alguma forma mais simples?
  3. mkboy

    Login

    Por exemplo, quando voce faz o login no Forum, você logo tem acesso a seu perfil, ou seja, editar o que já fez, excluir, enfim. Eu to fazendo no meu site da seguinte forma: 01. Eu tenho um formulário de cadastro, que o usuario grava no banco de dados seus dados, como nome, senha, email e um b_id autonumeração. 02. Ao efeturar o login eu direciono eu gravo alguns cookies, como o nome e a senha dele, e já mandou ele direto para a pagina de logado. 03. Depos quando ele entra na pagina restrita eu verifico se o cookie dele ta vazio, se estiver eu mostro os campos para login, se não tiverem eu já redireciono ele direto para pagina restrita, 04. Com esse login e os cookies a unica coisa que faço é: - Popular o cookie pois coloco nas paginas verificacoes com IF, se o cookie na vazio ou se ta cheio. - Restringir a entrada, verificando no banco de dados o login e a senha. Mas eu quero fazer com estes dados um login que quando logado exiba por exemplo os registros que ele postou, permitindo ele editar o que ele postou, um login individual para usuario. Como faço isso!?
  4. mkboy

    Select

    Talves se conseguir fazer assim, acho que funciona: campo_cidade = são Paulo campo_cod_cidade = 1 campo_cidade = Rio de Janeiro campo_cod_cidade = 2 select * from campo_cidade = campo_cod_cidade = " & 2 & "" O que acha?
  5. mkboy

    Votos

    Certo, é isso que eu não sei como se faz: Verificar se o cara passou a 10 minutos, 01 hora, ou 24 horas tendo o IP dele. Num sei qual a lógica, qual o codigo, já tentei mas não consegui. E fazer o update e somar + 1 ou o valor da nota +4 , + 5... Podem me ajudar?
  6. mkboy

    Votos

    Tenho uma galeria de fotos, que estão na tb_fotos. Na tb_fotos eu tenho varias colunas de descrição e a b_id auto numérica. Então eu quero colocar um link para poder votar nas fotos, assim eu referencio os votos ao b_id. Quando eu abrir a foto, eu coloco um link para abrir uma pagina para votação, tipo: votos.asp?id=<%=rs("b_id")%> E nesta página eu terei 05 links, notas de 01 a 05 Quando eu clicar no 4 ele faz um insert na tabela votos com where no b_id, inserindo o numero 4 E a cada voto eu faço um novo insert E para contar os votos? É assim que faz? Podem me dar dicas?
  7. mkboy

    Visualizações

    Eu fiz no inicio da minha página um codigo similar a este: SQL = "INSERT into tb_views where b_id = "& Request.QueryString("id") Cada vez que a página é carregada eu faço um incluo mais um registro no banco, populando muito o mesmo. E se o usuário ficar dando reload ou F5 ele aumenta consideravelmente seus views. O que eu quero: Fazer um update, e a cada visita eu alterar o mesmo registro, somando mais um, assim o banco fica mais vazio e consequentemente mais agil. beleza, mais eu não sei como somar mais um, podem me ajudar? Mas isso não impede que o usuário aumente suas visitas com reload, então eu precisava gravar o IP do usuario. E fazer com que se ele visitou ele só atualize o registro depois de uns 10 minutos. Acho que assim fica legal, só que só sei fazer na teoria, pois na pratica não consegui. Podem me dar dicas, exemplos de código se possível? Agradeço desde já!
  8. No seu campo form da busca, coloque um campo invisivel. <input type="hidden" name="codigo" value="01"> E abaixo do codigo faça: <% if Request("codigo") ="01" then %> Aqui você coloca o resultado da busca. <% end if %> ok?
  9. mkboy

    Asp No Xp

    Bem lembrado! Eu apaguei meu XP Home Origial e enfiei o 2000 Pró Genéric nele! É outra conversa!
  10. mkboy

    Como Funciona O Asp?

    Faça a conexão com o banco, assim você faz o upload do banco e funciona normal sem necessidade de DSN. Veja: <% url_conexao = Server.MapPath("seubanco.mdb") set conexao = Server.CreateObject("ADODB.Connection") set rs = Server.CreateObject("ADODB.Recordset") conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao %>
  11. mkboy

    Asp No Xp

    você precisa instalar o IIS, depois você cria uma pasta virtual e colocar seus arquivos asp e executa tipo: http://localhost/suapasta/arquivo.asp Veja que no forum tem info a respeito passo a passo, mas se tiver duvidas fala ae que ajudamos!
  12. mkboy

    Select

    Tenho duas tabelas no meu banco de dados: (banco mysql) Então montei a seguinte tabela: Para exibir a quantidade de Categorias (5) eu faço um select count na tabela tb_categorias. Para exibir a quantidade de Subcategorias (2) eu faço um select count na tabela tb_subcategorias. O select count que estou fazendo são estes: MyQuery = "SELECT COUNT(*) FROM tb_categorias" MyQuery = "SELECT COUNT(*) FROM tb_subcategorias" E para listar as categorias eu faço um select na linha inteira e um loop: <% do while not RS1.EOF %> <TR bgcolor="#FFFFFF"> <TD> <img src="imagens/space.gif" width="10" height="10"><strong><font color="#006699" size="1" face="Verdana, Arial, Helvetica, sans-serif"> <%=rs1("b_categorias")%></font></strong> </TD> <TD><img src="imagens/space.gif" width="10" height="10"><font color="#006699" size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong> </strong></font></TD> <TD>&nbsp;</TD> <TD>&nbsp;</TD> <TD><div align="center"><img src="imagens/lapis.gif" width="15" height="15"></div></TD> <TD><div align="center"><img src="imagens/lixo.gif" width="15" height="15"></div></TD> </TR> <% RS1.MOVENEXT LOOP %> Agora eu quero exibir no espaço em branco a quantidade de subcategoria na respectiva categoria. Por exemplo, se eu criei duas subcategorias para automoveis, eu quero exibir em frente a categoria automoveis, o numero 2, referente a quantidade de subs naquela categoria. Como faço este select? Tem problema pois eu fiz um loop na linha inteira?
  13. mkboy

    Instalando O Mysql

    Estou tentando instalar o MySQL no meu PC. Tenho Win 2000 PRO Serv Pack 4 Primeiro passo, foi instalar o My-SQL Front, normal. Agora estou tentando instalar o MySQL 4 Cliquei na opção setup E aparece esta janela, e independente da opção clicada, nada acontece! O que devo fazer? Não consigo instalar o MySQL!!!!
  14. mkboy

    Exibir Categorias.....

    Eu fiz uma pagina para cadastrar categoria e subcategoria. Na tabela categoria eu tenho: b_id b_categoria Na tabela subcategoria eu tenho: b_id b_categoria (aqui tem o b_id da categoria) b_subcategoria Eu incluo opções e seleciono se vai para categoria ou para subcategoria. Na tabela do registro eu tenho b_id b_titulo b_categoria ' Aqui eu coloco o id da tb_categoria b_subcategoria ' Aqui eu coloco o id da tb_subcategoria E mando pelo link do menu de categorias o id do registro. E nesta página tenho dois selects: O primeiro: Verifico se o registro cujo id está na querystring tem alguma subcateria, se tive eu imprimo as subcategorias O Segundo Verifico o registro pelo id da query, assim eu imprimo todos produtos daquela categoria O problema é que to imprimindo as subcategorias e abaixo os registros da categoria toda Eu quero verificar se tiver alguma subcategoria que seja impresso apenas as subcategorias, e se não tiver nenhuma subcategoria, que seja listado apenas os registros da categoria. Como faço? Ps. Espero ter conseguido me expressar
  15. mkboy

    Subcategoria

    Eu criei uma tabela chamada TB_CATEGORIAS e nesta tabela tem dois campos. b_id b_categoria Ao cadastrar um produto eu coloco tb o b_id na tabela produtos. Quando eu clico em uma categoria eu envio pela query o b_id e na pagina que vai listar os produtos eu faço um select na tabela produtos com um where no id que veio pela query, exibindo desta forma somente o produto cadastrado na respectiva categoria. Só que eu quero criar mais um nivel de categoria e quando clicar na categoria eu antes verificar se tem alguma subcategoria para aquela categoria, se tiver ele exibe a subcategoria, se não tiver exibe os produtos referentes categoria. A tabela para subcategoria eu criei assim: TB_SUBCATEGORIAS com tres campos: b_id b_categoria b_subcategoria Então eu faço um insert no banco e por um combo eu seleciono a categoria que grava o b_id da categoria na tabela TB_SUBCATEGORIAS. Agora eu to com duvidas na hora de listar na pagina a subcategoria. Pois na pagina produtos.asp eu já listo os produtos com o id que veio da categoria, sendo assim se eu clico em peças listo abaixo todas as opções cadastradas com o ID da categoria peças. Mas eu quero que verifique se tiver subcategorias para a categoria clicada imprimir na tela só as subcategorias, e se não tiver sub, listar os produtos da categoria. Como faço? Um select na tb_subcategoria com where comparando o campo b_categoria com o ID da querystring Se sub tiver vazia então lista a categoria! E faria um if? de que forma?
  16. mkboy

    Select Case

    Estou fazendo uma busca, onde tenho diversos campos CHECK BOX, e quero que ao selecionar mais de um campo, a consulta seja realizada nos respectivos campos. Por hora estou conseguindo fazer a consulta no campo selecionado, mas não em mais de um campo. Estou fazendo assim: Agora eu verifico qual ckeckbox foi selecionado pegando o valor da querystring e verificando no select abaixo: /busca.asp?query=a&B1=Buscar&consulta=resultado&field=1 Quando vai um registro na query ele executa o case normal e se eu mandar varios valores busca.asp?query=a&B1=Buscar&consulta=resultado&field=1&field=2&field=3 Ele da erro, então eu gostaria de saber como fazer o select case para que pesquise quando vier mais de um valor pela query
  17. mkboy

    Buscar Em Várias Tabelas

    Só vejo que num to logado depois que montei a mensagen, hehe, ae da priguiça, hehe Então, consegui fazer a busca em uma tabela, agora to configurando as outras, mas to fazendo com select case!
  18. mkboy

    Buscar Em Várias Tabelas

    É, eu achava que era simples, mas na hora de aplicar, apanhei, hehe! Veja, se é assim! É assim que eu faço? Esse select num fui eu quem fez, e não to entendendo essa linha: buscando.Open strSQL,DB,3,1
  19. Tenho duas tabelas no meu banco de dados. E quero fazer um sistema de busca que eu possa entrar com a palavra chave e selecionar em qual campo eu quero fazer a busca, sendo que os campos estao distribuidos em duas tabelas, a tb_clientes e a tb_dominios O formulario que montei de busca ficou assim: Com o código desta forma:(tirei uns campos, tabela e formatacao para ficar mais legivel) Agora eu não sei o que fazer na action! Como eu faço para achar uma palavra nestas tabelas de acordo com a palavra chave e o campo selecionado no check. Como façO!?
  20. mkboy

    É Correto?

    Tipo, se for Record set diferente, tipo: rs1, rs2, rs2... Tenho que destrui-lo antres de abrir o outro, e se for tudo rs1 eu destruo só no final quando não for usar mais, é isso?
  21. mkboy

    É Correto?

    Fazer assim: A conexão eu abro com um include no topo. Depois faço um select: <% sql9 = "select * from tb_img" set rs9 = conexao.execute(sql9) %> Coloco o conteudo a printar e fecho assim: <% conn.close Set Conn = Nothing Set RS9 = Nothing %> Ta certo?
  22. mkboy

    Carrinho De Compras:

    Qual melhor opção? Cookie ou Session Quais as vantagens e quais as desvantagens?
  23. mkboy

    Proteção Do Código Asp

    Putz, vejo esse problema. Pois se um cara pede um orçamento, você passa mil reais, depois ele pega seu codigo e sai vendendo pros amigos! Hoje eu já to avisando meus clientes, que o site é uma aplicação apenas e que o mesmo não tem acesso ao ftp, se quiser acesso ao ftp é mais caro! Tava pensando em fazer algo do tipo: Colocar o dominio no banco, e comparar, se for o dominio atual roda normal, se não for vai para pagina de erro e me envia um email com um request do dominio atual, assim eu acho o cara, vou tentar fazer isso em breve so que tentar camuflar ao maximo o codigo. Ainda não fiz, mas esses dias falei que faço isso a um cliente, só pra ele ficar com medo, e tal. Por isso já deixo claro, eu to vendendo uma aplicação, o codigo só pode ser usado no determinado servifdor. Putz, tenho me preocupado muito com isso!
  24. mkboy

    Listar Randomicamente...

    Esse randon eu consegui fazer funcionar ontem, faz tempo que tava tentando fazer um, vou compartilha-lo prontinho com vc: <% ComandoSQL = "SELECT COUNT(campo) AS total FROM tabela" Set bd = Conexao.Execute(ComandoSQL) randomize() peso = Int(bd("total") *Rnd) + 1 ComandoSQL = "SELECT TOP " & peso & " * FROM tabela" Set bd = Conexao.Execute(ComandoSQL) bd.Move peso - 1 %>
×
×
  • Criar Novo...