igadino

Membros

Perfil Explorar Conteúdo

Total de itens
35
Registro em
Julho 18, 2006
Última visita
Outubro 20, 2020

Tipo de Conteúdo

Todas Atividades

Perfis

Fóruns

Tudo que igadino postou

TECLA WINDOWS DO TECLADO

uma questão postou igadino Tutoriais & Dicas - .NET

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
- Setembro 13, 2020
Mudar Imagem no picturebox Travando o Form

uma questão postou igadino Visual Basic

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
- Janeiro 28, 2016
Gerador de seriais

uma questão postou igadino Visual Basic

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)
- Agosto 8, 2015
- - validar
Atualizar dados

uma questão postou igadino ASP

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
- Janeiro 13, 2015
- - Excell
Copiar arquivos e pasta com asp

pergunta respondeu ao igadino de igadino em ASP

ninguém ainda conseguiu? estou no aguardo.
- Junho 23, 2014
- 10 respostas
(Resolvido) Marcar varios checkbox

pergunta respondeu ao igadino de igadino em ASP

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,
- Março 16, 2010
- 6 respostas
(Resolvido) Marcar varios checkbox

pergunta respondeu ao igadino de igadino em ASP

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
- Março 10, 2010
- 6 respostas
(Resolvido) Marcar varios checkbox

pergunta respondeu ao igadino de igadino em ASP

Assim tambem não funciona
- Março 9, 2010
- 6 respostas
(Resolvido) Marcar varios checkbox

uma questão postou igadino ASP

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>
- Março 9, 2010
- 6 respostas
Verificar dominio registrado

pergunta respondeu ao igadino de igadino em ASP

já tentei faer mais não deu certo.
- Março 6, 2010
- 2 respostas
Verificar dominio registrado

uma questão postou igadino ASP

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" /> <script type="text/javascript" src="prototype.js"></script> <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}); }  </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 (seunome@seunome.com.br) é 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>
- Março 3, 2010
- 2 respostas
Verificar dominio registrado

uma questão postou igadino ASP

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" /> <script type="text/javascript" src="prototype.js"></script> <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}); }  </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 (seunome@seunome.com.br) é 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>
- Março 3, 2010
Verificar dominio registrado

uma questão postou igadino ASP

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" /> <script type="text/javascript" src="prototype.js"></script> <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 (seunome@seunome.com.br) é 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>
- Fevereiro 4, 2010
- 1 resposta
Listando diretorio abaixo

uma questão postou igadino ASP

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" /> <script language="JavaScript" src="../script/clock.js"></script> <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>
- Novembro 27, 2009
Copiar arquivos e pasta com asp

pergunta respondeu ao igadino de igadino em ASP

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
- Novembro 22, 2009
- 10 respostas
Copiar arquivos e pasta com asp

pergunta respondeu ao igadino de igadino em ASP

Amigo você não entedeu so quero colocar um numero no inicio da copia exemplo: se já existe uma pasta como nome dino quando eu copiar a copia ten que vim assim Copia (2) de dino.
- Novembro 21, 2009
- 10 respostas
Copiar arquivos e pasta com asp

pergunta respondeu ao igadino de igadino em ASP

O codigo esta funcionado perfeitamente E o seguinte se tem uma pasta com o nome MURAL se mando copiar aparece assim Copia de MURAL beleza se eu tentado copiar a mesma pasta mural tem que aparecer assim Copia (2) de MURAL se copiar novamente tem que aparece assim Copia (3) de MURAL entendeu.
- Novembro 20, 2009
- 10 respostas
Copiar arquivos e pasta com asp

uma questão postou igadino ASP

Pessoal estou tentando copiar arquivos/pasta com este codigo ele esta funcionando perfeitamente so que quando eu copiar um arquivos/pasta exemplo: vou copiar a pasta de nome MURAL ela aparece assim Copia de MURAL muito bem se eu tentar copiar novamente tem que aparecer assim Copia (2) de MURAL igual a do windows explorer quando agente dar CTRL+C e CTRL+V e assim por diante Set objFSO = Server.CreateObject("Scripting.FileSystemObject") if not request("local")="" then For Each strFileName In Request("arquivos") objFSO.CopyFile "D:\Domains\igadino.com"&request("local")&"\"&strFileName&"", "D:\Domains\igadino.com"&request("local")&"\Copia de "&strFileName&"" objFSO.CopyFolder "D:\Domains\igadino.com"&request("local")&"\"&strFileName&"", "D:\Domains\igadino.com"&request("local")&"\Copia de "&strFileName&"" Next ' strFileName response.Redirect("?sessao=Criar_Adm&StartPath="&REQUEST("local")&"") else For Each strFileName In Request("arquivos") objFSO.CopyFile "D:\Domains\igadino.com"&request("StartPath")&"\"&strFileName&"", "D:\Domains\igadino.com"&request("StartPath")&"\Copia de "&strFileName&"" objFSO.CopyFolder "D:\Domains\igadino.com"&request("StartPath")&"\"&strFileName&"", "D:\Domains\igadino.com"&request("StartPath")&"\Copia de "&strFileName&"" response.Redirect("?sessao=Criar_Adm&StartPath="&REQUEST("local")&"") Next ' strFileName end if
- Novembro 20, 2009
- 10 respostas
Consulta personalizada

pergunta respondeu ao igadino de igadino em ASP

já tentei Assim response.write DestacaTexto(""&rs("versiculo")&"<br>")) E assim response.write DestacaTexto(textoBD, n_palavras(""&rs("versiculo")&"<br>")))
- Julho 18, 2009
- 17 respostas
Consulta personalizada

pergunta respondeu ao igadino de igadino em ASP

Continua dando erro
- Julho 18, 2009
- 17 respostas
Consulta personalizada

pergunta respondeu ao igadino de igadino em ASP

Tente usar ela para você ver não estou conseguindo tente montah ela para mim fico grato
- Julho 14, 2009
- 17 respostas
Consulta personalizada

pergunta respondeu ao igadino de igadino em ASP

Continua dando o mesmo erro
- Julho 12, 2009
- 17 respostas
Consulta personalizada

pergunta respondeu ao igadino de igadino em ASP

já declarei todas as variavel mas continua dando erro
- Julho 10, 2009
- 17 respostas
Consulta personalizada

pergunta respondeu ao igadino de igadino em ASP

Continua dando erro não sei mas o que faço
- Julho 9, 2009
- 17 respostas
Consulta personalizada

pergunta respondeu ao igadino de igadino em ASP

Falta um como assim voce pode fazer um exemplo porque não entendir e qual esta faltando
- Julho 9, 2009
- 17 respostas

Entrar

igadino

Total de itens

Registro em

Última visita

Tipo de Conteúdo

Perfis

Fóruns

Tudo que igadino postou

TECLA WINDOWS DO TECLADO

Mudar Imagem no picturebox Travando o Form

Gerador de seriais

Atualizar dados

Copiar arquivos e pasta com asp

(Resolvido) Marcar varios checkbox

(Resolvido) Marcar varios checkbox

(Resolvido) Marcar varios checkbox

(Resolvido) Marcar varios checkbox

Verificar dominio registrado

Verificar dominio registrado

Verificar dominio registrado

Verificar dominio registrado

Listando diretorio abaixo

Copiar arquivos e pasta com asp

Copiar arquivos e pasta com asp

Copiar arquivos e pasta com asp

Copiar arquivos e pasta com asp

Consulta personalizada

Consulta personalizada

Consulta personalizada

Consulta personalizada

Consulta personalizada

Consulta personalizada

Consulta personalizada

Navegação

Atividades