sexta-feira, 31 de agosto de 2001

0

Download do VisualStudio.net e SDK

http://msdn.microsoft.com/library/default.asp?url=/downloads/list/netdevframework.asp


 


Aqui esta tudo o que você precisa para .NET



Esta matéria foi postada originalmente no ASP4Developers por Thiago Machado Souza (site), que na época era "Programador Desbravador, buscando quebrar todas as fronteiras além do horizonte da arte de programar !
www.thiagomachado.com.br". Hoje, vai saber...

quarta-feira, 29 de agosto de 2001

0

Criar e Ler TXT

Abaixo segue um exemplo simples, de como criar e ler arquivos txt, pois em alguns casos é desnecessário gravar dados num banco de dados, seja pelo volume pequeno, ou apenas por não necessitar maiores cuidados.


* GRAVAR DADOS EM UM TXT
<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
caminho = server.MapPath("teste.txt")
Set GRAVAR = FSO.CreateTextFile(caminho,true)
'Foi criado o objeto, e logo apos busca o txt para gravar, se não achar, vai cria-lo (note o TRUE)


gravar.write ("teste de gravação")
gravar.close
response.write "GRAVADO!"
'apos abrir o TXT, gravará a linha com o texto "TESTE DE GRAVAÇÃO" a confirmação no cliente aparecerá como "GRAVADO"
%>


* LER CONTEÚDO DE UM TXT
<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
caminho=server.mappath("teste.txt")
Set TXT = FSO.OpenTextFile(caminho)
'cria o objeto, e busca pelo TXT indicado pela variável caminho como acima.

response.write txt.readALL   
'após abrir o TXT, enviará direto ao cliente todo conteúdo do TXT, neste exemplo, retornará "TESTE DE GRAVAÇÃO" como foi gravado acima.
txt.close

%>


Bom é isso, FSO (FileSystemObject) pode auxiliar em diversas funções já que possibilita criar/alterar/excluir arquivos ou pastas.


Falow para todos =)



Esta matéria foi postada originalmente no ASP4Developers por Oscar Pires (BLADE) (site), que na época era "Desenvolvedor ASP e Visual Basic, desenvolve sites interativos e sistemas para empresas. ". Hoje, vai saber...

segunda-feira, 20 de agosto de 2001

0

Mudando a cor das linhas com "Rollovers"

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>TR Color</TITLE>
</HEAD>
<BODY>
<SCRIPT language=javascript>
<!--
        function mOvr(src,clrOver) {
                        src.style.cursor = 'hand';
                        src.bgColor = clrOver;
                     }
        function mOut(src,clrIn) {
                        src.style.cursor = 'default';
                        src.bgColor = clrIn;

        }
        function mClk(src) {
                if(event.srcElement.tagName=='TD'){
                        src.children.tags('A')[0].click();
                }
        }
// -->
</SCRIPT>
<table cellspacing=1 cellpadding=3 width="100%" bgcolor=white border=0>
  <tr onMouseOver="mOvr(this,'#cccccc');" onMouseOut="mOut(this,'#0066cc');"
bgcolor="#0066cc">
    <td  width="51%"  onClick="mClk(this)">
      <a class=menu href="http://www.uol.com.br">Texto1</a></td>
    <td onclick="mClk(this)" width="49%">&nbsp;</td>
  </tr>
  <tr onMouseOver="mOvr(this,'#cccccc');" onMouseOut="mOut(this,'#0066cc');"
bgcolor="#0066cc">
    <td  width="51%"  onClick="mClk(this)">
      <a class=menu href="http://www.uol.com.br">Texto1</a></td>
    <td onclick="mClk(this)" width="49%">&nbsp;</td>
  </tr>
    <tr onMouseOver="mOvr(this,'#cccccc');"
