Ir para conteúdo
Fórum Script Brasil

Marcos-rj

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    638

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Tudo que Marcos-rj postou

  1. Marcos-rj
    É complcado Vander, vai testando e vê qual gosta +. eu por exemplo gosto muito do Front Page, o Dreamweaver também é bom, apesar de eu não gostar muito.
  2. Marcos-rj
    Eu uso este código, se digitar algo que não seja número não aparece nada! <script> function valida_numero() { var key = window.event.keyCode; if (( key < 48 )||( key > 57 )) { window.event.returnValue = null; return; } } </SCRIPT> OnKeyPress="valida_numero(this)"
  3. Marcos-rj
    Da uma olhada neste link: http://web.1asphost.com/wagnerps/dicas.asp...=1&codigo=9
  4. Marcos-rj
    JRO é uma extensão da ADO: Microsoft Jet OLE DB Provider and Replication Objects (JRO). A ADO não nos fornece meios para reparar ou compactar um banco de dados Access. Para realizar tal tarefa devemos usar uma extensão da ADO: Microsoft Jet OLE DB Provider and Replication Objects (JRO). Esta capacidade foi implementada a partir da versão 4.0 do PROVEDOR JET OLE DB (Mjsetoledb40.dll) e da versão 2.1 da JRO (Msjro.dll) . Esses arquivos estão disponíveis para instalação na MDAC 2.1 Universal Data Access Web Site
  5. Marcos-rj
    Um exemplo de uso: <% option explicit Function CompactaDB(CaminhoDB,Access97) Dim fso, Engine, strCaminhoDB strCaminhoDB = left(CaminhoDB,instrrev(CaminhoDB,"\")) Set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists(CaminhoDB) Then Set Engine = CreateObject("JRO.JetEngine") If Access97 = "True" Then Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CaminhoDB, _ "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strCaminhoDB & "temp.mdb;" _ & "Jet OLEDB:Engine Type=4" Else Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CaminhoDB, _ "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strCaminhoDB & "temp.mdb" End If fso.CopyFile strCaminhoDB & "temp.mdb",CaminhoDB fso.DeleteFile(strCaminhoDB & "temp.mdb") Set fso = nothing Set Engine = nothing CompactaDB = "Seu banco de dados, " & CaminhoDB & ", foi compactado com sucesso" & vbCrLf Else CompactaDB = "O Caminho ou o banco de dados não foi localizado.Tente outra vez..." & vbCrLf End If End Function %> <html><head><title>Compactação ON-LINE</title></head><body> <h2 align="center"> Compactando uma base de dados Access Remota</h2> <p align="center"> <form action=compacta.asp> Informe o caminho relativo da base de dados incluindo o nome do banco de dados.<br><br> <input type="text" size="50" name="CaminhoDB"><br><br> <input type="checkbox" name="Access97" value="True">Clique Aqui se a versão for Access 97<br><i> ( Access 2000 é o padrão )</i><br><br> <input type="submit" value="Iniciar Compactação"> <form> <br><br> <% Dim CaminhoDB,Access97 CaminhoDB = request("CaminhoDB") Access97 = request("Access97") If CaminhoDB <> "" Then CaminhoDB = server.mappath(CaminhoDB) response.write(CompactaDB(CaminhoDB,Access97)) End If %> </p> </body> JRO é uma extensão da ADO: Microsoft Jet OLE DB Provider and Replication Objects (JRO).
  6. Marcos-rj
    Para mostrar o endereço IP do visitante: <%= request.servervariables( "REMOTE_ADDR" ) %>
  7. Marcos-rj
    Set Arquivo = Server.CreateObject("Scripting.FileSystemObject") If Arquivo.FileExists( Server.MapPath("meu_arquivo.html") ) Then Response.Write "O arquivo listado existe!" Else Response.Write "O arquivo listado não existe" End If Set Arquivo = Nothing
  8. Marcos-rj
    Você pode compactar bancos de dados do Access (MDB) de uma aplicação ASP de duas formas: 1. Via DAO (versão 3.5 precisa estar instalada) Set Engine = CreateObject("DAO.DBEngine.35") Engine.CompactDatabase "path\database.mdb", "path\compacted_database.mdb" 2. JRO (MDAC 2.1 ou superior precisa estar instalado) Set Engine = CreateObject("JRO.JetEngine") Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=path\database.mdb", _ "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=path\compacted_database.mdb" Ambas as soluções não suportam a compactação para o mesmo nome de arquivo. Você precisa criar um banco de dados compactado temporário e então copiá-lo sobre o bancos de dados original. Retirado de http://www.pstruh.cz/tips/detpg_CompactMDB.htm Fonte: ASP4DEVELOPERS
  9. Marcos-rj
    Quando trabalhamos com servidores que estão localizados em outros praíses, consequentemente Datas, Time Zone e configurações regionais estão configurados com a formatação de seu praís. O Session.LCID permite realizar a formatação de datas e configurações regionais de acordo com o praís que o desenvolvedor necessitar, setando o código atribuído para cada praís. Exemplo: Para formatar as configurações regionais e datas para o idioma americano: <%Session.LCID = 1033%> Para formatar em Português ( Brasileiro ) : <%Session.LCID = 1046%> Fonte: ASP4DEVELOPERS
  10. Marcos-rj
    Para as pessoas que estão iniciando ! este é um passo muito imporante... pois a má utilização das condições de repetição sempre gera error e lentidão nos scripts pre-desenvolvidos vejamos então quando e como utilizar cada uma dessas condições. For... Next A Codição For... Next executa uma rotina a um certo numero de vezes, de acordo com um contador, sendo assim ela é terminada quando o numero do contador chega ao seu limite desejado <% For n=1 to 10 response.write n & "<br>" next %> O Código acima vai imprimir na página numerais de 1 à 10, a variavel definida em um FOR não precisa ser incrementada pois a estrutura se encarrega totalmente disso. Se necessária a saida brusca de um FOR, utilize o comando EXIT WHILE WEND Este executa uma rotina até que a sua condição se torne verdadeira <% ConnString = "Provider=SQLOLEDB.1;Password=gozaimasu;User ID=mrkoga;Initial Catalog=selecao;Data Source=255.255.255.255 Set RS = Server.CreateObject("ADODB.Connection") set RS = conn.execute("SELECT * from mulheres where nacionalidade='Japonesa'") While not RS.EOF response.write RS("nome") & "<br>" rs.movenext wend %> DO UNTIL O Estrutura, Do Until, executa uma rotina até que a condição imposta se torne verdadeira. <% n = 0 Do Until n=10 n = n + 1 Loop response.write n %> Esse LOOP, que o DO UNTIL provoca pode ser interrompido através do comando EXIT DO Existem os operadores lógicos que seria tambem muito interessante de se usar em conjunto com as estruturas de repetição, pesquise sobre... Fonte: ASP4DEVELOPERS
  11. Marcos-rj
    Server.HTMLEncode é uma função que serve para codificar uma string em HTML. Ah está tudo bem. E pra que raios serve isso? Bem aqui vai um exemplo prático: Suponha que você tenha um site que permita o usuário cadastrar-se à vontade. Então, um engraçadinho resolve cadastrar o nome dele da seguinte maneira: <font color="red" style="font-size: 30pt">Adriano Nântua</font> Pronto. De agora em diante, toda vez que o nome dele for escrito no site estará vermelho e bem grande, diferente das outras pessoas (isso se o palhaço não resolver botar tamanho 800 e esculhambar de vez o seu site). Para evitar isso, na hora de escrever o nome, ao invés de fazer o usual: <%=nome%> faça o funcional: <%=Server.HtmlEncode(nome)%> Desta maneira, nome do espertinho, será escrito da mesma maneira que ele informou, pois a função codifica a string em HTML, escrevendo &lt; ao invés de <. Obviamente, a função não serve somente para se proteger de usuários humoristas. Em geral serve para que os caracteres cadastrados sejam escritos fielmente. Imagine que você vá jogar a string O filme "A Rocha" ganhou 20 prêmios no value de um input de texto. Só vai dar O Filme, pois o browser vai ler o " como fim do value, e o resto da string vai ficar fazendo sujeira na Tag. Um desmantelo. Basta usar, então, o Server.HTMLEncode para consertar as coisas. Fonte: ASP4DEVELOPERS
  12. Marcos-rj
    Descobri qual é o erro, já vou postar! O sistema de noticias que você está usando é o ChacalNews Certo? Bom, resolvi pegar o sistema p/ descobrir onde estava o erro, vamos lá: O erro está neste ponto do código: Quando você cadastra uma noticia ele te dá o seguinte link para ver a noticia cadastrada <a href="noticia.asp?id=<%=noticia2%>"><B>A</B>qui <b>P</b>ara ver somente a que você postou</font> O que ocasiona o erro? Ele pega o ID da noticia cadastrada e adiciona +1, por isso dá o erro, a noticia tem ID=5 ele adiciona 1 da ID=6 que não existe! Segue link para download do sistema com o problema resolvido. download do sistema
  13. Marcos-rj
    Estranho, colocou onde? tenta assim if not rs.eof then response.write "não existem noticias" else
  14. Marcos-rj
    espera a galera se candidatar e monta a enquete, dá uma prazo p/ a candidatura!
  15. Marcos-rj
    É verdade, uma enqquete seria uma boa! :D
  16. Marcos-rj

    Conectar Db Local

    pergunta respondeu ao TBANet de Marcos-rj em ASP

    Posta como você está fazendo.
  17. Marcos-rj
    Vamos falar sobre Server-Side Includes ou Inclusão do lado do servidor ou melhor : arquivos de inclusão. O que são os arquivos de inclusão ? Os arquivos de inclusão são arquivos de scripts ASP que são incluídos em páginas de um site com o objetivo de facilitar a manutenção , modularizar o código e facilitar a compreensão do mesmo. Para você entender melhor , suponha que você esta desenvolvendo o seu site e que o mesmo já conta com umas 100 páginas . Existem elementos comuns a várias páginas como : barra de navegação , logotipos , endereço de e-mail , banners , etc.... Agora imagine que o seu site utilize um script para realizar um cálculo com um taxa fixa e que pode variar com o decorrer do tempo. E se você precisar alterar alguns desses elementos ? Vai ter que fazer essas alterações em todas as páginas onde eles estiverem contidos... Imagine o trabalho que vai dar !!! No entanto se você usar os arquivos de inclusão vai ter que alterar apenas o arquivo original e pronto !!!! As alterações são automaticamente incorporadas em todas as páginas durante a inclusão do arquivo. Isto vale para bibliotecas de código , funções , etc... Convencido. Pois bem como fazer a inclusão destes arquivos ? Existem duas maneiras de você fazer a inclusão de um arquivo em sua página: 1- A instrução geral e recomendada é : <!--#include virtual="nome_do_arquivo"--> isto é chamada de inclusão virtual e você deve informar o nome do arquivo e sua localização absoluta relativa a raiz do site da Web do arquivo atual. A instrução para incluir o arquivo config.asp que esta no diretório arquivos é a seguinte: <!--#include virtual="/arquivos/config.asp"--> Os arquivos que podem ser incluidos não se restringem a arquivos com extensão .asp . Você pode incluir arquivos textos com qualquer extensão. Mas lembre-se que os arquivos com extensão .asp possuem uma proteção: quando alguém tenta visualizar o conteúdo de um arquivo com extensão .asp irá ver somente o resultado do processamento do arquivo. 2- Voce pode usar também a seguinte instrução : <!--#include file="nome_do_arquivo"--> aqui a palavra chave file inclui arquivos relativos ao diretório onde reside o arquivo que esta sendo incluído. Você não tem que fornecer o caminho especificado para a raiz do servidor ; pode usar um caminho relativo. Os arquivos de inclusão podem conter código HTML e/ou código ASP mas são processados antes de qualquer código ASP. Vejamos a seguir um exemplo : Para os exemplos funcionarem em sua máquina você tem que ter o Personal Web Server ou IIS instalado. Eu vou criar um diretório teste subordinado ao diretório raiz do meu servidor. Assim se você instalou o PWS/IIS no diretório padrão , o local físico da pasta será : C:\Inetpub\wwwroot\teste Vamos criar dois arquivos de scripts asp : pagina1.asp e pagina2.asp e salvá-los no diretório teste . O arquivo pagina2.asp será incluido no arquivo pagina1.asp quando este for chamado no seu servidor. Arquivo pagina1.asp <html> <head> <title>Pagina1.asp</title> </head> <% response.write "Pagina1.asp </p>" response.write "Exemplo de inclusão de arquivos <p>" response.write " Atenção vou incluir o arquivo pagina2.asp </p>" %> <!--#include file="pagina2.asp"--> </body> </html> Observe que temos codigo HTML e codigo ASP delimitado pelas tags <% %>. A instrução usada para incluir o arquivo pagina2.asp é : <!--#include file="pagina2.asp"--> Arquivo pagina2.asp <% Response.Write "<font color='#0000FF'" response.write "----------------------------------------</br>" response.write "Olá , eu sou o arquivo pagina2.asp <br>" response.write "----------------------------------------</br>" %> O arquivo pagina2.asp contém somente script ASP (o código HTML usado esta inserido na instrução Response.write). vou avisar que você não pode fazer uma inclusão cíclica . Se no exemplo anterior a pagina2.asp ao ser chamada fizesse uma chamada a página1.asp , ou seja , a pagina1.asp inclui a pagina2.asp que inclui a página1.asp , ocorreria o um erro. Quer tentar ? então altere o código de pagina2.asp para: <% Response.Write "<font color='#0000FF'" response.write "Pagina2.asp</p>" response.write "----------------------------------------</br>" response.write "Olá , eu sou o arquivo pagina2.asp <br>" response.write "----------------------------------------</br>" %> <!--#include file="pagina1.asp"--> Inclusões Dinâmicas Como os arquivos de inclusão são executados antes de qualquer código asp não podemos usar inclusões dinâmicas. Se você tentar rodar o script asp abaixo : <% Dim UrlPagina UrlPagina = "/teste/teste.asp" %> <!--#include virtual="<%=UrlPagina%>"--> Não vai funcionar , pois como os arquivos de inclusão são processados antes de qualquer código da página , a variavel UrlPagina não será encontrada . Podemos contornar este problema da seguinte forma : 1-) usar instruções Select/Case como no exemplo a seguir: <%Select Case UrlPagina Case "Pagina1.asp" %> <!--#include virtual="/pagina1.asp"--> <% Case "Pagina2.asp" %> <!--#include virtual="/pagina2.asp"--> <% Case "Pagina3.asp" %> <!--#include virtual="/pagina3.asp"--> <% Case "Pagina4.asp" %> <!--#include virtual="/pagina4.asp"--> <%End Select%> 2-) usar o objeto FileSystemObject para ler o conteúdo de um arquivo e inserí-lo na página ASP. Abaixo um exemplo , onde o arquivo teste.htm é lido e incluído na página asp: <% Option Explcit %> <% Dim StrArquivo , objFSO , objArquivo Set objFSO = Server.CreateObject("Scripting.FileSystemObject") 'define o caminho e nome do arquivo strArquivo = "C:\Inetpub\wwwroot\teste\teste.htm" 'lê o arquivo teste.htm set objArquivo = objFSO.OpenTextFile(strArquivo) 'inclui o conteúdo do arquivo Response.Write objArquivo.ReadALL 'fecha o objeto e libera memória objArquivo.close set objArquivo = Nothing set ObjFSO = Nothing %> Obs: note que você deve fornecer o caminho físico de localização do arquivo. Ao usar o código acima você deve ficar atento ao seguinte detalhe : O arquivo que você vai ler usando o objeto FileSystemObject somente vai poder ser aberto e lido quando o script ASP já estiver sendo executado, logo , se houver no seu arquivo algum código ASP ele não será executado , apenas será incluído na forma como estiver como um arquivo HTML. Por isso este método deve ser usado para incluir apenas arquivos textos e HTML sem código ASP.
  18. Marcos-rj
    sistema de "loading"para uma pagina asp. Voce pode usar isso numa pagina que tenha muitos registros, muitas fotos, enfim, há diversas aplicações. Bom, primeiro, as parte facil: Escolha uma imagem que voce goste(pode ser qualquer outra): [img=http://www.bmw.co.nz/images/common/loading.gif] [img=http://www.charitablegift.org/demo_files/images/loading.gif] Bom, salve ela na mesma pasta que salvar o seu script. Bom, vamos aos codigos: No inicio da sua pagina, voce coloca: <%Response.Buffer = True%> Abaixo da tag <body> do HTML, voce coloca: <% Response.Write("<div id=""carregando""><img src='loading.gif'></div>") Response.Flush() %> e no final do seu script, antes da tag </body> voce coloca: <% Response.Write("&lt;script type=""text/javascript""> document.getElementById(""carregando"").style.display = ""none"";</script>") %> Lucasbr Forum Ievolution
  19. Marcos-rj
    Segue abaixo,Script ASP Para leitura de arquivos de RSS. Como ainda tem muita gente procurando, está aí. <% ' Script ASP Para leitura de arquivos de RSS. url = "http://oglobo.globo.com/rss/plantao.xml" 'Aqui vai o endereço do arquivo RSS, ou do arquivo "gerador" ' Criando Objeto XML Set objXML = Server.CreateObject("msxml2.DOMDocument.3.0") objXML.async = false objXML.setProperty "ServerHTTPRequest", True ' Não validar o arquivo objXML.validateOnParse =false' true ' Retirar espaços objXML.preserveWhiteSpace = false blnLoaded = objXML.Load(url) If Not blnLoaded Then Response.write "Nenhum notícia na fonte!" Else set objNodeList = objXML.getElementsByTagName("channel") For Each objNode In objNodeList For Each objNode2 In objNode.childNodes Select Case objNode2.nodeName Case "title" html = html &"<tr><td><b>" html = html &objNode2.firstChild.nodevalue html = html &"</b></td></tr>" Case "link" html = html &"<tr><td><a target=_blank href="& objNode2.firstChild.nodevalue &">" html = html & objNode2.firstChild.nodevalue html = html &"</a></td></tr>" Case "description" 'Está desabilitado para exibir apenas os links html = html &"<tr><td><i>" html = html & objNode2.firstChild.nodevalue html = html &"</i></td></tr>" End Select Next Next html = html &"<tr><td><hr></td></tr>" Set objNodeList = objXML.getElementsByTagName("item") For Each objNode In objNodeList For Each objNode2 In objNode.childNodes Select Case objNode2.nodeName Case "title" strTitle = objNode2.firstChild.nodevalue Case "link" strURL = objNode2.firstChild.nodevalue Case "description" strDescription = objNode2.firstChild.nodevalue End Select Next html = html &"<tr><td><li/><b><a target=_blank href="& strURL &">"& strTitle &"</a></b><br>"& strDescription &"</td></tr>" strTitle = "" strURL = "" strDescription = "" Next html = "<table>"& html &"</table>" set objNodeList = Nothing End if %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> </head> <body> <font face="Verdana" style="font-size: 9pt"> <% Response.write (html) %> </font> </body> </html>
  20. Marcos-rj
    Não ela está com o tamnaho que falei, 7,82. pode olhar no link que esta na minha assinatura.
  21. Marcos-rj
    Se olharem a imagem que fiz, ela está com 7,82 kb e é uma gif animado. 80! acho que mão precisa de tanto!
  22. Marcos-rj
    Gostei, ficou bom!
  23. Marcos-rj
    Ontem a noite publiquei um artigo no site www.scriptbrasil.com.br, chamado Sessões(Session), depois de enviar deu uma mensagem dizendo que em 24h se não me engano, um administrador estaria verificando o artigo e publicando, e como até agora não saiu nada e não sei se vai sair, gostaria de saber se algum administrador poderia me enviar uma cópia, por que eu muito burro esqueci de quardar uma cópia, eu fui fazendo na hora o artigo e não salvei uma cópia. Será que alguém pode me ajudar??? T+
  24. Marcos-rj
    O erro está aqui: if rs.eof then response.write "não existem noticias" else é assim: if rs.bof then response.write "não existem noticias" else É BOF e não EOF
  25. Marcos-rj

    Sistema De Noticias

    uma questão respondeu Marcos-rj em ASP

    Sim, seria com foto. você sabe alguma coisa de ASP?
×
×
  • Criar Novo...