Ir para conteúdo
Fórum Script Brasil

Marcos-rj

Membros
  • Total de itens

    638
  • Registro em

  • Última visita

Tudo que Marcos-rj postou

  1. Marcos-rj

    Buscando Info No Bd Access

    "Conexao" não existe! por isso dá erro. coloca assim p/ ver se funciona: DSNtemp.execute(sql)
  2. Marcos-rj

    Buscando Info No Bd Access

    Tira esse "AbreConexao" e "Fechaconexao" do código que deve funcionar. você copiou este código de algum lugar? Não vejo referencia no codigo p/ "AbreConexao" e "Fechaconexao"
  3. Marcos-rj

    Pasta

    Set FSO = Server.CreateObject("Scripting.FileSystemObject") FSO.DeleteFolder "c:\pasta", FALSE Esta função irá apagar a pasta por completo, ou seja, todos arquivos e subpastas. O segundo parâmetro de valor booleano, indica se caso a pasta for apenas leitura, deverá ser apagada mesmo assim (TRUE), ou não deve ser apagada (FALSE)
  4. Marcos-rj

    Erro Em Chat Webcall

    Se você não sabe nada de ASP dificilmente vai fazer funcionar, tem que acertar as conexões com o banco de dados e outras coisas, por isso que fica a mensagem de aguarde na tela.
  5. Marcos-rj

    Função If , Ajuda.

    Tenta assim: if not rsLogin.eof then Login = rsLogin("login") Senha = rsLogin("senha") Session("login")=TRUE Session("senha")=TRUE if rsLogin("tipo")="ADM" then response.redirect = "adm_index.asp" elseif rsLogin("tipo")="USER" then response.redirect = "user_index.asp" else
  6. Marcos-rj

    Consulta

    Como assim???
  7. você sabe alguma coisa de ASP? Os dados vão vir de um banco de dados ou direto de um formulário?
  8. VERIFICANDO SE UM DOMÍNIO ESTÁ OU NÃO REGISTRADO Função para consulta de Domínio no sites ww.registro.br verifica.asp <% Option Explicit %> <% 'Elimina o armazenamento no Buffer Response.Buffer = true 'Função para consulta de Domínio no sites ww.registro.br Private Function VerificaDominio(Dominio) Dim ObjXML 'Variavel para o Objeto XMLHTTP Dim ResultadoConsulta 'Variavel para guardar retorno da consulta Dim Situacao ' verifica as condições básicas de sintaxe do domínio If Len(Dominio) < 9 THEN Situacao = "Erro ! O domínio deve possuir pelo menos dois caracteres" ElseIf Len(Dominio) > 32 THEN Situacao = "Erro ! O domínio deve possuir no máximo 26 caracteres" Else ' Cria a instância no objeto no servidor Set ObjXML = Server.CreateObject("Microsoft.XMLHTTP") ' Obtem a página do endereço base do registro.br ObjXML.Open "GET", "https://registro.br/cgi-bin/nicbr/whois?qr="&Dominio, False 'Envia a requisição e aguarda a Resposta ObjXML.Send 'Guarda o Retorno em uma variável para comparação posterior ResultadoConsulta = ObjXML.ResponseText 'Pesquisa por palavras chaves no texto para obter o resultado If instr(1,ResultadoConsulta,"inexistente") Then Situacao = "Disponível para Registro" ElseIf instr(1,ResultadoConsulta,"encontrada nenhuma") Then Situacao = "Erro ! Sintaxe Inválida " ElseIf instr(1,ResultadoConsulta,"Como fazer uma consulta") Then Situacao = "Erro ! Sintaxe Inválida " ElseIf instr(1,ResultadoConsulta,"Primeiro") Then Situacao = "Domínio de Primeiro Nível Inválido" Else Situacao = "Dominio já Registrado" End If End If 'retorna o resultado à função VerificaDominio = Situacao End Function %> <html> <head> <title>Verficando Domínios</title> </head> <body> <div align="center"> <center> <table border="0" cellpadding="0" cellspacing="0" width="439" style="border: 1 solid #000000"> <tr> <td bgcolor="#D4D4D4" align="center"><b><font size="2" face="Verdana">Digite o domínio com a extensão, e sem o www. </font></b></td> </tr> <tr> <td align="center"> <form method="GET" action="verifica.asp"> <p><br> <input type="text" name="Dominio" size="39" <%IF Request.QueryString("Dominio") <> "" THEN%> value=<%=Request.QueryString("Dominio")%> <%ELSE%>value="suaempresa.com.br"<%END IF%>>&nbsp; <input type="submit" value="Consultar" name="B1"></p> </form> </td> </tr> <tr> <td bgcolor="#D4D4D4" align="center" height="27"><font size="2" face="Verdana" color="#FF0000"><b><%IF Request.QueryString("Dominio") <> "" THEN%> <%=verificaDominio(Request.QueryString("Dominio"))%><%END IF%></b></font></td> </tr> </table> </center> </div> </body> </html>
  9. Com Ajax, eu uso esta função p/ resonver problemas com acentuação, vê se resolve o seu problema. Function BinaryToString(strBinary) Dim intCount, xBinaryToString xBinaryToString ="" For intCount = 1 to LenB(strBinary) xBinaryToString = xBinaryToString & chr(AscB(MidB(strBinary,intCount,1))) Next BinaryToString = xBinaryToString End Function Mailer.Body = Mensagem = BinaryToString(mensagem) se estiver usando algum "response.charset = "iso-8859-1" , tire p/ usar o código, senão dá erro!
  10. Marcos-rj

    Pegar Texto

    e quer pegar o abc?? Era isso mesmo Kuroi, valeu cara! :lol: podem fechar o topic
  11. Marcos-rj

    Pegar Texto

    Como faço p/ pegar um texto que sempre vai vir entre virgula(,) e traço(-) ? o texto que vem dopis do troço - eu consigo pegar, mas entre o traço e a virgula não!
  12. intrec=0 col = 2 response.write "<table border=0 cellpadding=0 cellspacing=8 width=750 align=center>" Do While not RS.EOF conta = intrec mod col if conta = 0 Then response.write "<tr><td width=250>" else response.write "<td width=250>" end if response.write "<img src=" & RS("foto") & " width=100 height=100><br>" & RS("credito") & " - " & RS("legenda") & "<BR><BR>" if conta = (col - 1) then response.Write "</td></tr>" else response.write "</td>" end if RS.MoveNext intrec=intrec+1 Loop
  13. Validação de cadastro: ASP & Access! Banco Access com tabela USUARIOS, campos NOMEUSER e SENHA! página HTML: <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>Login</title> <style> <!-- html, body { margin:0; padding:0; } fieldset { width:260px; margin:0 auto; padding:30px; } .texto { width:250px; border:1px solid gray; } .erro { width:250px; border:1px solid red; } .alerta2 { border:1px solid gray; } .alerta3 { border:1px solid gray; background-color:gray; } --> </style> <script src="ajax.js" type="text/javascript"></script> </head> <body> <fieldset> <legend>Usuario</legend> <form id="form1" name="form1" method="post" action="loginAJAX.asp"> <div id="alerta"></div> <label>Login:</label><br /> <input name="login" id="login" type="text" maxlength="30" class="texto" onblur="java script:envia('recebeAJAX.asp','POST',false);" /><br /> <labeL>Senha:</labeL><br /> <input name="senha" id="senha" type="password" maxlength="30" class="texto" /><br /> <input name="botao" type="submit" value="Enviar" id="Enviar"/> </form> </fieldset> </body> </html> ajax.js function ajax() { }; ajax.prototype.iniciar = function() { try{ this.xmlhttp = new XMLHttpRequest(); }catch(ee){ try{ this.xmlhttp = new ActiveXObject("Msxml2.XMLHTTP"); }catch(e){ try{ this.xmlhttp = new ActiveXObject("Microsoft.XMLHTTP"); }catch(E){ this.xmlhttp = false; } } } return true; } ajax.prototype.ocupado = function() { estadoAtual = this.xmlhttp.readyState; return (estadoAtual && (estadoAtual < 4)); } ajax.prototype.processa = function() { if (this.xmlhttp.readyState == 4 && this.xmlhttp.status == 200) { return true; } } ajax.prototype.enviar = function(url, metodo, modo) { if (!this.xmlhttp) { this.iniciar(); } if (!this.ocupado()) { if(metodo == "GET") { this.xmlhttp.open("GET", url, modo); this.xmlhttp.send(null); } else { this.xmlhttp.open("POST", url, modo); this.xmlhttp.setRequestHeader("Content-Type", "application/x-www-form-urlencoded; charset=UTF-8"); this.xmlhttp.setRequestHeader("Cache-Control", "no-store, no-cache, must-revalidate"); this.xmlhttp.setRequestHeader("Cache-Control", "post-check=0, pre-check=0"); this.xmlhttp.setRequestHeader("Pragma", "no-cache"); this.xmlhttp.send(url); } if (this.processa) { return unescape(this.xmlhttp.responseText.replace(/\+/g," ")); } } return false; } function envia(url, metodo, modo){ var login = document.getElementById('form1').login.value; remoto = new ajax(); xmlhttp = remoto.enviar(url + "?login=" + login, metodo, modo); if(xmlhttp) { document.getElementById('login').className = 'erro'; document.getElementById('alerta').className = 'alerta2'; document.getElementById('login').className = 'alerta3'; document.getElementById("alerta").innerHTML = 'Esse usuário já está cadastrado'; //alert("Usuario já cadastrado na base de dados!"); document.getElementById("Enviar").disabled = true; } else { document.getElementById('login').className = 'texto'; document.getElementById("Enviar").disabled = false; document.getElementById('alerta').className = ''; document.getElementById("alerta").innerHTML = ''; } } recebeAJAX.asp <% Texto = request("login") DB = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\intranet\internet\comissao\index\mista\orca\Teste\Teste.mdb" SQL = "SELECT nomeuser from usuarios WHERE nomeuser= '" & Texto & "'" Set Rs = Server.CreateObject("ADODB.Recordset") Rs.CursorLocation = 3 Rs.Open SQL, DB if Rs.eof <> True then response.Write false End if %> No momento do cadastro, ao sair do campo LOGIN, faz-se uma pesquisa na base de dados e retorna se existe ou não já aquele nome cadastrado!
  14. Isso se chama MetaTag. Um site que fiz p/ um cliente também aparece, busca lá no google por: CAACBRASIL, aparece o nome com link e a descrição. Ah, e não é pago!
  15. Marcos-rj

    Bolsa/dolar/poupança

    tenta neste site: http://www.guianews.com.br/utilizando.asp
  16. Marcos-rj

    Pasta

    você pode criar pastas com FSO. Set fso = CreateObject("Scripting.FileSystemObject")fso.CreateFolder("c:\pasta")
  17. Marcos-rj

    Email, Com Cadastro

    Usa vários, cdonts, aspmail e outros, tenho cliente com hospedagem lá.
  18. Eu já tive este problema também, mas era por causa da versão eu acho do componente instalada no servidor, não aceitava acentuação nenhuma.
  19. Esta página testeguestbook.asp está dentro da pasta Connections?
  20. Marcos-rj

    Email, Com Cadastro

    Isso é simples, depois do Insert na tabela, você monta o script de envio do email, qual o seu componente?
  21. Marcos-rj

    Banner

    valeu Fartel, acho que era isso mesmo. no arquivo ok.asp onde tem a imagem coloquei assim: document.write('<img src=<%=banner("banner")%> border=0%>'); ai funcionou!!!! valeu!
  22. Marcos-rj

    Banner

    com iframe sei que roda, mas não queria usar, mas está beleza, to com outra idéia aqui, vou desenvolve-la melhor.
  23. Marcos-rj

    Banner

    Pelá url que postei ele exibe todos os banner da categoria topo aleatoriamente, quando na url es ?B=1 por exemplo ai exibe o banner especifico. Pode colar no seu navegador a url que passei que vai abrir o banner, tem 2 banners cadastrados nesta categoria. Mas se coloco na tag script não mostra a imagem!
  24. Marcos-rj

    Banner

    To criando um sistema de banner, está quase pronto. criei a pagina onde gera o código p/ exibir o banner, que era para ser assim: onde eu colocar o codigo abaixo exibir o banner de acordo com o código. <script src="http://www.pscifrao.com.br/sistemas/banner/ok.asp?T=468x60&C=Topo"></script> Mas não está exibindo nada! Sempre que atualizo a página o contador de exibiçoes é incrementado, mas não exibe a imagem. Se eu digitar este endereço direto no navegador a imagem aparece e funciona normal, se coloco na tag script não exibe a imagem! alguém sabe dizer por que??
  25. Olá Cosme, O que você quer deve ser + ou - isso aqui. http://www.pscifrao.com.br/busca_titulo.asp segue o codigo do exemplo: <html> <%@ Language=VBScript %> <head> <title>Busca de Título.</title> </head> <body> <table border="1" width="57%" id="table1"> <tr> <td> <form method="POST" action="busca_titulo.asp"> <table border="0" width="600" id="table2"> <tr> <td width="156"><b><font face="Verdana">Título:</font></b></td> <td width="428"><input type="text" name="titulo" size="32"> <input type="submit" value="buscar"></td> </tr> </table> <input type="hidden" name="enviado" value="sim"> </form> </td> </tr> <tr> <td>&nbsp;<font face="Verdana"><%if request.form("enviado") = "sim" then url = "http://www.tre-rj.gov.br/tituloeleitor/localvotacao/Resultado_Local.asp?titulo='"&request.form("titulo") Set xmlhttp = Server.CreateObject("Microsoft.XMLHTTP") xmlhttp.Open "GET",url, False xmlhttp.setRequestHeader "ContentType","text/html" xmlhttp.Send() Response.Write xmlhttp.ResponseText end if %></font></td> </tr> </table> </body> </html>
×
×
  • Criar Novo...