Jump to content
Fórum Script Brasil

igadino

Membros
  • Posts

    35
  • Joined

  • Last visited

About igadino

igadino's Achievements

0

Reputation

  1. Boa Noite Pessoal estou tentando impedir que o usuário use a tecla do Windows do teclado mais não estou conseguindo, alguém pode me dar uma luz Private Const Win_LWIN As Integer = &H5B Private Const Win_RWIN As Integer = &H5C Private Sub Informaçoes_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown If e.KeyCode = Win_LWIN OrElse e.KeyCode = Win_RWIN Then e.Handled = False End If End Sub
  2. Pessoal alguém sabe como eu faço para destravar o form porque quando o timer esta rodando o forme fica travado. estou usando o visual studio 2012 Private Sub PCarregadados() Dim repete As Boolean = True Using con As OleDbConnection = GetConnection() con.Open() Dim sql As String = "" sql = "SELECT * FROM tblImagensPDV" Dim conec As OleDbCommand conec = New OleDbCommand(sql, con) Dim adapter As OleDbDataAdapter = New OleDbDataAdapter(conec) Dim ds As DataSet = New DataSet() Try adapter.Fill(ds) Dim x As Integer = 0 Do While (repete = True) Dim img As String = ds.Tables(0).Rows(x).Item("enderecoimagem").ToString ImgSalvar.Image = System.Drawing.Bitmap.FromFile(img) Me.Refresh() System.Threading.Thread.Sleep(5000) x += 1 If x > ds.Tables(0).Rows.Count - 1 Then x = 0 End If Loop con.Close() Catch ex As Exception ' MsgBox("Erro: " & ex.Message) End Try End Using End Sub
  3. Estou fazendo um sisteminha e preciso gerar serial para ativar o sistema e somente o serial gerado por este código sera aceito no sistema.no sistema tem como validar os seriais gerado por este código? Dim n As Integer Dim Keygen(26) As Long Dim Newkey, Finalkey As String Randomize For n = 1 To 26 Keygen(n) = Int(Rnd * 26) + 1 Keygen(n) = Keygen(n) + 64 Newkey = Chr$(Keygen(n)) Finalkey = Finalkey + Newkey Next Texto3 = Left(Finalkey, 5) Texto4 = Mid(Finalkey, 6, 5) Texto5 = Mid(Finalkey, 11, 5) Texto6 = Mid(Finalkey, 17, 5) Texto7 = Mid(Finalkey, 19, 5) Texto8 = Mid(Finalkey, 21, 5)
  4. igadino

    Atualizar dados

    ola tenho uma planilha no excell e quando clicar para atualizar a planilha tos que tem sim aparecerá 0 na coluna Estado confornme abaixo usuário e Férias Eestado Pedro sim 0 Joao não Maria não Lima sim 0 Jaquelina não Public contaLinha As String Sub Lista() On Error Resume Next contaLinha = 3 Do Until TabBusca.Range("C" & contaLinha).Value = "sim" If Sheets("TabBusca").Range("C" & contaLinha) = "sim" Then ' Range("G13") = "30" '.Select Range("C" & contaLinha + 1).Select With Selection.Interior .ColorIndex = 14 End With Exit Do Else ' Range("D26") = "26" '.Select ' Range("D26").Select ' With Selection.Interior ' .ColorIndex = 15 ' End With contaLinha = contaLinha1 End If Loop End Sub
  5. ninguém ainda conseguiu? estou no aguardo.
  6. Não funcionou ele so funciona se marcar um checkbox. os checkbox tem que os abaixo, porque assim fica melhor para adicionar mais estensões <input name="vai" type="checkbox" id="vai" value=".com.br"> <input name="vai" type="checkbox" id="vai" value=".com"> <input name="vai" type="checkbox" id="vai" value=".org"> <input name="vai" type="checkbox" id="vai" value=".net"> Quanto você que? Ainda estou no aguarde.... Valeu eu conseguir,
  7. Estou falando dos valores dos checkbox é eu que vou definir os valores são esses <input name="vai" type="checkbox" id="vai" value=".com.br"> <input name="vai" type="checkbox" id="vai" value=".com"> <input name="vai" type="checkbox" id="vai" value=".org"> <input name="vai" type="checkbox" id="vai" value=".net"> e outros mais
  8. Assim tambem não funciona
  9. Pessoal como faço para marcar varios checkbox e depois do reflesh da pagina os checkbox que foram marcado continue marcado, se eu marca so um ele funciona mais se marcar dois ou tres já não funciona alguém tem uma ideia de como fazer isso. <html> <head> <title>Untitled Document</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body> <form name="form1" method="post" action="check2.asp"> <input name="vai" type="checkbox" id="vai" value=".com.br" <% If request("vai")=".com.br" Then Response.Write("checked")%>> <br> <input name="vai" type="checkbox" id="vai" value=".com" <% If request("vai")=".com" Then Response.Write("checked")%>> <br> <input name="vai" type="checkbox" id="vai" value=".net" <% If request("vai")=".net" Then Response.Write("checked")%>> <br> <input name="vai" type="checkbox" id="vai" value=".org" <% If request("vai")=".org" Then Response.Write("checked")%>> <br> <input type="submit" name="Submit" value="Submit"> </form> </body> </html>
  10. já tentei faer mais não deu certo.
  11. Pessoal estou tentando melhorar este script para verificar se o dominio esta ou não registrado se ele esta registrado me mostra as informações do registro ok O problema e que quando eu marco so os dominio internacional ele funciona perfeitamente já os dominio nacionais não esta funcionado. se eu conseguir enviar os checkbox com os valores ".com.br,.net.br,.adv.br,.org.br,.tv.br,.gov.br,.adm.br" para ser pesquisado no registro br e os checkbox com os valores ".com,.net,.org,.info" Internic Exemplo: Se for escolhido so dominio internacional ele tem que fazer a consulta só na linha azul e se for escolhido somente dominio nacional tem que fazer consulta só na linha vermelha e se for escolhido nacional e internacional tem que fazer consulta nas duas linha azul e vermelha If InStr(ext_perm, ",") > 0 Then xmlhttp.Open "GET", "http://reports.internic.net/cgi/whois?whois_nic=" &Replace(endereco & dominio, " .",".")& "&type=domain", False xmlhttp.send Else xmlhttp.Open "POST", "https://registro.br/cgi-bin/whois/#lresp", False xmlhttp.send("qr="&Replace(endereco & dominio, " .",".")) End If Olha eu conseguir fazer este Verifica dominios quero adptar com os checkbox para depois disponibilizar. <% Server.ScriptTimeout = 99999999 Dim dominio Dim endereco Dim xmlhttp Dim Resultado Dim arrayDominios Dim verificarDominios Dim contador Dim detalhe Dim dominiosInternic Dim dominiosInt Dim dominiosRegistroBr If request("endereco")<>"" then endereco= Request("endereco") dominio=Request("dominio") dominiosRegistroBr = ""&dominio&"" verificarDominios = Replace(dominio, ",", ",") arrayDominios = Split(verificarDominios, ",") Response.ContentType = "text/html" For contador = Lbound(arrayDominios) To Ubound(arrayDominios) dominio = arrayDominios(contador) detalhe = "" If dominio <> "" Then Set xmlhttp = Server.CreateObject("Microsoft.XMLHTTP") If InStr(1, dominiosRegistroBr, ",") > 0 Then xmlhttp.Open "GET", "http://reports.internic.net/cgi/whois?whois_nic="&Replace(endereco & dominio, " .",".")& "&type=domain", False xmlhttp.send Else xmlhttp.Open "POST", "https://registro.br/cgi-bin/whois/#lresp", False xmlhttp.send("qr=" &Replace(endereco & dominio, " .",".")) End If Resultado = BinaryToString(xmlhttp.responseBody) If InStr(1, dominiosRegistroBr, ",") > 0 Then If InStr(1, Resultado, "No match for domain", vbTextCompare) > 0 Or InStr(1, Resultado, "No match for registrar", vbTextCompare) > 0 or not InStr(1, Resultado, "Domain Name", vbTextCompare) > 0 Or InStr(1, Resultado, "No match for registrar", vbTextCompare) > 0 Then If saida <> "" Then saida = saida & "" saida = saida & "<tr><td width=""3""><input type=""checkbox"" value=""" &Replace(endereco & dominio, " .",".")& """ /></td><td width=""85%""><strong>" &Replace(endereco & dominio, " .",".")& "</strong></td><td width=""15%""><img src=""../images/disponivel.png"" align=""absmiddle"" border=""0"" width=""10"" height=""10""> <font color=""blue"">Disponivel</font></td></tr>" Else If saida <> "" Then saida = saida & "" saida = saida & "<tr><td colspan=""3""><div style=""display:none;"" id=""d"&varCont&"_mais_menos""></div><div style=""display:none;"" id=""periodo_"&varCont&"""><table width=""100%""><tr><td>"& detalhe & "</td></tr></table></div></td></tr>" saida = saida & "<tr><td width=""3""><input type=""checkbox"" value=""" &Replace(endereco & dominio, " .",".")& """ disabled/></td><td width=""85%""><a href=""http://www."&Replace(endereco & dominio, " .",".")&""" target=""_blank""><font color=""red"">" &Replace(endereco & dominio, " .",".")& "</font></a></span></td><td width=""15%""><a class=""rteimage"" onclick=""window.open('Checker_detalhes.asp?dominio="&endereco&"&pont="&Replace(dominio, " .",".")&"','','scrollbars=yes,top=10,left=10,width=300,height=350');"" class=""hiperlink""><img src=""../images/mais.gif"" name=""d"&varCont&"_mais_menos"" align=""absmiddle"" border=""0"" width=""10"" height=""10""> <font color=""red"">Indisponivel</font></a></td></tr>" If InStr(1, Resultado, "NOT AUTHORITATIVE", vbTextCompare) > 0 and InStr(1, Resultado, "No match for domain", vbTextCompare) > 0 and InStr(1, Resultado, "No match for registrar", vbTextCompare) > 0 Then ElseIf InStr(1, Resultado, "Domain Name:", vbTextCompare) > 0 or InStr(1, Resultado, "Name Server:", vbTextCompare) > 0 Then posInicioDetalhe = InStr(1, Resultado, "Domain Name:", vbTextCompare) If posInicioDetalhe > 0 Then posFimDetalhe = InStr(1, Mid(Resultado, posInicioDetalhe), "Expiration Date", vbTextCompare) + 29 End If If posFimDetalhe > 0 or posInicioDetalhe > 0 Then detalhe = Mid(Resultado, posInicioDetalhe, posFimDetalhe) detalhe = Replace(detalhe, "Registrar:", "<br />Registrar:") detalhe = Replace(detalhe, "Whois Server:", "<br />Whois Server:") detalhe = Replace(detalhe, "URL:", "<br />URL:") detalhe = Replace(detalhe, "Name Server:", "<br />Name Server:") detalhe = Replace(detalhe, "Status:", "<br /> Status:") detalhe = Replace(detalhe, "Updated Date:", "<br />Updated Date:") detalhe = Replace(detalhe, "Creation Date:", "<br />Creation Date:") detalhe = Replace(detalhe, "Expiration Date:", "<br />Expiration Date:") end if end if end if '============================== else If InStr(1, Resultado, "Domínio inexistente", vbTextCompare) > 0 Then If saida <> "" Then saida = saida & "" saida = saida & "<tr><td width=""3""><input type=""checkbox"" value=""" &Replace(endereco & dominio, " .",".")& """ /></td><td width=""75%""><strong>" &Replace(endereco & dominio, " .",".")& "</strong></td><td width=""15%""><img src=""../images/disponivel.png"" align=""absmiddle"" border=""0"" width=""10"" height=""10""> <font color=""blue"">Disponivel</font></td></tr>" ElseIf InStr(1, Resultado, "Sintaxe inválida", vbTextCompare) > 0 Or InStr(1, Resultado, "ASN inexistente", vbTextCompare) > 0 Then If saida <> "" Then saida = saida & "" saida = saida & "<tr><td width=""3""></td><td><span style=""color:red;"">" &Replace(endereco & dominio, " .",".")& "</span></td><td>URL invalida</td></tr>" ElseIf InStr(1, Resultado, "Consulta inválida", vbTextCompare) > 0 Then If saida <> "" Then saida = saida & "" saida = saida & "<tr><td width=""3""></td><td><span style=""color:red;"">" &Replace(endereco & dominio, " .",".")& "</span></td><td>Consulta invalida</td></tr>" ElseIf InStr(1, Resultado, "ID entidade:", vbTextCompare) > 0 And InStr(1, Resultado, "servidor DNS:", vbTextCompare) > 0 Then posInicioDetalhe = InStr(1, Resultado, "domínio:", vbTextCompare) If posInicioDetalhe > 0 Then posFimDetalhe = InStrRev(Mid(Resultado, posInicioDetalhe), "alterado") + 25 End If If posFimDetalhe > 0 And posInicioDetalhe > 0 Then detalhe = Mid(Resultado, posInicioDetalhe, posFimDetalhe) ' detalhe = limparHtml(detalhe) detalhe = Replace(detalhe, "entidade:", "<br />entidade:", 1, -1, 1) detalhe = Replace(detalhe, "documento:", "<br />documento:", 1, -1, 1) detalhe = Replace(detalhe, "responsável:", "<br />responsável:", 1, -1, 1) detalhe = Replace(detalhe, "país:", "<br />país:", 1, -1, 1) detalhe = Replace(detalhe, "ID entidade:", "<br />ID entidade:", 1, -1, 1) detalhe = Replace(detalhe, "ID admin:", "<br />ID admin:", 1, -1, 1) detalhe = Replace(detalhe, "ID técnico:", "<br />ID técnico:", 1, -1, 1) detalhe = Replace(detalhe, "ID cobrança:", "<br />ID cobrança:", 1, -1, 1) detalhe = Replace(detalhe, "servidor DNS:", "<br />servidor DNS:", 1, -1, 1) detalhe = Replace(detalhe, "status DNS:", "<br />status DNS:", 1, -1, 1) detalhe = Replace(detalhe, "último AA:", "<br />último AA:", 1, -1, 1) detalhe = Replace(detalhe, "criado:", "<br />criado:", 1, -1, 1) detalhe = Replace(detalhe, "expiração:", "<br />expiração:", 1, -1, 1) detalhe = Replace(detalhe, "alterado:", "<br />alterado:", 1, -1, 1) detalhe = Replace(detalhe, "status:", "<br />status:", 1, -1, 1) detalhe = Replace(detalhe, "ID:", "<br />ID:", 1, -1, 1) detalhe = Replace(detalhe, "e-mail:", "<br />e-mail:", 1, -1, 1) detalhe = Replace(detalhe, "criado:", "<br />criado:", 1, -1, 1) detalhe = Replace(detalhe, "alterado:", "<br />alterado:", 1, -1, 1) End If If saida <> "" Then saida = saida & "" saida = saida & "<tr><td colspan=""3""><div style=""display:none;"" id=""d"&varCont&"_mais_menos""></div><div style=""display:none;"" id=""periodo_"&varCont&"""><table width=""100%""><tr><td>"& detalhe & "</td></tr></table></div></td></tr>" saida = saida & "<tr><td width=""3""><input type=""checkbox"" value=""" &Replace(endereco & dominio, " .",".")& """ disabled/></td><td width=""85%""><a href=""http://www."&Replace(endereco & dominio, " .",".")&""" target=""_blank""><font color=""red"">" &Replace(endereco & dominio, " .",".")& "</font></a></span></td><td width=""15%""><a class=""rteimage"" onclick=""window.open('Checker_detalhes.asp?dominio="&endereco&"&pont="&Replace(dominio, " .",".")&"','','scrollbars=yes,top=10,left=10,width=300,height=350');"" class=""hiperlink""><img src=""../images/mais.gif"" name=""d"&varCont&"_mais_menos"" align=""absmiddle"" border=""0"" width=""10"" height=""10""> <font color=""red"">Indisponivel</font></a></td></tr>" End If end if end if Next end if Public Function BinaryToString(xBinary) Dim Binary Dim RS, LBinary If VarType(xBinary)=8 Then Binary = MultiByteToBinary(xBinary) Else Binary = xBinary Const adLongVarChar = 201 Set RS = CreateObject("ADODB.Recordset") LBinary = LenB(Binary) If LBinary>0 Then RS.Fields.Append "mBinary", adLongVarChar, LBinary RS.Open RS.AddNew RS("mBinary").AppendChunk Binary RS.Update BinaryToString = RS("mBinary") Else BinaryToString = "" End If Set RS = Nothing End Function Public Function MultiByteToBinary(MultiByte) Dim RS, LMultiByte, Binary Const adLongVarBinary = 205 Set RS = CreateObject("ADODB.Recordset") LMultiByte = LenB(MultiByte) If LMultiByte>0 Then RS.Fields.Append "mBinary", adLongVarBinary, LMultiByte RS.Open RS.AddNew RS("mBinary").AppendChunk MultiByte & ChrB(0) RS.Update Binary = RS("mBinary").GetChunk(LMultiByte) End If Set RS = Nothing MultiByteToBinary = Binary End Function %> <html> <head> <title>Registro de dominios</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <link href="css/show_ads.css" rel="stylesheet" type="text/css" /> <link href="css/generalhs.css" rel="stylesheet" type="text/css" /> &lt;script type="text/javascript" src="prototype.js"></script> &lt;script type="text/javascript"> function Verifica(event){ var keyCode = event.keyCode ? event.keyCode : event.which ? event.which : event.charCode; var caract = new RegExp(/[a-z0-9-áéíóúç\b\.-]+$/i); var caract = caract.test(String.fromCharCode(keyCode)); if(!caract){ // alert("Não digite a extensão do domínio neste campo.\nSelecione a extensão na caixa ao lado.\n\nEm caso de subdomínios, digite apenas a parte principal.\n\nExemplo 1 - Domínio desejado - www.adok.com.br\nDigite apenas 'adok' no campo.\n\nExemplo 2 - Domínio desejado (com subdomínio) - www.suporte.adok.com.br\nDigite apenas 'adok' no campo."); keyCode=0; return false; } } function bloqueia(msg){ if(event.button != 1)alert('Acesso negado'); } function GetDominio(){ if (document.formDom.endereco.value.length ==""){ alert("Por favor, digite um nome para seu domínio !"); document.formDom.endereco.focus(); return false; } Element.update("content","<span class='txt2'><br /><br />Aguarde, verificando disponibilidade...</span><br /><br /><img src='images/iga_com_br.gif' onmousedown='bloqueia();' width='146' height='12'>"); var myAjax = new Ajax.Updater({success: 'content'}, 'Dominios.asp?dom=<%=request("dominio")%>', { method: 'get', parameters: 'dom='+document.formDom.dominio.value + document.formDom.dominio.value}); } <!-- var imgmais = new Image(); var imgmenos = new Image(); imgmais.src = "../images/mais.gif" imgmenos.src = "../images/menos.gif" function mostrar_mais(quem,mm){ var mmimg = eval(mm+"_mais_menos") if (quem.style.display == "none"){ quem.style.display = "" mmimg.src = imgmenos.src }else{ quem.style.display = "none" mmimg.src = imgmais.src } } //--> </script> </head> <body class="tabela01"> <form id="formDom" name="formDom" method="post" onSubmit="return GetDominio(this);"> <table bordercolor="#336699" align="center" border="0"> <tr><td><img src="images/igad_br.gif" alt="Registro de Domínios" width="495" height="21" /></td></tr> <tr><td width="495"> Para o seu negócio ter sucesso, é fundamental marcar presença na Web. Possuir um site personalizado e um endereço de e-mail próprio ([email protected]) é o primeiro passo. <table border="0" align="center" width="500"> <tr><td align="right" class="txt" width="100%"> <fieldset style="width: 495;" class="fildweb" > <legend><strong>Verifique se o domínio que você quer registrar está disponível </strong></legend> <table border="0" align="center" width="100%" > <tr><td align="right" class="txt">Domínio:<strong> www.</strong> </td> <td><label> <input name="endereco" type="text" class="camp" id="endereco" size="20" maxlength="59" value="<%=request("endereco")%>" onkeypress="return Verifica(event);"> </label> </td> </tr> <tr><td colspan="3"> <input type="checkbox" value=".com.br"name="dominio">.com.br <input type="checkbox" value=".adm.br"name="dominio">.adm.br <input type="checkbox" value=".br"name="dominio">.br <input type="checkbox" value=".net.br"name="dominio">.net.br <input type="checkbox" value=".org.br"name="dominio">.org.br <input type="checkbox" value=".gov.br"name="dominio">.gov.br <input type="checkbox" value=".tv.br"name="dominio">.tv.br<br> <input type="checkbox" value=".com"name="dominio">.com <input type="checkbox" value=".net"name="dominio">.net <input type="checkbox" value=".org"name="dominio">.org <input type="checkbox" value=".info"name="dominio">.info </td></tr> <td><td><input name="Button" type="submit" class="bot" value="Procurar" /></td></tr> </table> </fieldset> </td></tr> </table> <div id="d1_mais_menos" align="center"> <div id="content" align="center"> <table border="1" align="center" cellpadding="1" cellspacing="1" width="100%"> <tr><td align="center" ><b>X</b></td><td align="center" width="75%"><b>Dominios</b></td><td align="center" width="20%"><b>Status</b></td></tr> <tr><td colspan="4" width="100%"> <div align="center"> <%=saida%> </div> </td></tr> </table> </div> </div> </strong>Extensões disponíveis: <font color="#0000FF">.com.br, .adm.br, .br, .net.br, .org.br, .gov.br, .tv.br,</font><br /> </strong>Extensões disponíveis: <font color="#0000FF">.com, .net</font><br /> </td></tr></table> </form> </body> </html>
  12. Pessoal estou tentando melhorar este script para verificar se o dominio esta ou não registrado se ele esta registrado me mostra as informações do registro ok O problema e que quando eu marco so os dominio internacional ele funciona perfeitamente já os dominio nacionais não esta funcionado. se eu conseguir enviar os checkbox com os valores ".com.br,.net.br,.adv.br,.org.br,.tv.br,.gov.br,.adm.br" para ser pesquisado no registro br e os checkbox com os valores ".com,.net,.org,.info" Internic Exemplo: Se for escolhido so dominio internacional ele tem que fazer a consulta só na linha azul e se for escolhido somente dominio nacional tem que fazer consulta só na linha vermelha e se for escolhido nacional e internacional tem que fazer consulta nas duas linha azul e vermelha If InStr(ext_perm, ",") > 0 Then xmlhttp.Open "GET", "http://reports.internic.net/cgi/whois?whois_nic=" &Replace(endereco & dominio, " .",".")& "&type=domain", False xmlhttp.send Else xmlhttp.Open "POST", "https://registro.br/cgi-bin/whois/#lresp", False xmlhttp.send("qr="&Replace(endereco & dominio, " .",".")) End If Olha eu conseguir fazer este Verifica dominios quero adptar com os checkbox para depois disponibilizar. <% Server.ScriptTimeout = 99999999 Dim dominio Dim endereco Dim xmlhttp Dim Resultado Dim arrayDominios Dim verificarDominios Dim contador Dim detalhe Dim dominiosInternic Dim dominiosInt Dim dominiosRegistroBr If request("endereco")<>"" then endereco= Request("endereco") dominio=Request("dominio") dominiosRegistroBr = ""&dominio&"" verificarDominios = Replace(dominio, ",", ",") arrayDominios = Split(verificarDominios, ",") Response.ContentType = "text/html" For contador = Lbound(arrayDominios) To Ubound(arrayDominios) dominio = arrayDominios(contador) detalhe = "" If dominio <> "" Then Set xmlhttp = Server.CreateObject("Microsoft.XMLHTTP") If InStr(1, dominiosRegistroBr, ",") > 0 Then xmlhttp.Open "GET", "http://reports.internic.net/cgi/whois?whois_nic="&Replace(endereco & dominio, " .",".")& "&type=domain", False xmlhttp.send Else xmlhttp.Open "POST", "https://registro.br/cgi-bin/whois/#lresp", False xmlhttp.send("qr=" &Replace(endereco & dominio, " .",".")) End If Resultado = BinaryToString(xmlhttp.responseBody) If InStr(1, dominiosRegistroBr, ",") > 0 Then If InStr(1, Resultado, "No match for domain", vbTextCompare) > 0 Or InStr(1, Resultado, "No match for registrar", vbTextCompare) > 0 or not InStr(1, Resultado, "Domain Name", vbTextCompare) > 0 Or InStr(1, Resultado, "No match for registrar", vbTextCompare) > 0 Then If saida <> "" Then saida = saida & "" saida = saida & "<tr><td width=""3""><input type=""checkbox"" value=""" &Replace(endereco & dominio, " .",".")& """ /></td><td width=""85%""><strong>" &Replace(endereco & dominio, " .",".")& "</strong></td><td width=""15%""><img src=""../images/disponivel.png"" align=""absmiddle"" border=""0"" width=""10"" height=""10""> <font color=""blue"">Disponivel</font></td></tr>" Else If saida <> "" Then saida = saida & "" saida = saida & "<tr><td colspan=""3""><div style=""display:none;"" id=""d"&varCont&"_mais_menos""></div><div style=""display:none;"" id=""periodo_"&varCont&"""><table width=""100%""><tr><td>"& detalhe & "</td></tr></table></div></td></tr>" saida = saida & "<tr><td width=""3""><input type=""checkbox"" value=""" &Replace(endereco & dominio, " .",".")& """ disabled/></td><td width=""85%""><a href=""http://www."&Replace(endereco & dominio, " .",".")&""" target=""_blank""><font color=""red"">" &Replace(endereco & dominio, " .",".")& "</font></a></span></td><td width=""15%""><a class=""rteimage"" onclick=""window.open('Checker_detalhes.asp?dominio="&endereco&"&pont="&Replace(dominio, " .",".")&"','','scrollbars=yes,top=10,left=10,width=300,height=350');"" class=""hiperlink""><img src=""../images/mais.gif"" name=""d"&varCont&"_mais_menos"" align=""absmiddle"" border=""0"" width=""10"" height=""10""> <font color=""red"">Indisponivel</font></a></td></tr>" If InStr(1, Resultado, "NOT AUTHORITATIVE", vbTextCompare) > 0 and InStr(1, Resultado, "No match for domain", vbTextCompare) > 0 and InStr(1, Resultado, "No match for registrar", vbTextCompare) > 0 Then ElseIf InStr(1, Resultado, "Domain Name:", vbTextCompare) > 0 or InStr(1, Resultado, "Name Server:", vbTextCompare) > 0 Then posInicioDetalhe = InStr(1, Resultado, "Domain Name:", vbTextCompare) If posInicioDetalhe > 0 Then posFimDetalhe = InStr(1, Mid(Resultado, posInicioDetalhe), "Expiration Date", vbTextCompare) + 29 End If If posFimDetalhe > 0 or posInicioDetalhe > 0 Then detalhe = Mid(Resultado, posInicioDetalhe, posFimDetalhe) detalhe = Replace(detalhe, "Registrar:", "<br />Registrar:") detalhe = Replace(detalhe, "Whois Server:", "<br />Whois Server:") detalhe = Replace(detalhe, "URL:", "<br />URL:") detalhe = Replace(detalhe, "Name Server:", "<br />Name Server:") detalhe = Replace(detalhe, "Status:", "<br /> Status:") detalhe = Replace(detalhe, "Updated Date:", "<br />Updated Date:") detalhe = Replace(detalhe, "Creation Date:", "<br />Creation Date:") detalhe = Replace(detalhe, "Expiration Date:", "<br />Expiration Date:") end if end if end if '============================== else If InStr(1, Resultado, "Domínio inexistente", vbTextCompare) > 0 Then If saida <> "" Then saida = saida & "" saida = saida & "<tr><td width=""3""><input type=""checkbox"" value=""" &Replace(endereco & dominio, " .",".")& """ /></td><td width=""75%""><strong>" &Replace(endereco & dominio, " .",".")& "</strong></td><td width=""15%""><img src=""../images/disponivel.png"" align=""absmiddle"" border=""0"" width=""10"" height=""10""> <font color=""blue"">Disponivel</font></td></tr>" ElseIf InStr(1, Resultado, "Sintaxe inválida", vbTextCompare) > 0 Or InStr(1, Resultado, "ASN inexistente", vbTextCompare) > 0 Then If saida <> "" Then saida = saida & "" saida = saida & "<tr><td width=""3""></td><td><span style=""color:red;"">" &Replace(endereco & dominio, " .",".")& "</span></td><td>URL invalida</td></tr>" ElseIf InStr(1, Resultado, "Consulta inválida", vbTextCompare) > 0 Then If saida <> "" Then saida = saida & "" saida = saida & "<tr><td width=""3""></td><td><span style=""color:red;"">" &Replace(endereco & dominio, " .",".")& "</span></td><td>Consulta invalida</td></tr>" ElseIf InStr(1, Resultado, "ID entidade:", vbTextCompare) > 0 And InStr(1, Resultado, "servidor DNS:", vbTextCompare) > 0 Then posInicioDetalhe = InStr(1, Resultado, "domínio:", vbTextCompare) If posInicioDetalhe > 0 Then posFimDetalhe = InStrRev(Mid(Resultado, posInicioDetalhe), "alterado") + 25 End If If posFimDetalhe > 0 And posInicioDetalhe > 0 Then detalhe = Mid(Resultado, posInicioDetalhe, posFimDetalhe) ' detalhe = limparHtml(detalhe) detalhe = Replace(detalhe, "entidade:", "<br />entidade:", 1, -1, 1) detalhe = Replace(detalhe, "documento:", "<br />documento:", 1, -1, 1) detalhe = Replace(detalhe, "responsável:", "<br />responsável:", 1, -1, 1) detalhe = Replace(detalhe, "país:", "<br />país:", 1, -1, 1) detalhe = Replace(detalhe, "ID entidade:", "<br />ID entidade:", 1, -1, 1) detalhe = Replace(detalhe, "ID admin:", "<br />ID admin:", 1, -1, 1) detalhe = Replace(detalhe, "ID técnico:", "<br />ID técnico:", 1, -1, 1) detalhe = Replace(detalhe, "ID cobrança:", "<br />ID cobrança:", 1, -1, 1) detalhe = Replace(detalhe, "servidor DNS:", "<br />servidor DNS:", 1, -1, 1) detalhe = Replace(detalhe, "status DNS:", "<br />status DNS:", 1, -1, 1) detalhe = Replace(detalhe, "último AA:", "<br />último AA:", 1, -1, 1) detalhe = Replace(detalhe, "criado:", "<br />criado:", 1, -1, 1) detalhe = Replace(detalhe, "expiração:", "<br />expiração:", 1, -1, 1) detalhe = Replace(detalhe, "alterado:", "<br />alterado:", 1, -1, 1) detalhe = Replace(detalhe, "status:", "<br />status:", 1, -1, 1) detalhe = Replace(detalhe, "ID:", "<br />ID:", 1, -1, 1) detalhe = Replace(detalhe, "e-mail:", "<br />e-mail:", 1, -1, 1) detalhe = Replace(detalhe, "criado:", "<br />criado:", 1, -1, 1) detalhe = Replace(detalhe, "alterado:", "<br />alterado:", 1, -1, 1) End If If saida <> "" Then saida = saida & "" saida = saida & "<tr><td colspan=""3""><div style=""display:none;"" id=""d"&varCont&"_mais_menos""></div><div style=""display:none;"" id=""periodo_"&varCont&"""><table width=""100%""><tr><td>"& detalhe & "</td></tr></table></div></td></tr>" saida = saida & "<tr><td width=""3""><input type=""checkbox"" value=""" &Replace(endereco & dominio, " .",".")& """ disabled/></td><td width=""85%""><a href=""http://www."&Replace(endereco & dominio, " .",".")&""" target=""_blank""><font color=""red"">" &Replace(endereco & dominio, " .",".")& "</font></a></span></td><td width=""15%""><a class=""rteimage"" onclick=""window.open('Checker_detalhes.asp?dominio="&endereco&"&pont="&Replace(dominio, " .",".")&"','','scrollbars=yes,top=10,left=10,width=300,height=350');"" class=""hiperlink""><img src=""../images/mais.gif"" name=""d"&varCont&"_mais_menos"" align=""absmiddle"" border=""0"" width=""10"" height=""10""> <font color=""red"">Indisponivel</font></a></td></tr>" End If end if end if Next end if Public Function BinaryToString(xBinary) Dim Binary Dim RS, LBinary If VarType(xBinary)=8 Then Binary = MultiByteToBinary(xBinary) Else Binary = xBinary Const adLongVarChar = 201 Set RS = CreateObject("ADODB.Recordset") LBinary = LenB(Binary) If LBinary>0 Then RS.Fields.Append "mBinary", adLongVarChar, LBinary RS.Open RS.AddNew RS("mBinary").AppendChunk Binary RS.Update BinaryToString = RS("mBinary") Else BinaryToString = "" End If Set RS = Nothing End Function Public Function MultiByteToBinary(MultiByte) Dim RS, LMultiByte, Binary Const adLongVarBinary = 205 Set RS = CreateObject("ADODB.Recordset") LMultiByte = LenB(MultiByte) If LMultiByte>0 Then RS.Fields.Append "mBinary", adLongVarBinary, LMultiByte RS.Open RS.AddNew RS("mBinary").AppendChunk MultiByte & ChrB(0) RS.Update Binary = RS("mBinary").GetChunk(LMultiByte) End If Set RS = Nothing MultiByteToBinary = Binary End Function %> <html> <head> <title>Registro de dominios</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <link href="css/show_ads.css" rel="stylesheet" type="text/css" /> <link href="css/generalhs.css" rel="stylesheet" type="text/css" /> &lt;script type="text/javascript" src="prototype.js"></script> &lt;script type="text/javascript"> function Verifica(event){ var keyCode = event.keyCode ? event.keyCode : event.which ? event.which : event.charCode; var caract = new RegExp(/[a-z0-9-áéíóúç\b\.-]+$/i); var caract = caract.test(String.fromCharCode(keyCode)); if(!caract){ // alert("Não digite a extensão do domínio neste campo.\nSelecione a extensão na caixa ao lado.\n\nEm caso de subdomínios, digite apenas a parte principal.\n\nExemplo 1 - Domínio desejado - www.adok.com.br\nDigite apenas 'adok' no campo.\n\nExemplo 2 - Domínio desejado (com subdomínio) - www.suporte.adok.com.br\nDigite apenas 'adok' no campo."); keyCode=0; return false; } } function bloqueia(msg){ if(event.button != 1)alert('Acesso negado'); } function GetDominio(){ if (document.formDom.endereco.value.length ==""){ alert("Por favor, digite um nome para seu domínio !"); document.formDom.endereco.focus(); return false; } Element.update("content","<span class='txt2'><br /><br />Aguarde, verificando disponibilidade...</span><br /><br /><img src='images/iga_com_br.gif' onmousedown='bloqueia();' width='146' height='12'>"); var myAjax = new Ajax.Updater({success: 'content'}, 'Dominios.asp?dom=<%=request("dominio")%>', { method: 'get', parameters: 'dom='+document.formDom.dominio.value + document.formDom.dominio.value}); } <!-- var imgmais = new Image(); var imgmenos = new Image(); imgmais.src = "../images/mais.gif" imgmenos.src = "../images/menos.gif" function mostrar_mais(quem,mm){ var mmimg = eval(mm+"_mais_menos") if (quem.style.display == "none"){ quem.style.display = "" mmimg.src = imgmenos.src }else{ quem.style.display = "none" mmimg.src = imgmais.src } } //--> </script> </head> <body class="tabela01"> <form id="formDom" name="formDom" method="post" onSubmit="return GetDominio(this);"> <table bordercolor="#336699" align="center" border="0"> <tr><td><img src="images/igad_br.gif" alt="Registro de Domínios" width="495" height="21" /></td></tr> <tr><td width="495"> Para o seu negócio ter sucesso, é fundamental marcar presença na Web. Possuir um site personalizado e um endereço de e-mail próprio ([email protected]) é o primeiro passo. <table border="0" align="center" width="500"> <tr><td align="right" class="txt" width="100%"> <fieldset style="width: 495;" class="fildweb" > <legend><strong>Verifique se o domínio que você quer registrar está disponível </strong></legend> <table border="0" align="center" width="100%" > <tr><td align="right" class="txt">Domínio:<strong> www.</strong> </td> <td><label> <input name="endereco" type="text" class="camp" id="endereco" size="20" maxlength="59" value="<%=request("endereco")%>" onkeypress="return Verifica(event);"> </label> </td> </tr> <tr><td colspan="3"> <input type="checkbox" value=".com.br"name="dominio">.com.br <input type="checkbox" value=".adm.br"name="dominio">.adm.br <input type="checkbox" value=".br"name="dominio">.br <input type="checkbox" value=".net.br"name="dominio">.net.br <input type="checkbox" value=".org.br"name="dominio">.org.br <input type="checkbox" value=".gov.br"name="dominio">.gov.br <input type="checkbox" value=".tv.br"name="dominio">.tv.br<br> <input type="checkbox" value=".com"name="dominio">.com <input type="checkbox" value=".net"name="dominio">.net <input type="checkbox" value=".org"name="dominio">.org <input type="checkbox" value=".info"name="dominio">.info </td></tr> <td><td><input name="Button" type="submit" class="bot" value="Procurar" /></td></tr> </table> </fieldset> </td></tr> </table> <div id="d1_mais_menos" align="center"> <div id="content" align="center"> <table border="1" align="center" cellpadding="1" cellspacing="1" width="100%"> <tr><td align="center" ><b>X</b></td><td align="center" width="75%"><b>Dominios</b></td><td align="center" width="20%"><b>Status</b></td></tr> <tr><td colspan="4" width="100%"> <div align="center"> <%=saida%> </div> </td></tr> </table> </div> </div> </strong>Extensões disponíveis: <font color="#0000FF">.com.br, .adm.br, .br, .net.br, .org.br, .gov.br, .tv.br,</font><br /> </strong>Extensões disponíveis: <font color="#0000FF">.com, .net</font><br /> </td></tr></table> </form> </body> </html>
  13. Pessoal tenho este script para verificar se um dominio esta ou não registrado, se o dominio esta registrado ele tem que me mostra o codigo fonte de quem registrou alguém sabe como fazer isso já procurei na net mais não encontrei. <% dim objXML, Resultado, msgErro, srtmethod Response.Buffer = false 'Set the script timeout to 60 seconds Server.ScriptTimeout = 60 end_pag = "http://www." & request.form("dominio")&""&request.form("pont")&"" url_dom = request.form("dominio")&""&request.form("pont")&"" dominio=request("dominio") If request.form("dominio")<>"" then tipo = split(Request("pont"),".") tipo_arquivo_2 = "." & tipo(ubound(tipo)) ext_perm = ".com.br,.adm.br,.br,.org.br,.gov.br,.tv.br" exte = split(ext_perm,",") a = 0 for i=0 to ubound(exte) if trim(Lcase(tipo_arquivo_2)) = trim(exte(i)) then a = 1 end if next if a <> 1 then 'aqui verifica os dominios internacional Set ObjXML = Server.CreateObject("Msxml2.serverXMLHTTP") if instr(url_dom,"-") or instr(url_dom,"+") > 0 then objXML.Open "get", end_pag, false else objXML.Open "GET", end_pag, false end if on error resume next objXML.Send Resultado = objXML.ResponseText = ResponseText If instr(dominio, ".") > 0 Or instr(dominio, ",") > 0 or instr(dominio, ";") > 0 or instr(dominio, ":") > 0 or instr(dominio, "=") > 0 then msgErro = "<br><br><strong><font color='blue'>Impossível, o dominio <font color='#FF0000'>www."&url_dom&" </font> não está disponível para registro</font><br><br></strong>" else if Resultado="" then msgErro = "<br><br><strong><font color='blue'>Parabéns, o dominio <font color='#009900'>www."&url_dom&" </font> disponivel para registro</font><br><br></strong>"' ElseIf instr(1,Resultado,"encontrada nenhuma") Then Else msgErro = "<br><br><strong><font color='blue'>Impossível, o dominio <font color='#FF0000'>www."&url_dom&" </font> não está disponível para registro</font><br><br></strong>" End If end if else 'aqui verifica os dominios br If Len(dominio) < 2 THEN msgErro = "Erro ! O domínio deve possuir pelo menos dois caracteres" ElseIf Len(dominio) > 32 THEN msgErro = "Erro ! O domínio deve possuir no máximo 26 caracteres" Else Set ObjXML = Server.CreateObject("Msxml2.ServerXMLHTTP") ObjXML.Open "GET", "http://registro.br/cgi-bin/nicbr/whois?qr="&url_dom, False on error resume next ObjXML.Send Resultado = ObjXML.ResponseText If instr(dominio, ".") > 0 Or instr(dominio, ",") > 0 or instr(dominio, ";") > 0 or instr(dominio, ":") > 0 or instr(dominio, "=") > 0 then msgErro = "<br><br><strong><font color='blue'>Impossível, o dominio <font color='#FF0000'>www."&url_dom&" </font> não está disponível para registro</font><br><br></strong>" else If instr(1,Resultado,"inexistente") Then msgErro = "<br><br><strong><font color='blue'>Parabéns, o dominio <font color='#009900'>www."&url_dom&" </font> disponivel para registro</font><br><br></strong>"' ElseIf instr(1,Resultado,"encontrada nenhuma") Then ElseIf instr(1,Resultado,"encontrada nenhuma") Then msgErro = "Erro ! Sintaxe Inválida " ElseIf instr(1,Resultado,"Como fazer uma consulta") Then msgErro = "Erro ! Sintaxe Inválida " ElseIf instr(1,Resultado,"Primeiro") Then msgErro = "Domínio de Primeiro Nível Inválido" Else msgErro = "<br><br><strong><font color='blue'>Impossível, o dominio <font color='#FF0000'>www."&url_dom&" </font> não está disponível para registro</font><br><br></strong>" End If End If end if end if Set objXML = Nothing end if %> <html> <head> <title>Registro de dominios</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <link href="css/generalhs.css" rel="stylesheet" type="text/css" /> <link href="css/generalhs.css" rel="stylesheet" type="text/css" /> &lt;script type="text/javascript" src="prototype.js"></script> &lt;script type="text/javascript"> function Verifica(event){ var keyCode = event.keyCode ? event.keyCode : event.which ? event.which : event.charCode; var caract = new RegExp(/[a-z0-9-áéíóúç\b\.-]+$/i); var caract = caract.test(String.fromCharCode(keyCode)); if(!caract){ // alert("Não digite a extensão do domínio neste campo.\nSelecione a extensão na caixa ao lado.\n\nEm caso de subdomínios, digite apenas a parte principal.\n\nExemplo 1 - Domínio desejado - www.adok.com.br\nDigite apenas 'adok' no campo.\n\nExemplo 2 - Domínio desejado (com subdomínio) - www.suporte.adok.com.br\nDigite apenas 'adok' no campo."); keyCode=0; return false; } } function bloqueia(msg){ if(event.button != 1)alert('Acesso negado'); } function GetDominio(){ if (document.formDom.dominio.value.length ==""){ alert("Por favor, digite um nome para seu domínio !"); document.formDom.dominio.focus(); return false; } Element.update("content","<span class='txt2'><br /><br />Aguarde, verificando disponibilidade...</span><br /><br /><img src='images/iga_com_br.gif' onmousedown='bloqueia();' width='146' height='12'><br><br>"); var myAjax = new Ajax.Updater({success: 'content'}, 'verifica_dominios.asp?dom=<%=request("dominio")%>', { method: 'get', parameters: 'dom='+document.formDom.dominio.value + document.formDom.pont.value}); } </script> </head> <body> <form id="formDom" name="formDom" method="post" onSubmit="return GetDominio(this);"> <table bordercolor="#336699" align="center" border="0"> <tr><td><img src="images/igad_br.gif" alt="Registro de Domínios" width="495" height="21" /></td></tr> <tr><td width="495"> Para o seu negócio ter sucesso, é fundamental marcar presença na Web. Possuir um site personalizado e um endereço de e-mail próprio ([email protected]) é o primeiro passo. <table border="0" align="center" width="500"> <tr><td align="right" class="txt" width="100%"> <fieldset style="width: 495;" class="fildweb" > <legend><strong>Verifique se o domínio que você quer registrar está disponível </strong></legend> <table border="0" align="center" > <tr><td align="right" class="txt">Domínio:<strong> www.</strong> </td> <td><label> <input name="dominio" type="text" class="camp" id="dominio" size="20" maxlength="59" value="<%=request("dominio")%>" onkeypress="return Verifica(event);"> </label> <font color="#990000"><strong><font color="#000000">.</font></strong> <label> <select id="pont" name="pont" class="text"> <% lista=".com.br,.com,.net,.adm.br,.br,.net.br,.org,.org.br,.gov.br,.tv.br,.info,.name" MTT="com.br,com,net,adm.br,br,net.br,org,org.br,gov.br,tv.br,info,name" arrsetor3=split(request("pont"),", ") arrsetores3=split(lista,",") mostra_form=split(MTT,",") for y = LBOUND(mostra_form) to ubound(mostra_form) response.write"<option value="&arrsetores3(y) for x= LBOUND(arrsetor3) to ubound(arrsetor3) if arrsetor3(x) = arrsetores3(y) then response.write " selected" next response.write">"&mostra_form(y)&"</option>"&vbcr next %> </select> </label> </font></td> <td><input name="Button" type="submit" class="bot" value="Procurar" /> </td></tr></table> </fieldset> </td></tr> </table> <table border="0" align="center" width="500"> <tr><td align="left" class="txt" width="100%"> <div id="content" align="center"> <div align="center"> <%=msgErro%> </div> <div align="left"> <% If request("dominio")<>"" then if Resultado = "" or instr(1,Resultado,"inexistente") then%> <a href="contratar_dominio.asp?dom=<%=url_dom%>">Registrar este domínio</a> <%else%> <a href="#"><b>Ver quem registros</b></a> <% end if end if %> </div> </div> </strong>Extensões disponíveis: <font color="#0000FF">.com.br, .adm.br, .br, .net.br, .org, .org.br, .gov.br, .tv.br,</font><br /> </strong>Extensões disponíveis: <font color="#0000FF">.com, .net, .info, .name</font><br /> </td></tr> </table> </td></tr></table> </form> </body> </html>
  14. Pesoal estou aqui novamente abusando da boa vontade de vocês Exemplor1 Se estiver no diretotio \wwwroot\adminirador\agenda e clicar [..] tem que voltar para o diretorio \wwwroot\adminirador se clicar novamente [..] tem que ir para o diretorio \wwwroot alguém tem uma ideia de como fazer isto? <% 'Declarando as variavel Dim strPath, objFSO, objFolder, objItem, barra, dir ' O diretório que vai ser listado: dir = "D:\Domains\igadino.com"&request("StartPath")&"" barra="\" strPath = dir pasta = trim(request("StartPath")) ' Vamos criar aqui o FileSystemObject: Set objFSO = Server.CreateObject("Scripting.FileSystemObject") ' ler o conteúdo do diretório Set objFolder = objFSO.GetFolder((strPath)) %> <html> <head> <title>Select Folder</title> <meta http-equiv="Content-type" content="text/html; charset=iso-8859-1" /> &lt;script language="JavaScript" src="../script/clock.js"></script> &lt;script language="JavaScript" src="../script/menu.js"></script> <meta http-equiv="Content-type" content="text/html; charset=iso-8859-1" /> </head> <body topmargin="0" bgcolor="#0099CC" bottommargin="0" leftmargin="0" rightmargin="0" marginheight="0" marginwidth="0" class="theme" onload="self.focus();" onblur="self.focus();"> <table border=0 cellpadding=0 cellspacing=0 width=100%> <form name="frmSelectFolder" action="" method=post> <tr><td align=center> <p><input type=text name="StartPath" value="<%=request.QueryString("StartPath")%>" style="font-size:9px; width:200px" readonly> </p></td></tr> <tr><td align=center> <select name="FolderPath" size="10" style="font-size:9px; width:200px" onclick="if (this.selectedIndex != -1){window.location.href='folderSelector.asp?RootFolder=&StartPath=' + this.options[this.selectedIndex].value;}"> <% if request.QueryString("StartPath")<> "" then %> <option value="<%=mst%>">[..]</option> <% end if%> <%For Each objItem In objFolder.SubFolders%> <option value="<%=request("StartPath")%><%=barra+objItem.Name%>">[<%=objItem.Name%>]</option> <%Next%> </select> </td></tr> <tr><td align="center" height="30"><input type=button name=btnCancel onclick="window.close();" value=" Cancel " style="font-size:9px;"> <input type=button name=btnChangeFolder onclick="opener.parent.setSelectFolderValue(this.form.StartPath.value); window.close();" value=" OK " style="font-size:9px;"></td></tr> </form> </table> </div> </body> </html>
  15. Mias não quantas copia vai ser feita Eu queria fazer o mesmo exemplo do windows explorer. se você deh CTRL+C e depois CTRL+V cinco vez seguida se a pasta for pedro a primeira copia será assim Cópia de pedro e as outras será assimm Cópia (1) de pedro Cópia (2) de pedro Cópia (3) de pedro Cópia (4) de pedro Cópia (5) de pedro
×
×
  • Create New...