onMouseOut="mOut(this,'#0066cc');" bgcolor="#0066cc">
    <td  width="51%"  onClick="mClk(this)">
      <a class=menu href="http://www.uol.com.br">Texto1</a></td>
    <td onclick="mClk(this)" width="49%">&nbsp;</td>
  </tr>
    <tr onMouseOver="mOvr(this,'#cccccc');"
onMouseOut="mOut(this,'#0066cc');" bgcolor="#0066cc">
    <td  width="51%"  onClick="mClk(this)">
      <a class=menu href="http://www.uol.com.br">Texto1</a></td>
    <td onclick="mClk(this)" width="49%">&nbsp;</td>
  </tr>
    <tr onMouseOver="mOvr(this,'#cccccc');"
onMouseOut="mOut(this,'#0066cc');" bgcolor="#0066cc">
    <td  width="51%"  onClick="mClk(this)">
      <a class=menu href="http://www.uol.com.br">Texto1</a></td>
    <td onclick="mClk(this)" width="49%">&nbsp;</td>
  </tr>
  </table>
</BODY>
</HTML>


 



Esta matéria foi postada originalmente no ASP4Developers por Ismael Nobre (site), que na época era "Analista.
Quer me contratar ?
Cel. 96420687". Hoje, vai saber...

0

Criando um "VBGrid" em ASP

Muito bem, para criar a classe é preciso q vc configure algumas coisinhas bem simples.

Crie um aquivo chamado classe.asp com este conteudo:
====================================
<%
'====================================
'Ao "Voodoo" os respectivos creditos que foi
'quem criou a primeira versão da classe
'qualquer mudança q seja feita por favor, envie-nos
'uma cópia.
'cartman@apenas.com
'====================================


