Ir para conteúdo
Fórum Script Brasil

DataSet

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    367

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por DataSet

  2. Imprimir

    em ASP

    Postado

    na função do onclick você dá um focus no frame que quer imprimir.

    Ex:

    frame.focus();
windows.print();

    Se você tiver um botao em um frame, e usar o codigo acima, você vai direcionar o focus para o outro frame e ele vai imprimir.

    Para voltar a imprimir a frame que contém o botão é necessário usar o codigo acima, mas dando o focus no outro frame.

    Quaquer coisa tecla aí...

  4. Sistema Boleto Bancario

    em ASP

    Postado

    A parte mais difícil não é ó código ASP para gerar o boleto, e sim a conta corrente, é preciso ter o serviço de carteira que permite o pagamento por boleto. Pra isso a maioria dos bancos te dá duas opções de emissão de boleto.

    A primeira opção é cobrado uma taxa 2,50 ( + ou -) por boleto pago. Essa opção o banco não sabe da existencia do boleto até o dia em que é feito o pagamento, passando o valor para a sua conta, para cada boleto pago ele desconta da sua conta os 2,50 por isso que repassamos para o cliente essa diferença, então em vez do cliente pagar 35 reais ele pagará 37,50

    A outra opção, é que ele cobra 2,50 (+ ou -) por boleto gerado, então você envia um doc dos boletos gerados pra lá, e ele desconta da sua conta esse valor de 2,50 X a quantidade de boleto gerado numa paulada só.

    A diferença é que nessa opção o banco fica acompanhando o boleto, se ele não for pago, o banco envia o boleto pra protesto e outros serviços a mais.

    Esolha um banco de sua preferência, e após acertar todos os passos com o seu gerente, entre em contato aqui no forum pra ver se você encontra um boleto do banco escolhido, já que alguns bancos trabalham com codificação diferenciada.

  7. Ao Digitar Procura Valores Na Combo

    em Ajax, JavaScript, XML, DOM

    Postado

    Olá pessoal, segue este exemplo que achei nos scripts prontos aqui do fourm, o código faz o seguinte, a pessoa digita num input e ele faz a busca na combo, deixando selecinado a opção que mais se assemelha ao digitado no input.

    Eu preciso de algo assim, mas não posso ter um input, a pessoa clica na combo, daí ela fica azul, pois está selecionada, e vai digitando ali mesmo, e ele vai fazendo a pesquisa

    http://scriptbrasil.com.br/forum/index.php...st&p=207163

    Veja esse exemplo acima, como fazer a mesma coisa sem usar input? usando a própria combo ?

    Valeu

  8. Função Ao Sair Da Página

    em Ajax, JavaScript, XML, DOM

    Postado

    Olá turma.... tenho essa função que ao sair da página ( X ) ele abre uma pop up, então se o usuário não se deslogou, eu mostro uma mensagem pra ele.... eis a função

        <script language='Javascript'> 
    function leave() { 
        window.open('../meio.asp','','toolbar=no,menubar=no,location=no,height=500,width=500'); 
    } 
    </script>
    Mas tenho Frames, veja: 
    <html>
<head>
<title>SWSIS - optimizes realtions 2006</title>
<link rel='shortcut icon' href='../paratodos/imagens/swsis/swsis2.ico'>
<script language='Javascript'>
function leave() {
    window.open('frontend/meio.asp','','toolbar=no,menubar=no,location=no,height=500,width=500');
}
</script>
</head>
    <frameset rows='1,*' frameborder='NO' border='0' framespacing='0'>
        <frame name='cabecalho' scrolling='no' noresize target='cabPrin' src='#'>
        <frame name='principal' src='frontend/index.asp'>
        <noframes>
            <body>
              Esta página usa quadros mas seu navegador não aceita quadros.
            </body>
        </noframes>
    </frameset>
