http://msdn.microsoft.com/library/default.asp?url=/downloads/list/netdevframework.asp
Aqui esta tudo o que você precisa para .NET
Marcadores: ASP4Developers
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 =)
Marcadores: ASP4Developers
<!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%"> </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%"> </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%"> </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%"> </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%"> </td>
</tr>
</table>
</BODY>
</HTML>
Marcadores: ASP4Developers
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") &"> </a></td>"& vbCrLf
'Desenha o cabeçalho
Response.Write " <td class=TituloUP ><a href="& Request.ServerVariables("SCRIPT_NAME") &"?order="& order &"&field=1> Campo1</a></td>"& vbCrLf
Response.Write " <td class=TituloUP ><a href="& Request.ServerVariables("SCRIPT_NAME") &"?order="& order &"&field=2> 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> </td>"& vbCrLf
Response.Write " <td class=GridBody> "& RS("nome") &"</td>"& vbCrLf
Response.Write " <td class=GridBody> "& 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.
Marcadores: ASP4Developers
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 =))
Marcadores: ASP4Developers
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
Marcadores: ASP4Developers
' 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.
Marcadores: ASP4Developers
