igadino
-
Total de itens
35 -
Registro em
-
Última visita
Posts postados por igadino
-
-
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 -
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) -
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
-
ninguém ainda conseguiu? estou no aguardo.
-
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,
-
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
-
Assim tambem não funciona
-
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> -
já tentei faer mais não deu certo.
-
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}); } <!-- 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 (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> -
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}); } <!-- 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 (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> -
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> -
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> -
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 -
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.
-
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.
-
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 -
já tentei
Assim
response.write DestacaTexto(""&rs("versiculo")&"<br>"))E assimresponse.write DestacaTexto(textoBD, n_palavras(""&rs("versiculo")&"<br>"))) -
Continua dando erro
-
Tente usar ela para você ver não estou conseguindo
tente montah ela para mim
fico grato
-
Continua dando o mesmo erro
-
já declarei todas as variavel mas continua dando erro
-
Continua dando erro não sei mas o que faço
-
Falta um como assim voce pode fazer um exemplo porque não entendir e qual esta faltando
TECLA WINDOWS DO TECLADO
em Tutoriais & Dicas - .NET
Postado · Editado por igadino
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