</html>

    Acontece que se eu colocar só a função na página, ela roda, mas se eu colocar junto com o restante do código, que é os frames, ela não roda, o exemplo acima mostra o codigo inteiro.

    Será que tem como fazer funcionar ? Já tentei colocar a função dentro de um dos frames, mas também não roda.

    Valeu pela ajuda.

  9. Filtrar Usando O Combo Box

    em ASP

    Postado

    O ao clicar em APLICAR, você da um submit na página index.asp, e no select faça o um WHERE onde o codigo da marca seja igual ao valor que você selecionou na combo.

    EX: Coloque o codigo abaixo dento das tags ASP

    IF request("id_table") <> "" THEN
  Set tabMar = Server.CreateObject("ADODB.RecordSet")
  sql = "SELECT nome1, nome2, nome3 FROM marcas where codMarca = " & request("id_table")
  tabMar.Open sql, conSTR

    WHILE not tabMar.EOF
       respons.write ....
       tabMar.MoveNext
    WEND

END IF

    id_tabl é o nome da sua combo.

    desse jeito que você fez não dá :

    <a href="index7.asp?Fmarca="&id_table.selected>APLICAR</a>

    Troque por:

    <button name=enviar onclick='Form1.submit()'>Enviar</button> (Coloque dentro do seu FORM)

    Troque os nomes do campos do SELECT de acordo com sua tabela, qualquer coisa tecla aí...

  10. Banco De Dados Em Asp

    em ASP

    Postado 

    Set tabPal = Server.CreateObject("ADODB.RecordSet")
sql = "SELECT nomPal FROM tabela WHERE nomPal like '%"&request("strBusca")&"%'"
tabPal.Open sql, conSTR

WHILE not tabPal.EOF
      response.write "<tr><td>"&tabPal("nomPal")&"</td></tr>"
      tabPal.MoveNext
WEND

  14. Preciso De Uma Ajuda Pra Impressão

    em ASP

    Postado

    Olá... Eu tenho um sitema para uma escola, e eles imprimem diploma de conclusão do curso. Esse sistema é acessado em 4 filiais, e estão reclamando constantemente do desperdício de folha, é uma folha timbrada da empresa, etc... e tal...

    A impressao sai desalinhada, as vezes a margem direita fica maior que a esquerda, e vise e versa com a superior e inferior. Eles mudam as configurações de página do IE e esquecem de colocar novamente nas margens corretas, e o pior, além de trocarem, as vezes a secretária de uma das filiais não sabe arrumar... daí eles não imprimem mas nada...

    Como eu posso resolver esse problema da impressão, alguém tem uma ideia ?

  15. Fotos Aleatórias Na Home Page, Relacionada Aos Ultimos Eventos

    em ASP

    Postado

    Crie um arquivo chamado RandomImage.inc

    Conteúdo desse arquivo:

    <%
  Function RandomImage(strPath,strDefault)
    On Error Resume Next
    Randomize Timer

    Dim objFSO, objFolder, objFiles, objFile
    Dim strFiles, strImages, strPhysical, strFile

    Const strValid = ".gif.jpg.png"

    If Right(strPath,1) <> Chr(47) Then strPath = strPath & Chr(47)
    strPhysical = Server.MapPath(strPath)
    Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder(strPhysical)
    Set objFiles = objFolder.Files

    For Each objFile in objFiles
      strFile = LCase(objFile.Name)
      If Instr(strValid,Right(strFile,4)) Then
        strFiles = strFiles & strFile & vbTab
      End If
    Next

    strImages = Split(strFiles,vbTab)
    
    If UBound(strImages) > 1 Then
      RandomImage = strPath & strImages(Int(Rnd(1)*UBound(strImages)))
    Else
      RandomImage = strDefault
    End If

  End Function
%>
    Crie um arquivo chamado randomimages.asp Conteúdo desse arquivo: 
    <% @Language="VBScript" %>
