Ir para conteúdo
Fórum Script Brasil

Ted k'

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    252

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por Ted k'

  13. Prazo de frete do correio

    em ASP

    Postado

    creio que não tem essa variável, pois os correios trabalham por regiões, exemplo, no nordeste leva de 5 a 10 dias, no sul de 3 a 5, e por ai vai, entre no site dos correios e peça a tabela, depois faça as condições necessárias!!

  14. Notificar usuário

    em ASP

    Postado

    o asp trabalha com requisição, se você criar uma página de envio e deixar ela aberta você pode fazer uma função para enviar no dia previsto, caso contrário ASP.NET pode te auxiliar melhor nisso, pois não precisará da página aberta e nem de um evento toda hora!

  23. (Resolvido) Inserindo no formações no Banco Mysql pelo ASP

    em ASP

    Postado · Editado por Ted k'

    seu sql está certo o que pode está errado é o nome dos formulários!

    verifica o nome dos campos e faz isso,

    sql = "insert into cadastro (nome, titulo, noticia, autor) values ('" & nome & "', '" & titulo & "', '" & noticia & "', '" &autor& "')"
cnn.execute(sql)
response.write("cadastrado")

    não precisa setar na hora de inserir e coloque uma resposta!!

  24. Acentuação e código HTML

    em ASP

    Postado

    você pode cadastrar usando replace:

    <%
var = "<img='imagem.gif'><br><a href="">link</a>Imagem"

Function TratarCaracteres(Caracter)
    Caracter = Replace(Caracter, "'", "''")
    Caracter = Replace(Caracter, "<", "&lt;")
    Caracter = Replace(Caracter, ">", "&gt;")
    TratarCaracteres = Caracter
End Function

Response.write TratarCaracteres(var)
%>

  25. Persits.Pdf

    em Repositório de Scripts - ASP

    Postado

    Esse script pega a página do terra e converte, bloqueia para não modificar e não copiar e ainda gera paginação!

    <!--METADATA TYPE="TypeLib" UUID="{414FEE4B-2879-4090-957E-423567FFCFC6}"-->
<%
' Início - Mostrar Contrato : Gerar PDF '
    Dim Pdf, Doc, Page
    Set Pdf = Server.CreateObject("Persits.Pdf")
    Set Doc = Pdf.CreateDocument

        Doc.ImportFromUrl "http://www.terra.com.br"
        Doc.Encrypt "7658tedk4784584754747584484584854484545", "", 40, PdfFull And (Not PDFModify) And (Not PDFCopy)

        For Each Page In Doc.Pages
            Page.Canvas.DrawText "Pág."&Page.Index&"/"&Doc.Pages.Count&"", "x=15, y=20", Doc.Fonts("Arial")
        Next

    Doc.SaveHttp("attachment; filename=Contrato.pdf")
' Final - Mostrar Contrato : Gerar PDF '
%>
    Para obter mais informações do Persits.Pdf, acesse o site aqui com manual e confira as informações, algumas delas disponibilizei aqui como por exemplo: Bloquear pdf para Impressão = pdfPrint, olha outros exemplo aqui abaixo: 
    pdfFull = &HFFFFFFFC (all significant bits)
pdfPrint = &H04 (Bit 3)
pdfModify = &H08 (Bit 4)
pdfCopy = &H10 (Bit 5)
pdfAnnotations = &H20 (Bit 6)
pdfForm = &H0100 (Bit 9)
pdfExtract = &H0200 (Bit 10)
pdfAssemble = &H0400 (Bit 11)
pdfPrintHigh = &H0800 (Bit 12)

    A METADATA server para identificar os parâmentros de bloqueio:

×
×
  • Criar Novo...