Ir para conteúdo

xanburzum

Members
  • Total de itens

    12150
  • Registro em

  • Última visita

  • Dias vencidos

    9

xanburzum venceu o dia em Maio 7

Teve o conteúdo mais curtido

Reputação

169 Muito Bom

Sobre xanburzum

  • Classificação
    Sr.
  • Data de Nascimento 04/11/1976

Informações Pessoais

  • Sexo
    Masculino
  • Localização
    Piracicaba/SP
  • Interesses
    - HTML, CSS, PHP, ANDROID, JAVASCRIPT, Jquery, ASP.net, C#, Pyton, APIs do Windows com Visual Studio, SQL, DreamWeaver, Etc..

Últimos Visitantes

11854473 visualizações
  1. xanburzum

    Problema na leitura do Arquivo

    qual erro esta gerando ?
  2. xanburzum

    Comparar horário pra marcar consulta

    você pode comprara direto na SQL também, pode gerar um ganho de performance
  3. xanburzum

    Pegar trecho de string

    Existe um função que postei onde você pode trabalhar com vários métodos de string, tem um monte na mesma função, também pode ajudar
  4. Aqui eu tenho um exemplo usando radio, dá uma olhada HTML <span id="radiobutt"> <input type="radio" name="rad1" value="1" /> <input type="radio" name="rad1" value="2" /> <input type="radio" name="rad1" value="3" /> </span> <div> <input type="text" id="textbox1" /> <input type="checkbox" id="checkbox1" /> </div> Javascript $("#radiobutt input[type=radio]").each(function(i){ $(this).click(function () { if(i==2) { //3rd radiobutton $("#textbox1").attr("disabled", "disabled"); $("#checkbox1").attr("disabled", "disabled"); } else { $("#textbox1").removeAttr("disabled"); $("#checkbox1").removeAttr("disabled"); } }); });
  5. xanburzum

    Como fazer parser em ASP?

    Dá uma olhada aqui Fabiano
  6. xanburzum

    Apontamento CNAME de domínios para url amigável

    olha este exemplo, sistema de url amigável sem o uso do ISAPI Rewrite mas com algumas limitações, não tenho muito conhecimento em programação mas com ajuda de muitos aqui do forum consegui chegar a um resultado satisfatório, aí vem uns e perguntam: mas você pode usar o componente ISAPI-Rewrite que resolve o problema, mas o problema é que eu não posso migrar de servidor pois nem todos tem instalado todos componentes que uso em meus sites, e como tenho sites com mais de 20.000 fotos cadastradas com resolução de 1.200x800 pixels sem contar as miniaturas, então daria um trabalho imenso para migrar tudo isso e mais um pouco. Então vamos vamos à parte que mais deu trabalho que foi a codificação de caracteres, já faz 15 dias que eu estou tentando de tudo para acertar os benditos acentos, já salvei as páginas com codificação utf-8, iso-8859-1, Latim 1, ASCII. Já mudei no banco de dados conforme a codificação das páginas, já fiz de tudo e nada, então estou postando todo trabalho para que alguém teste e encontre uma solução: INSTRUÇÕES: 1 - coloque endereço completo em todas âncoras das páginas que levam a exibição dos dados, incluindo o endereço do arquivo .css 2 - crie uma página idêntica à página que recebe os dados, exemplo(produtos.asp) para (produtos2.asp) 3 - coloque o endereço completo de de url em todos os links de todas as páginas, assim como no arquivo .css. 4 - crie pastas com os nomes de todas sessões e/ou categorias existentes separados por (-) ex:(receitas-com-aves) em seu site e dê as devidas permissões de escrita e leitura. 5 - crie uma tabela no bancos de dados chamada "sitemaps" contendo os campos ("id" AUTO_INCREMENT) e ("url" longtext) com as configurações: CHARSET=utf8 COLLATE=utf8_general_ci . 6 - lembre-se de setar as permissões onde os arquivos serão gravados assim como seu seu arquivo sitemap.txt . 7 - crie uma página com o nome "criar-pagina.asp" . Obs: o problema é que eu acho que não serve para lojas virtuais. vamos então, abra o arquivo que recebe os dados(produtos.asp) e coloque as instruções abaixo da consulta que mostra os dados: 'Aqui eu informo a sessão do produto substituindo os espaços por traço, eu acho que não preciso mostrar as outras variáveis. 'Aqui eu fiz uma consulta no banco e recuperei a sessão o produto que estava cadastrado. sessaoMenu = replace(LCase(strNomeSessao)," ","-") If Request.QueryString("produto") <> "" Then 'Informe todas variáveis do produto na url arquivo (produtos2.asp) que é a cópia criada por você, no meu caso eu estou passando outras variáveis pela url porque preciso delas para compor as metas tags do meu cabeçalho. srturl = ("http://www.seusite.com.br/produtos2.asp?produto="&intProdID&"&nome="&strNomeProduto&"&sessao="&sessaoMenu&"&tag="&strTag&"&descricao="&strDescricao&"&imagem="&strImagem&"") 'Aqui redireciona para a página criar-pagina.asp passando as variáveis informadas acima. Response.Redirect ("criar-pagina.asp?SURL="&srturl&"") Else 'Fechar a condição no final da página. end if criar-pagina.asp <% Dim strProdID Dim strNomeProduto Dim StrSURL Dim strSessao Dim strTag Dim strNota Dim strImagem Dim CAcento Dim SAcento Dim titulo Dim pagina Dim caminho Dim link Dim strSite Dim strCodigo Dim codigo Dim xmlhttp Dim GRAVAR Dim FSO Dim htmlspecialchars_decode Dim strEnderecoPagina Dim sitemaps Dim link_sitemap Dim caminho_sitemap Dim ArqTxt 'Função para remover acentos. Function TirarAcento(Palavra) CAcento = "àáâãäèéêëìíîïòóôõöùúûüÀÁÂÃÄÈÉÊËÌÍÎÒÓÔÕÖÙÚÛÜçÇñѺª" SAcento = "aaaaaeeeeiiiiooooouuuuAAAAAEEEEIIIOOOOOUUUUcCnN" Texto = "" If Palavra <> "" then For X = 1 To Len(Palavra) Letra = Mid(Palavra,X,1) Pos_Acento = InStr(CAcento,Letra) If Pos_Acento > 0 Then Letra = mid(SAcento,Pos_Acento,1) Texto = Texto & Letra Next TirarAcento = Texto End If End Function 'Função para decodificar o conteúdo. Function htmlspecialchars_decode(someString) htmlspecialchars_decode = replace(replace(replace(replace(someString, "&amp;", "&"), "&gt;", ">"), "&lt;", "<"), "&quot;", """") End Function ' ------------------------------------------------------------------------------ 'Recupera as variáveis. strNomeProduto = Request.QueryString("nome") strSURL = Request.QueryString("SURL") strSessao = Request.QueryString("sessao") strTag = Request.QueryString("tag") strDescricao = Request.QueryString("descricao") strImagem = Request.QueryString("imagem") 'Tratando as variáveis com replace para substituir espaços por traço e em letras minúsculas, e removendo acentos. strNomeProduto = replace(TirarAcento(LCase(strNomeProduto))," ","-") strSessao = replace(TirarAcento(LCase(strSessao))," ","-") 'Informe aqui o endereço do seu site, não remova a barra. strSite = "http://www.seusite.com.br/" 'Aqui vamos montar o nome da nova página com a extensão html. titulo = strNomeProduto&".html" 'Aqui informamos a pasta onde será gravada a nova página. pasta = strSessao&"/"&titulo 'Aqui informamos o link da página a ser acessada. link = strSURL&"&nome="&strNomeProduto&"&descricao="&strDescricao&"&tag="&strTag&"&imagem="&strImagem ' ------------------------------------------------------------------------------ 'Aqui acessamos a página informada e pegamos o código fonte dela. Set xmlhttp = Server.CreateObject("Microsoft.XMLHTTP") xmlhttp.Open "GET",link, False xmlhttp.setRequestHeader "ContentType","text/html" xmlhttp.setRequestHeader "charset","utf-8" 'use a codificação que melhor lhe atender xmlhttp.setRequestHeader "Encoding","utf-8" 'use a codificação que melhor lhe atender xmlhttp.Send strCodigo = xmlhttp.ResponseText codigo = Server.HTMLEncode(strCodigo) ' ------------------------------------------------------------------------------ 'Aqui criamos o objeto para gravar a página na pasta conforme sua sessão. Set FSO = Server.CreateObject("Scripting.FileSystemObject") caminho = Server.MapPath(pasta) Set GRAVAR = FSO.CreateTextFile(caminho,true) 'Aqui gravamos todo código fonte dentro da nova página. gravar.write htmlspecialchars_decode(codigo) gravar.close ' ------------------------------------------------------------------------------ 'Aqui informamos o endereço completo da nova página. strEnderecoPagina = strSite&pasta 'Gravamos o endereço da nova página no banco de dados,e verificamos se já existe o mesmo nome gravado, OBS. coloque um include que faz a conexão com seu banco de dados. Set sitemaps = abredb.Execute("SELECT * FROM sitemaps WHERE url='"& strEnderecoPagina &"';") if sitemaps.eof and sitemaps.bof then link_sitemap = strEnderecoPagina sitemaps = "INSERT INTO sitemaps (url) VALUES ('"&link_sitemap&"')" abredb.execute(sitemaps) 'Com a mesma condição vamos gravar um novo link no arquivo sitemap.txt. Set FSO = Server.CreateObject("Scripting.FileSystemObject") caminho_sitemap = "c:/domains/seusite.com.br/wwwroot/sitemap.txt" 'O parâmetro forReading é utilizado somente para leitura. Const forReading = 1, forWriting = 2, forAppending = 8 'Instancia o objeto FSO. Set Fso = CreateObject("Scripting.FileSystemObject") 'Abre o arquivo com o método OpenTextFile. Set ArqTxt = Fso.OpenTextFile(caminho_sitemap,8,True) 'Arquivo aberto, escreve no arquivo. ArqTxt.WriteLine link_sitemap 'Fecha o arquivo com o método Close. ArqTxt.Close 'Destrói o objeto. Set ArqTxt = nothing else strEnderecoPagina = strEnderecoPagina end if sitemaps.close sitemaps.nothing ' ------------------------------------------------------------------------------ 'Pronto, fazemos um redirecionamento para a página recém criada. Response.Redirect strEnderecoPagina %>
  7. xanburzum

    Chamada de funções em ASP

    tem exemplos que postei no fórum em como chamar função JS
  8. xanburzum

    PAGINAÇÃO

    Use URL Amigáveis... coloquei alguns exemplos no fórum
  9. xanburzum

    Conexão JSON com BD Access e FrontEnd com Angular

    aqui tem um exemplo em SQL Server + ANgular, vê se ajuda https://mega.nz/#!eosQCBZS!aVPbuEDbBYxj8pK_KPpb3cgtHZwI2g0FUcURBbEd8gU
  10. xanburzum

    Paginação Moderna Bootstrap

    Tem alguns exemplos que postei, dá uma olhada vai te ajudar
  11. Olha este exemplo; Solicitando confirmação de leitura de email atraves do disposition-notification-to e return-receipt-to <% Dim objCDO Set objCDO = Server.CreateObject("CDO.Message") objCDO.From = email objCDO.To = contact 'objCDO.CC = "xan@xanburzum.net" objCDO.Subject = "" & subject objCDO.htmlBody = "Detalhes: " & detalhes & " <br> Este e-mail de Vendas. " 'objCDO.CreateMHTMLBody ("http://teste.xan.net/email.asp?msg=1") objCDO.fields("urn:schemas:mailheader:disposition-notification-to") = "admin@xan.net" 'Digite um e-mail válido objCDO.fields("urn:schemas:mailheader:return-receipt-to") = "financeiro@xan.net" 'Digite um e-mail válido objCDO.DSNOptions = 14 objCDO.fields.update objCDO.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing")=2 'Nome ou IP do servidor SMTP remoto objCDO.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") _ ="XXX.teste.com" 'Server port objCDO.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _ =25 objCDO.Configuration.Fields.Update objCDO.send Set objCDO = Nothing %>
  12. xanburzum

    Servico nao sobe

    tente isso: 1) Clique com o botão direito do mouse na referência de serviço 2) Selecione Configurar referência de serviço 3) Desmarque ""Reuse types in referenced assemblies" ("Tipos de reutilização em assemblies referenciadas")
  13. resolvi assim: Try Dim from As String = "**@chospir.com.br" Dim [to] As String = "**@hotmail.com" Dim user As String = "**" Dim pass As String = "**" Dim message As MailMessage = New MailMessage(from, [to], "SMTP Teste", "Eu sou o corpo da mensagem") Using smtp As SmtpClient = New SmtpClient("smtplw.com.br", 587) smtp.Credentials = New NetworkCredential(user, pass) smtp.Send(message) End Using MessageBox.Show("E-mail enviado com sucesso !") Catch ex As Exception MessageBox.Show("Ocorreram problemas no envio do e-mail. Erro = " & ex.Message) End Try
  14. Olá quintelab... segue: Porém precisa passar o nome do usuário do serviço SMTP autenticado, Senha do SMTP autenticado, Email de remetente, Senha deste email, Servidor de Saída; em C# tem essas opções no NetworkCredential, no ASP.Net não estou conseguindo localizar, até verifiquei nas propriedades da classe, abaixo um exemplo em C# using System; using System.Net.Mail; using System.Net; namespace SmtpLocawebClient { class Program { static void Main(string[] args) { string from = ""; // E-mail de remetente cadastrado no painel string to = ""; // E-mail do destinatário string user = ""; // Usuário de autenticação do servidor SMTP string pass = ""; // Senha de autenticação do servidor SMTP MailMessage message = new MailMessage(from, to, "SMTP Locaweb Teste", "Eu sou o corpo da mensagem"); using (SmtpClient smtp = new SmtpClient("smtplw.com.br", 587)) { smtp.Credentials = new NetworkCredential(user, pass); smtp.Send(message); } Console.WriteLine("Mensagem enviada com sucesso!"); Console.Read(); } } } existe essas opções no NetworkCredential(user, pass) em ASP.Net/VB.Net, passando o user e senha do serviço autenticado. Valeu pela ajuda
  15. Estou verificando essas propriedades se precisam ser definidas propriedade SmtpClient.DeliveryMethod smtp.DeliveryMethod = SmtpDeliveryMethod.Network ‘ modo de envio e tentar colocar o smtp.UseDefaultCredentials = false ‘ para utilizar credencias especificas Propriedade SmtpClient.UseDefaultCredentials , ela define um valor Boolean que controla se o DefaultCredentials é enviado com solicitações. Valor da Propriedade Type: System.Boolean true se as credenciais padrão forem usadas; caso contrário, false. O valor padrão é false.
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.