class MyGrid
 private DB, strSQL
 private strWidth, strAlign
 public sub Connect(strConnection)
  Set DB = Server.CreateObject("ADODB.Connection")
  DB.Open strConnection
 end sub
 
 public sub Disconnect()
  DB.Close
  Set DB = Nothing
 end sub
  
 public property let SQL(stSQL)
  strSQL = stSQL
   Dim Order
   Dim Field
   Dim gOrder
   Dim gField
   Dim Sort
   
   order = request.querystring("order")
   field = request.querystring("field")
   
   'caso a tabela tenha mais q dois campos eles devem se adicionados aqui!!!
   select case field
    case "1"
     gfield = " order by nome"
    case "2"
     gfield = " order by email"
    case else
     gfiel = ""
   end select
   
   select case order
    case "1"
     gOrder = " ASC"
    case "2"
     gOrder = " DESC"
    case else
     gOrder = ""
   end select
   
   if gOrder = "" or gField ="" then
    srtSQL = strSQL
   else
    strSQL = strSQL + gfield + gOrder
   end if
 end property


 public property let TableWidth(stWidth)
  strWidth = stWidth
 end property


 public property let TableAlign(stAlign)
  strAlign = stAlign
 end property
   
 public sub Display()
  if strWidth = "" then strWidth = "100%"
  Response.Write "<style type=text/css>"& vbCrLf & _
      " a:active {text-decoration: none; color: #000000; cursor: default;}"& vbCrLf & _
      " a:link  {text-decoration: none; color: #000000; cursor: default;}"& vbCrLf & _
      " a:visited {text-decoration: none; color: #000000; cursor: default;}"& vbCrLf & _
      " a:hover  {text-decoration: none; color: #000000; cursor: default;}"& vbCrLf & _
      " .TituloUP {"& vbCrLf & _
      "  background-color: #C0C0C0;"& vbCrLf & _
      "  border-bottom: #000000 solid 1px;"& vbCrLf & _
      "  border-right: #000000 solid 1px;"& vbCrLf & _
      "  border-left: #E8E8E8 solid 1px;"& vbCrLf & _
      "  border-top: #E8E8E8 solid 1px;"& vbCrLf & _
      "  height : 11px;"& vbCrLf & _
      "  cursor: default;"& vbCrLf & _
      "  font-family : Verdana, Arial, Helvetica, sans-serif;"& vbCrLf & _
      "  font-size : 11px;"& vbCrLf & _
      " }"& vbCrLf & _
      " .GridBody {"& vbCrLf & _
      "  background-color: #FFFFFF;"& vbCrLf & _
      "  border-bottom: #AAAAAA solid 1px;"& vbCrLf & _
      "  border-right: #AAAAAA solid 1px;"& vbCrLf & _
      "  height : 16px;"& vbCrLf & _
      "  font-family : Verdana, Arial, Helvetica, sans-serif;"& vbCrLf & _
      "  font-size: 11px;"& vbCrLf & _
      "  cursor: text;"& vbCrLf & _
      "  text-decoration: none;"& vbCrLf & _
      " }"& vbCrLf & _
      "</style>"& vbCrLf
  dim RS
  Set RS = Server.CreateObject("ADODB.Recordset")
   '*********************
   response.write strSQL
   '*********************
   RS.CursorLocation = 3
   RS.Open strSQL, DB
   
   order = request.querystring("order")
   
   select case order
    case 2
     order =1
    case 1
     order =2
    case else
     order =1
   end select
   
    Response.Write "<table width="& strWidth &" align="& strAlign &" cellspacing=0 cellpadding=0 align=center>"& vbCrLf
     Response.Write "  <tr>"& vbCrLf & _
         "    <td width=10 class=TituloUP ><a href="& Request.ServerVariables("SCRIPT_NAME") &">&nbsp;</a></td>"& vbCrLf
     'Desenha o cabeçalho
      Response.Write "    <td class=TituloUP ><a href="& Request.ServerVariables("SCRIPT_NAME") &"?order="& order &"&field=1>&nbsp;Campo1</a></td>"& vbCrLf
      Response.Write "    <td class=TituloUP ><a href="& Request.ServerVariables("SCRIPT_NAME") &"?order="& order &"&field=2>&nbsp;Campo2</a></td>"& vbCrLf
     Response.Write "  </tr>"& vbCrLf
     
     'Desenha os registros
     do until RS.EOF
      Response.Write "  <tr>"& vbCrLf
       Response.write "    <td width=10 class=TituloUP>&nbsp;</td>"& vbCrLf
       Response.Write "    <td class=GridBody>&nbsp;"& RS("nome") &"</td>"& vbCrLf
       Response.Write "    <td class=GridBody>&nbsp;"& RS("email") &"</td>"& vbCrLf
      Response.Write "  </tr>"& vbCrLf
      RS.MoveNext
     loop
    Response.Write "</table>"& vbCrLf & _
        "</td></tr></table>"& vbCrLf
   RS.Close
  Set RS = Nothing
 end sub
end class
%>
========================================

