Ir para conteúdo
Fórum Script Brasil

hara

Membros
  • Total de itens

    98
  • Registro em

  • Última visita

Posts postados por hara

  1. Vou tentar detalhar o máximo possivel a situação... Vê se podem me ajudar...

    Criei um frameset no index.html:

    <frameset framespacing="0" border="no" frameborder="0" rows="116,*">
     <frame src="topo.html" scrolling="no">
     <frame src="meio.html" name="corpo">
    </frameset><noframes></noframes>
    No arquivo meio.html, criei uma tabela:
    <table width="80%" border="0" cellpadding="0" cellspacing="0">
     <tr>
       <td bgcolor="#CCCCCC"><p>&nbsp;</p>
       <p>&nbsp;</p>
       <p>&nbsp;</p>
       <p>&nbsp;</p>
       <p>&nbsp;</p>
       <p>&nbsp;</p>
       <p>&nbsp;</p>
       <p>&nbsp;</p>
       <p>&nbsp;</p>
       <p>&nbsp;</p>
       <p>&nbsp;</p>
       <p>&nbsp;</p>
       <p>&nbsp;</p>
       <p>&nbsp;</p>
       <p>&nbsp;</p>
       <p>&nbsp;</p>
       <p>&nbsp;</p>
       <p>&nbsp;</p>
       <p>&nbsp;</p>
       <p>&nbsp;</p>
       <p>&nbsp;</p>
       <p>&nbsp;</p>
       <p>&nbsp;</p>
       <p>&nbsp;</p></td>
     </tr>
    </table>

    Não sei se isso ira acontecer com vocês, mas quando estoura a barra de rolagem vertical, estoura a horizontal também, mesmo sem ter nada demais na horizontal.

    Agradeço se alguém puder me ajudar a remover essa rolagem horizontal...

    Fernando Hara

  2. Vou tentar detalhar o máximo possivel a situação... Vê se podem me ajudar...

    Criei um frameset no index.html:

    <frameset framespacing="0" border="no" frameborder="0" rows="116,*">
      <frame src="topo.html" scrolling="no">
      <frame src="meio.html" name="corpo">
    </frameset><noframes></noframes>
    No arquivo meio.html, criei uma tabela:
    <table width="80%" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td bgcolor="#CCCCCC"><p>&nbsp;</p>
        <p>&nbsp;</p>
        <p>&nbsp;</p>
        <p>&nbsp;</p>
        <p>&nbsp;</p>
        <p>&nbsp;</p>
        <p>&nbsp;</p>
        <p>&nbsp;</p>
        <p>&nbsp;</p>
        <p>&nbsp;</p>
        <p>&nbsp;</p>
        <p>&nbsp;</p>
        <p>&nbsp;</p>
        <p>&nbsp;</p>
        <p>&nbsp;</p>
        <p>&nbsp;</p>
        <p>&nbsp;</p>
        <p>&nbsp;</p>
        <p>&nbsp;</p>
        <p>&nbsp;</p>
        <p>&nbsp;</p>
        <p>&nbsp;</p>
        <p>&nbsp;</p>
        <p>&nbsp;</p></td>
      </tr>
    </table>

    Não sei se isso ira acontecer com vocês, mas quando estoura a barra de rolagem vertical, estoura a horizontal também, mesmo sem ter nada demais na horizontal.

    Agradeço se alguém puder me ajudar a remover essa rolagem horizontal...

    Fernando Hara

  3. O erro está ocorrendo na linha 49 do arquivo senha.asp ! Precisaria ver exatamente os arquivos que você está usando pra ver se posso ajudar, mas provavelmente, você deve ter uma linha conexao.close em algum lugar do seu script antes dessa linha 49 !

    Se quiser, posta as linhas com problemas pra que possamos analisar !

    Fernando Hara

  4. Existem diversos componentes para fazer upload em ASP, precisa ver o que o seu servidor possui...

    Vou postar o exemplo de uso do DundasUpload, um dos mais comuns:

    <%
    Response.Buffer = true
    on error resume next
    
    'declara as variáveis
    dim objUpload
    dim strMessage
    
    'cria instância do objeto
    set objUpload = server.CreateObject("Dundas.Upload.2")
    
    'verifica um possível erro
    if err.number <> 0 then
    Response.Redirect "Dundas.asp?Message=" & err.description
    end if
    
    'estipula o tamanho máximo do arquivo
    objUpload.MaxFileSize = 1048576 
    
    'formatando o nome do arquivo
    objUpload.UseUniqueNames = false
    
    'informa o path onde os arquivos serão salvos
    'obs: o diretório deve ter permissão de escrita
    objUpload.Save "e:home\xyz\web\teste"
    
    dim temp
    
    'verifica erro
    if IsEmpty(objUpload.Form("txtName")) = false then temp = " "
    if err.number <> 0 then
    strMessage = objUpload.Form("txtName") & temp & "Falha, ocorreu o erro: " & err.description
    
    'mensagem de sucesso
    else
    strMessage = "Upload realizado com sucesso pelo" & temp & objUpload.Form("txtName") & "."
    end if 
    
    Response.Redirect "Dundas.asp?Message=" & strMessage
    
    'destroi o objeto
    set objUpload = nothing
    %>

    Se precisar de código de outro componente, posta ae !

    Fernando Hara

  5. Perfeito Décio...

    Essa é a conexão feita pelo ODBC 3.51, eu estava procurando o nome exato dela...

    Caso seu server tenha essa versão de ODBC instalada, basta você colocar esse comando, caso contrário, você deve configurar no ODBC do painel de controle e usar o conn.open("nome_da_fonte_odbc") sendo o conn um ADODB.

    Falow

    Fernando Hara

  6. Normalmente os provedores fornecem conexão de ASP com MySQL através de ODBC... Você entra no painel de controle, configura o ODBC e conecta da mesma maneira que você conecta o banco de dados Access !

    Se precisar de alguma ajuda pra isso, posso pesquisar no site do MySQL e ver se tem algum jeito sem o ODBC !

  7. Muitas pessoas haviam perguntado como meus scripts não tinham o $_GET e $_POST nas váriaveis...

    Eu uso $variavel ao invés de $_POST["variavel"] !

    É só criar um arquivo conf.php com o seguinte código

    if ($HTTP_POST_VARS) {
        while (list ($key, $val) = each ($HTTP_POST_VARS)) {
         ${$key} = $val;
        }
    } elseif ($_POST) {
        while (list ($key, $val) = each ($_POST)) {
         ${$key} = $val;
        }
    }
    if ($HTTP_GET_VARS) {
        while (list ($key, $val) = each ($HTTP_GET_VARS)) {
         ${$key} = $val;
        }
    } elseif ($_GET) {
        while (list ($key, $val) = each ($_GET)) {
         ${$key} = $val;
        }
    }
    e incluir a seguinte linha no inicio dos arquivos PHP...
    @include_once("conf.php")

    Abraços

    Fernando Hara

  8. Pessoal,

    Como faço pra descomprimir um arquivo .zip inteiro pra dentro de uma pasta no PHP ?

    Já tentei usando o zip_open, mas não tenho esse componente no meu servidor... Alguém tem a rotina do gzip ?

    Caso alguém tenha interesse, abaixo a função de unzip com zip_open:

    function unzip($fln, $path) {
      $zip = zip_open($fln);
      if ($zip) {
        while ($zip_entry = zip_read($zip)) {
          if (zip_entry_filesize($zip_entry) > 0) {
            // str_replace must be used under windows to convert "/" into "\"
            $complete_path = $path.str_replace('/','\\',dirname(zip_entry_name($zip_entry)));
            $complete_name = $path.str_replace ('/','\\',zip_entry_name($zip_entry));
            if(!file_exists($complete_path)) { 
              $tmp = '';
              foreach(explode('\\',$complete_path) AS $k) {
                $tmp .= $k.'\\';
                if(!file_exists($tmp)) {
                  mkdir($tmp, 0777); 
                }
              } 
            }
            if (zip_entry_open($zip, $zip_entry, "r")) {
              $fd = fopen($complete_name, 'w');
              fwrite($fd, zip_entry_read($zip_entry, zip_entry_filesize($zip_entry)));
              fclose($fd);
              zip_entry_close($zip_entry);
            }
          }
        }
        zip_close($zip);
      }
    }
    Pra descompactar:
    unzip("/folder/file.zip","/folder_to_unzip/");

    Abraços

    Fernando Hara

  9. Para enviar mensagens SMS, você precisa estar num server com o serviço habilitado com as operadoras ou ter um script de um site que tenha este tipo de serviço...

    Uma empresa boa que conheço é a VOLA www.vola.com.br , eles fornecem serviços de SMS para instalar na sua página... e eles enviam mensagens para Vivo, BCP, TIM, Oi, etc...

  10. <%

    Set Mailer = CreateObject("CDONTS.NewMail")

    Mailer.From = "eu@dominio.com.br" ' e-mail de quem esta enviando a mensagem

    Mailer.To = "conta@destinatario.com.br" ' e-mail de quem vai receber a mensagem

    Mailer.CC = "conta@destinatario.com.br" ' Com Cópia

    Mailer.BodyFormat = 1 ' parametro de formatação 
    Mailer.MailFormat = cdoMailFormatText ' parametro de formatação

    Aqui você configura se é texto ou html !

    Mailer.AttachFile "e:\home\login\dados\arquivo.txt" 'caso queira anexar algum arquivo ao seu e-mail

    Mailer.Subject = "Assunto do E-mail"

    Mailer.Body = "<html><body>TESTE</body></html>"

    Mailer.Send

    Set Mailer = Nothing

    %>

×
×
  • Criar Novo...