Ir para conteúdo
Fórum Script Brasil

Carlos Rocha

Membros
  • Total de itens

    1.302
  • Registro em

  • Última visita

Tudo que Carlos Rocha postou

  1. Como Conectar Sql Server direto, sem odbc. Tenho um site que vai utilizar Sql Server na web e num sei como acessar direto. Como fazer isso?
  2. já resolvi o problema do norton mas acontece que so le um registro e não le todos
  3. Na verdade estou querendo é saber as dimensões width e height e jogar no link pra criar a janela popup com as mesmas dimensoes da figura que sera exibida. Como fazer isso com código javascript?
  4. Olá à Todos, Pessoal, estou postando esta mesma mensagem novamente pis ainda num conesgui solução pro problema(desculpen a ignorancia) Estou usando este script abaixo, para capturar os tamanho de um arquivo. Mas a página num ta dando certo. O que estou fazendo de errado? E na verdade estou querendo é saber as dimensões width e height. Como fazer? No pedaço do código abaixo, num to consiguindo levar as variaveis javascript x e y, para a query string. <script> xImage.src = fotoisr/<%=Rs_fotoisrael("imagem")%> x = xImage.width y = xImage.height function AbreImagemGrande(UrlPagI,NameI,Wi,He,scrolling) { if (!scrolling) { scrolling = 'auto' } PopImagemGrande = window.open(UrlPagI,NameI,'width='+Wi+',height='+He+',scrollbars=no,toolbar=no,location=no,status=no,menubar=no,resizable=no'); } </script> <td valign=top ><center><b><i><%=Rs_fotoisrael("titulo")%></i></b><br><a href=javascript:AbreImagemGrande('fotoisrael_conteudo_con.asp?id=<%=Rs_fotoisrael("id")%>','ImpNot','x','y')><%=foto%></a></center></td> Segue o código completo: <table width=100%><tr><td> <center><b>Clike sobre a foto abaixo para vê-la ampliada</b></center><p> <% strSQl = "Select * FROM fotoisrael order by titulo" Set Rs_fotoisrael = server.createobject("ADODB.Recordset") Rs_fotoisrael.Open strSQl,Conn , 3, 3 %> <table width="590" border="1" align="center" topmargin=50 cellpadding="0" cellspacing="0"> <tr> <% x=0 Do While not Rs_fotoisrael.EOF 'aqui ele vai ver se existe alguma coisa escrita no campo foto_receita na tabela if Rs_fotoisrael("imagem")="" then foto = "<font color=#DEE9EF size=2 face=verdana,arial, Helvetica, sans-serif><strong>Sem foto</strong></font>" else Set FSO = Server.CreateObject("Scripting.FileSystemObject") dir = Server.MapPath("fotoisra") Fnm = dir&"/"&Rs_fotoisrael("imagem") if FSO.FileExists(Fnm) then 'se existir um valor no campo na tabela ele testa se a foto esxiste fisicamente na pasta foto = "<img src=fotoisra/"&Rs_fotoisrael("imagem")&" border=0 width=200 >" else 'se tiver um valor na tabela, mas a foto não existir na pasta a variavel fica setada como sem foto foto = "<font color=#DEE9EF size=2 face=verdana,arial, Helvetica, sans-serif><strong>Sem foto</strong></font>" end if end if x=x+1 %> <script> xImage.src = fotoisr/<%=Rs_fotoisrael("imagem")%> x = xImage.width y = xImage.height function AbreImagemGrande(UrlPagI,NameI,Wi,He,scrolling) { if (!scrolling) { scrolling = 'auto' } PopImagemGrande = window.open(UrlPagI,NameI,'width='+Wi+',height='+He+',scrollbars=no,toolbar=no,location=no,status=no,menubar=no,resizable=no'); } </script> <td valign=top ><center><b><i><%=Rs_fotoisrael("titulo")%></i></b><br><a href=javascript:AbreImagemGrande('fotoisrael_conteudo_con.asp?id=<%=Rs_fotoisrael("id")%>','ImpNot','x','y')><%=foto%></a></center></td> <% if x mod 2 = 0 then response.write "</tr><tr>" end if Rs_fotoisrael.MoveNext Loop %> </tr> </table> </td> </tr> </table>
  5. Olá à Todos, estou usando este script abaixo, para capturar o tamanho se um arquivo. Mas a página tá travando. O que estou fazendo de errado? E na verdade estou querendo é saber as dimensões width e height e o mime type da imagem(se é realmente jpg, gif ou qual extensão ela é realmente. Como fazer? <!--#include file="../global/funcoes.asp" --> <% sql_SELECT = "SELECT * FROM fotoisrael" Set Rs_SELECT = Conn.EXECUTE(sql_SELECT) %> <% Dim ObjFso, ObjArq Set ObjFso = Server.CreateObject("Scripting.FileSystemObject") Set ObjArq = ObjFso.GetFile(Server.MapPath("fotoisra/"&Rs_SELECT("imagem")&"")) %> <% 'Apresenta o tamanho do arquivo Response.Write "Tamanho do arquivo: " & ObjArq.Size & "<br>" 'Apresenta o tipo do arquivo, no caso ASP Response.Write "Apresenta o tipo do arquivo: " & ObjArq.Type & "<br>" %>
  6. Carlos Rocha

    Asp E Popup

    Preciso redimensionar uma janela popup de acordo com as dimensões da figura que ela exibirá. Mas para isso, preciso de um script em asp, que me retorne as dimensões das figuras de um determinado diretório. Tem como, por script em asp, fazer isso? Como? Obrigado!
  7. no script abaixo, como fazer para a variaveis x e y, irem pro link na penultima linha? <script> function abre(imagem) { xImage = new Image() xImage.src = imagem x = xImage.width y = xImage.height window.open(imagem, "popup", "width="+x+",height="+y+", toolbar=no,location=no, status=no, menubar=no, scrollbars=no, resizable=no") } </script> <script> function AbreImagemGrande(UrlPagI,NameI,Wi,He,scrolling) { if (!scrolling) { scrolling = 'auto' } PopImagemGrande = window.open(UrlPagI, NameI, 'width='+Wi+', height='+He+', scrollbars=no, toolbar=no, location=no, status=no, menubar=no, resizable=no'); } </script> <tr><td valign=top ><center><b><i><%=Rs_fotoisrael("titulo")%></i></b><br><a href=javascript:AbreImagemGrande('fotoisrael_conteudo_con.asp?id=<%=Rs_fotoisrael("id")%>','ImpNot','x','y')><%=foto%></a></center></td> </tr> </table>
  8. Carlos Rocha

    Fuções Asp

    Ola pessoal! O php tem as seguintes funções: 1 - Verifica se o mime-type do arquivo é de imagem if(!eregi("^image\/(pjpeg|jpeg|png|gif|bmp)$", $arquivo["type"])) { $erro[] = "Arquivo em formato inválido! A imagem deve ser jpg, jpeg, bmp, gif ou png. Envie outro arquivo"; } 2 - // Faz o upload da imagem move_uploaded_file($arquivo, $diretorio) e no asp, como seria?
  9. Carlos Rocha

    Group By

    Olá pessoal, estou usando a clausula group by no sql server 2000 com o codigo abaixo, e ta dando erro, ue será? <% strSQl = "SELECT * FROM cifras where autor='" & Request.QueryString("autor") & "' group by autor" Set Rs_cifras2 = server.createobject("ADODB.Recordset") Rs_cifras2.Open strSQl,Conn , 3, 3 total= Rs_cifras2.recordcount linha = "4" ' Numero de imagens por linha %> O erro é: Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80040E14) [Microsoft][ODBC SQL Server Driver][sql Server]Column 'cifras.id' is invalid in the select list because it is not contained in either an aggregate function or the GROUP BY clause. /host/viveasp/portal/clube/cifras_conteudo_con_autor_musica.asp, line 29
  10. Carlos Rocha

    Dimensões

    Como verificar as dimensões width e height de uma figura que esta num determinado diretório? No php existe a função $dir = "figuras/"; $figura = "foto.jpg"; list($width,$height) = getimagesize("$dir$figura"); e no asp, como seria?
  11. Num querendo encomodar mais enmcomodando. no php, ucwords (string), converte os primeiros caracteres de strings em maiúsculo. nl2br (string) - Exibe o texto do bd com a formatação. e no asp, quais seriam?
  12. Então esse codigo que criei num funciona mesmo?
  13. É. Tipo imagem1 imagem2 imagem3 imagem4 imagem5 imagem6 imagem7 imagem8 imagem9 imagem8 imagem9 ...etc..
  14. Tenho uma tabela no Sql Server, que guarda dois registros Nome e Figura. Na hora de exibir as figuras na pagina, o que acontece, é que as figuras saem uma debaixo da outra certo? E se tiverem muitas figuras a pagina ficará muito grande. O que eu preciso é de um código que permita eu exibir 4 figuras por linha e não apenas 1. Daí o espaço ocupado na vertical da pagina sera menor. Eu tenho este código em php, tentei converter pra asp mas como to iniciando em asp, o script num deu certo. Segue abaixo o script para da uma olhada, se puderem corrigir desde já agradeço. Carlos Rocha. Script em Php <? include("../../global/funcoes.php"); ?> <table width=100%><tr><td> <center><b>Clike sobre o nome do cantor ou banda abaixo para ver suas musicas</b></center><p> <? $result = mysql_query ("Select * From cifras GROUP BY autor"); $total = mysql_num_rows($result); $linha = 4; // Numero de imagens por linha ?> <table width="590" border="1" align="center" topmargin=50 cellpadding="0" cellspacing="0"> <tr> <? for($i=0; $i<$total; $i++) { while(list($id, $titulo, $autor, $texto) = mysql_fetch_row ($result)){ if($linha == $atual) { echo "</tr><tr>"; $atual = 0; } ?> <? echo "<td valign=top width=25%><center><b><i><a href=\"cifras_conteudo_con_autor.php?autor=$autor\">".ucwords($autor)."</a></i></b></center></td>"; ?> <? $atual++; } } ?> </tr> </table> </td> </tr> </table> Script que tentei converter pro asp. O que saiu errado? <!--#include file="../../global/funcoes.asp" --> <table width=100%><tr><td> <center><b>Clike sobre o nome do cantor ou banda abaixo para ver suas musicas</b></center><p> <% strSQl = "SELECT * FROM cifras ORDER BY autor" Set Rs_cifras = server.createobject("ADODB.Recordset") Rs_cifras.Open strSQl,Conn , 3, 3 total= Rs_cifras.recordcount linha = "4" ' Numero de imagens por linha %> <table width="590" border="1" align="center" topmargin=50 cellpadding="0" cellspacing="0"> <tr> <% 'response.write total for i = 0 to total Do Until Rs_cifras.EOF = True if linha = atual then response.write "</tr><tr>" atual = 0 end if %> <td valign=top width=25%><center><b><i><a href="cifras_conteudo_con_autor.asp?autor=<%=Rs_cifras("autor")%>"><%=Rs_cifras("autor")%></a></i></b></center></td> <% Rs_cifras.MoveNext Loop next %> </tr> </table> </td> </tr> </table>
  15. Carlos Rocha

    Php Para Asp

    Qual é a variavel asp que tem a mesma função php $_SERVER["PHP_SELF"] ?
  16. Carlos Rocha

    Tenho 2 Duvidas

    Olha só o que voce fez foi testar no bd se já existe ou não algum registro com os dados do form, caso não exista, prosegue com a query, caso contrario, desiste da query, certo? O que eu preciso, é saber, depois da execução da query, se ele foi realizada ok ou deu erro na hora da execução, entende?
  17. Carlos Rocha

    Tenho 2 Duvidas

    <!--#include file="../global/autentica_cadastra_ilustra.asp" --> <% If Request.QueryString("action") = 1 Then titulo = Request.Form("titulo") texto = Request.Form("texto") sql = "INSERT INTO ilustra(titulo, texto) VALUES('"&titulo&"','"&texto&"')" set Rs_INSERT = Conn.execute(sql) if not Recordset.EOF then response.write "<script>alert('Cadastro OK!'); document.location='cadastra_ilustra.asp'</script>" else response.write "<script>alert('Não Deu!'); document.location='cadastra_ilustra.asp'</script>" end if end if %> <% sNomForm = "form"'Recebe o nome do formulario principal da pagina sNomCampo = "texto"' Recebe o nome do campo que vai armazernar as alterações no editor sValInicialCampo = ""'Receber o valor que vem do banco de dados para o editor %> <form action="cadastra_ilustra.asp?action=1" method=POST name="form" id="form" onsubmit="document.<%=sNomForm%>.<%=sNomCampo%>.value = Composition.document.body.innerHTML"><P> <center><H2>Formulário de cadastro de Ilustrações</H2></center><P><p> <TABLE border=2 cellpadding=5 cellspacing=5 align=center width=100%> <tr> <td colspan=2> <TABLE> <TR> <TD><font size=+1>Título:</font></TD> <TD><INPUT TYPE="text" NAME="titulo" VALUE="" SIZE=59 MAXLENGTH=60></TD> </TR> <TR> <TD><font size=+1>Texto:</font></TD> <TD><!--#include file="../JSeditor/editor.asp" --></TD> </TR> </TABLE></font> </TD> </tr> </table><P> <center> <input type="submit" name="submit" value="enviar" onClick="return CriticaFormulario()"> <input type="reset" value="Limpar Campos"> </center> </FORM> </body> </html> Editado: Utilize as tags CODE ou QUOTE quando postar códigos
  18. Carlos Rocha

    Tenho 2 Duvidas

    Parece que agora vai, ta danu o erro: Tipo de erro: Erro de tempo de execução do Microsoft VBScript (0x800A01A8) Objeto necessário: '' /host/viveasp/admin/paginas/cadastra_ilustra_conteudo.asp, line 11
  19. Carlos Rocha

    Tenho 2 Duvidas

    não, num quero testar se os campos do formulario foram ou não preenchidos. O que eu quero testar é se a query de inserção no bd foi ou não executada, entendeu?
  20. Carlos Rocha

    Tenho 2 Duvidas

    Oberve: sql = "INSERT INTO ilustra(titulo, texto) VALUES('"&titulo&"','"&texto&"')" set Rs_INSERT = Conn.execute(sql) if not Rs_INSERT.open then response.write "<script>alert('Cadastro OK!'); document.location='cadastra_ilustra.asp'</script>" else response.write "<script>alert('Não Deu!'); document.location='cadastra_ilustra.asp'</script>" No if not Rs_INSERT.open then// Eu preciso testar se o camando foi executado ok. mas não to encontrando um termo pra isso. to tentando if not Rs_INSERT.open mas num ta dando. o que eu preciso é: Se (codigo sql foi executado ok) então imprima - Cadastro ok se não imprima - Não deu. fim dos se's Entendeu? Se fosse no php, ficaria assim: $sql = "INSERT INTO ilustra(titulo, texto) VALUES('$titulo','$texto')"; $consulta = mysql_query( $sql, $link); if($consulta){echo "<script>alert('Cadastro OK!'); document.location='cadastra_ilustra.php'</script>"; } else {echo "<script>alert('Não foi possivel realizar o Teu cadastro por favor tente novamente...'); document.location='cadastra_ilustra.php'</script>"; } } else {echo "<script>alert('Não foi possivel contatar bd...'); document.location='cadastra_ilustra.php'</script>"; } } ?>
  21. Carlos Rocha

    Tenho 2 Duvidas

    E se o cadastro não tiver tido sucesso, como testar?
  22. Carlos Rocha

    Tenho 2 Duvidas

    usando: sql = "INSERT INTO ilustra(titulo, texto) VALUES('"&titulo&"','"&texto&"')" set Rs_INSERT = Conn.execute(sql) if Conn.execute(sql) then Ta dando o seguinte erro: Tipo de erro: Erro de tempo de execução do Microsoft VBScript (0x800A000D) Tipos incompatíveis /host/viveasp/admin/paginas/cadastra_ilustra_conteudo.asp, line 10
  23. Carlos Rocha

    Tenho 2 Duvidas

    Olá Pessoal, tenho 2 duvidas 1ª - Existe alguma variavel, que possa ser guardada em sessao que guarde um link clikado. Por exemplo - No menu de um site, existe um link que só pessoas cadastradas têm acesso, quando clikado por um sem acesso, cai numa pagina pedindo login e senha, certo? Pois bem, o que eu quero é guardar nessa pagina numa sessao, uma variavel que me iforme qual foi o link clikado antes de chegar na pagina de autenticação, para que depois de autenticado, possa se dar um redirecionamento para aquele link. no php, esta variavel é $_SERVER["PHP_SELF"], e no asp? 2ª - No Código abaixo, preciso verificar, se o comando sql de inserção no bd foi executado ok, se ok, imprimir o alert de ok, tentei com if not Rs_INSERT.open then, mas num é assim, como ficaria essa vericação. Desde já, muito obrigado <% If Request.QueryString("action") = 1 Then titulo = Request.Form("titulo") texto = Request.Form("texto") sql = "INSERT INTO ilustra(titulo, texto) VALUES('"&titulo&"','"&texto&"')" set Rs_INSERT = Conn.execute(sql) if not Rs_INSERT.open then response.write "<script>alert('Cadastro OK!'); document.location='cadastra_ilustra.asp'</script>" else response.write "<script>alert('Não Deu!'); document.location='cadastra_ilustra.asp'</script>" end if end if %> Carlos Rocha
  24. Carlos Rocha

    Bom Dia Em Asp?

    Oi, eu gostaria assim ola, boa tarde, hoje é domingo dia 23 de janeiro de 2005 e agora são 16:43 Seja Bem vindo à este Site
  25. Carlos Rocha

    Bom Dia Em Asp?

    Tenho o codigo abaixo que cumprimenta o vizitante em php, como fazer em asp? <? include("global/funcoes.php"); ?> <! começo do script da mensagem de boas vindas> <?php $hora = date("H"); if ($hora < 12){$msg1="Olá, bom dia!";} elseif ($hora < 19){$msg1="Olá, boa tarde!";} else {$msg1="Olá, boa noite!";}?> <! fim do script da mensagem de boas vindas> <! começo do script do dia da senana> <?php $hora = date("w"); if ($hora == 1){$msg3="segunda feira";} elseif ($hora == 2){$msg3="terça feira";} elseif ($hora == 3){$msg3="quarta feira";} elseif ($hora == 4){$msg3="quinta feira";} elseif ($hora == 5){$msg3="sexta feira";} elseif ($hora == 6){$msg3="sabado";} else {$msg3="domingo";}?> <! fim do script da mensagem de boas vindas> <! começo do script da mensagem de boas vindas> <?php $dia = date("d");?> <! fim do script do dia da senana> <! começo do script do nome do mes> <?php $hora = date("m"); if ($hora == 01){$msg4="janeiro";} elseif ($hora == 02){$msg4="fevereiro";} elseif ($hora == 03){$msg4="março";} elseif ($hora == 04){$msg4="abril";} elseif ($hora == 05){$msg4="maio";} elseif ($hora == 06){$msg4="junho";} elseif ($hora == 07){$msg4="julho";} elseif ($hora == 08){$msg4="agosto";} elseif ($hora == 09){$msg4="setembro";} elseif ($hora == 10){$msg4="outubro";} elseif ($hora == 11){$msg4="novembro";} else {$msg4="dezembro";}?> <! fim do script do nome do mes> <! começo do script da hora certa> <?php $ano = date("Y");?> <! fim do script da mensagem de boas vindas> <! começo do script da mensagem de boas vindas> <?php $momento = date("H:i:s");?> <! fim do script da hora certa> <html> <body> <STYLE type=text/css>BODY {SCROLLBAR-FACE-COLOR: #fda202; SCROLLBAR-HIGHLIGHT-COLOR: #fef7c5; SCROLLBAR-SHADOW-COLOR: #9f6603; SCROLLBAR-3DLIGHT-COLOR: #ffe8b9; SCROLLBAR-ARROW-COLOR: #513300; SCROLLBAR-TRACK-COLOR: #ffefd0; SCROLLBAR-DARKSHADOW-COLOR: #513300}</STYLE> <table border="0" cellpadding="0" cellspacing="0" width="777"> <tr><td><img width="777" src="figuras/tarja.jpg" alt="Vivendo Com Cristo"></td></tr> </table> <table background="figuras/baixo_tarja.jpg" width=777> <tbody> <tr> <td> <! começo do script da saudação> <?php echo("$msg1");?> Hoje é <?php echo("$msg3");?>, dia <?php echo("$dia");?> de <?php echo("$msg4");?> de <?php echo("$ano");?>, e agora são <?php echo("$momento");?> <! fim do script da saudação> </td> </tr> </tbody> </table> </body> </html>
×
×
  • Criar Novo...