Agora crie outro aquivo qualquer com este conteudo ( no mesmo diretorio onde esta o classe.asp

========================================
<!--#include file="classe.asp"-->
<!--este include é obrigatprio pq é a classe q monta a tabela-->


<%
dim grid
set grid = new MyGrid
 grid.Connect "DBQ=c:\inetpub\wwwroot\webtal\database\webtal.mdb;Driver={Microsoft Access Driver (*.mdb)};"
'Aqui vc coloca sua string de conexão

 grid.SQL = "select codigo,nome,email from mural"
'Aqui vc coloca a sua query

 grid.TableWidth = "98%"
'Aqui vc coloca o tamanho da tabela

 grid.TableAlign = "center"
'Aqui vc coloca o alinhamento da tabela

 grid.Display
 grid.Disconnect
set grid = nothing

%>


=======================================

Caso vc preciso mudar alguma coisa na classe fique a vontade.
Não se esqueçe a ela esta configurada para mostrar, inicialmente um recordset com o nome "nome" e outro com o nome "email".
Mude se necessário.



Esta matéria foi postada originalmente no ASP4Developers por Ismael Nobre (site), que na época era "Analista.
Quer me contratar ?
Cel. 96420687". Hoje, vai saber...

sábado, 18 de agosto de 2001

0

Registro Aleatório

Muitos desenvolvedores buscam exibir registros de um bd aleatoriamente.
Abaixo segue um código simples, que mostra um campo chamado field aleatório numa tabela tbl e outra função gerara numeros aleatórios pra pegar o registro pelos campos auto numeração autoid


1- Set conn = server.CreateObject("ADODB.Connection")
2- Conn.open "dsn"

'criada a conexao (conn), e abre um dsn

3- SQL = "SELECT * FROM tbl"
4- Set RS = Server.CreateObject("ADODB.Recordset")
5- RS.open SQL,Conexao, 3, 3

'o recordset devera conter os parametros acima(os dois 3)

6- Randomize
7- Numero = INT(RND * RS.RecordCount)
8- Randomize

'aqui gerara um numero aleatório inteiro

9- SQL = "SELECT * FROM tbl WHERE autoid=" & numero
10- Set RS2 = Conn.execute(SQL)
11- if rs2.eof then
12- response.write "Numero sorteado não existe"
13- else
14- response.write "Sorteado: " & RS2("field")
15- End if

'agora ele pega o nº aleatorio e manda exibir o registro desse numero e exibe ao cliente

16- conn.close
17- Set conn=nothing
18- set rs=nothing
19- set rs2=nothing

'liberar recursos =)


NOTA: Se no campo autoid houver falhas na sequência e o "numero" sortear isso, não haverá registro a exibir.
Ex: Seu autoid correr de 1 a 30, e apos 25 for direto pra 28, se "numero" for igual a 26 o autoid é invalido, consequentemente não haverá registro a exibir.
MAS NÃO SE PREOCUPE, as linhas 11 e 12 trabalham essa hipótese de erro. =)


Bom é isso, é bem simples e util trabalhar com dados aleatoriamente. Espero ter ajudado! valeu =))



Esta matéria foi postada originalmente no ASP4Developers por Oscar Pires (BLADE) (site), que na época era "Desenvolvedor ASP e Visual Basic, desenvolve sites interativos e sistemas para empresas. ". Hoje, vai saber...

sexta-feira, 3 de agosto de 2001

0

Rotina para capturar a cotação do US$ do dia anterior no BC

A rotina captura a pagina do BC onde fica a cotação do dólar do dia anterior ao corrente e filtra somente os dados que interessam.


Podem ser feitas outras customizações onde os valores capturados são colocados num BD, etc ...


Aproveitem da rotina, mas por favor, mantenham os créditos.


http://asp4developers.cjb.net/uploads/busca_dolar.txt



Esta matéria foi postada originalmente no ASP4Developers por Adriano Dias (site), que na época era "Gerente de Informática que odeia terno e gravata e que gosta mesmo é de análise e programação. Linuxeiro sem ser radical e ASPeiro por prazer.". Hoje, vai saber...

quarta-feira, 1 de agosto de 2001

3

Retirando tags HTML de uma string

'  Função que retorna uma string sem as TAGS HTML passada como parametro


Function LimpaHTML(matriz)
Do While True
   ini     = InStr(1,matriz,"<")
   If ini  = 0 Then Exit Do
   fim     = InStr(ini,matriz,">")
   parcial = Mid(matriz,ini,fim-ini+1)
   matriz  = Replace(matriz,parcial,"")
Loop
LimpaHTML  = matriz
End Function


' Ex. Response.Write LimpaHTML("<B>Exemplo</B>") Retornará somente Exemplo. Teste com HTMLEncode.



Esta matéria foi postada originalmente no ASP4Developers por Adriano Dias (site), que na época era "Gerente de Informática que odeia terno e gravata e que gosta mesmo é de análise e programação. Linuxeiro sem ser radical e ASPeiro por prazer.". Hoje, vai saber...