<% Option Explicit %>
<html>
<head>
<!--#include virtual="/includes/RandomImage.inc"-->
</head>
<body>
<div align="center"><center>
<table border="1">
  <tr>
    <td bgcolor="#ffffff">
      <img src="<%=RandomImage("/images/","/images/default.gif")%>">
    </td>
  </tr>
</table>
</center></div>
</body>
</html>

    Arrume o include virtual de acordo com a estrutura das suas pastas aí

    Se você passar o primeiro paramentro na chamada da função, ele vai mostrar as imagem ramdomicamente, se ele não achar nenhuma imagem na pasta, ele mostra a imagem referente ao segundo parametro.

    Qualquer coisa tecla aí

  17. Problemas Com O Www.domaindlx.com

    em ASP

    Postado

    Troca por esse codigo e roda, como não testei aqui, pode ser que apareça pequenos erros. Se der algum erro, tecla aí.

    <%
set Conn = server.createobject("adodb.connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="mechaangel/database/speed_search.mdb;"
    
set Rec = server.CreateObject("ADODB.Recordset")
strSQL = "SELECT url, decricao FROM search WHERE url LIKE '%"&Request("search")&"%' OR descricao LIKE '%"&Request("search")&"%'"
Rec.Open strSQL,Conn
IF not Rec.EOF THEN
    while not Rec.eof
        response.write Rec("url")%> & "<br>" & Rec("descricao")
        Rec.movenext
    WEND
END IF
Rec.close
set Rec = nothing
set Conn = nothing
%>

  18. Sistema De Login

    em ASP

    Postado

    Eu acho que neste caso você está acessando a intranet dessa empresa. Aqui onde eu trabalho tem um caso assim.

    Se eu acessar de casa, vai abrir a caixa de login e senha, como essa que abre ao tentar acessar ftp pelo windows explorer. Eu imagino que no iis, exista a restrição para abrir a pagina asp com usuário atenticado.

  20. Duvida Form

    em ASP

    Postado

    O erro é que o servidor não dá suporte para o mailmsg.Host

    Provavelmente ele não tem esse componente instalado ou ele não está rodando. Entre em contato com o suporte pra ver quais componentes de envio de email eles tem instalado no component services.

  22. Imprimir

    em ASP

    Postado

    Na janela internet explorer vai em Ferramentas => Opções => Avançado => Procura por Impressora e deixe a caixinha imprimir caixa de fundo...

    Dá OK e manda imprimir agora, se não der resultado, feche a janela, abra uma outra e imprima...

    Qualquer coisa, tecla aí...

  24. Que Banco De Dados Usar?

    em ASP

    Postado

    SQL SERVER é excelente, já passei por uma experiência trágica de ter que trocar de banco. Tive que alterar um monte de códigos, refazer a modelagem e tudo mais... foram 25 dias penosos... Por isso pensar e discutir o projeto com a equipe de desenvolvimento antes é muito importante, porque depois de desenvolvido e implantado, é complicado fazer migrações.

    PostgreSQL e SQL SERVER são recomendados para projetos grandes.

  25. Retornar Erro

    em ASP

    Postado 

    SELECT login, url, FROM tabela WHERE login = '" & request("login") & "'" OR url = '"&request("url")&"'"
IF not tabSel.EOF THEN
   IF tabSel("login") <> "" THEN auxLogin = tabSel("login") END IF
   IF tabSel("url") <> "" THEN auxURL = tabSel("url") END IF
END IF
tabSel.Close
Set tabSel = Nothing

IF auxLogin  <> "" OR auxURL <> "" THEN

   response.write _
   "Os dados abaixo já estão gravados no banco: " & _
   auxLogin & "<br>" & _
   auxUF & "<br>" & __
   "Por motivo de segurança, não é permitido ter dois logins cadastrados. Redigite um login diferente."

ELSE

   INSERT INTO tabela SET  ...

END IF
    

×
×
  • Criar Novo...