
Marcos-rj
Membros-
Total de itens
638 -
Registro em
-
Última visita
Tudo que Marcos-rj postou
-
"Conexao" não existe! por isso dá erro. coloca assim p/ ver se funciona: DSNtemp.execute(sql)
-
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"
-
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)
-
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.
-
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
-
você sabe alguma coisa de ASP? Os dados vão vir de um banco de dados ou direto de um formulário?
-
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%>> <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>
-
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!
-
e quer pegar o abc?? Era isso mesmo Kuroi, valeu cara! :lol: podem fechar o topic
-
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!
-
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
-
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!
-
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!
-
tenta neste site: http://www.guianews.com.br/utilizando.asp
-
você pode criar pastas com FSO. Set fso = CreateObject("Scripting.FileSystemObject")fso.CreateFolder("c:\pasta")
-
Usa vários, cdonts, aspmail e outros, tenho cliente com hospedagem lá.
-
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.
-
Esta página testeguestbook.asp está dentro da pasta Connections?
-
Isso é simples, depois do Insert na tabela, você monta o script de envio do email, qual o seu componente?
-
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!
-
com iframe sei que roda, mas não queria usar, mas está beleza, to com outra idéia aqui, vou desenvolve-la melhor.
-
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!
-
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??
-
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> <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>