Rubens Farias' weblog: setembro 2002

sábado, 28 de setembro de 2002

Super Trim em ASP

Postado por Rubens Farias às 12:01

pelo fato a função trim, só retirar os espaços que estão antes ou após a string, desenvolvi esta função que retira os espaços no meio da string, sem alterar seu conteúdo.

Neste utilizando uma outra função interessante também que inser um novo Elemento a uma Array já criada.

Bom proveito!
<%
'--------------------------------------------------
' RETIRA ESPAÇOS ADICIONAIS DE UMA STRING
' Autor: Márcio J. Lima (Guardião)
' Email: listas@guardiaodaweb.com.br
' Data de criação: 28-09-2002 - SP / Brasil
'--------------------------------------------------
reDim a(0)
sub insere(byref matriz, elemento)
   blnExiste = false
   for i=0 to Ubound(matriz)
    if matriz(i) = elemento then
     blnExiste = true
    End if
   next
   If not blnExiste Then
    redim preserve matriz(Ubound(matriz)+1)
    matriz(ubound(matriz)) = elemento
   End if
end sub

Function RemoveEspacos(str)
y = Split(str, " ")
For x = LBound(y) To UBound(y)
IF Trim(y(x)) <> " " Then Call insere(a,y(x))
Next
m = Join(a)
RemoveEspacos = Trim(m)
End Function

'strEspacos = " 123 456 78 9 "
strEspacos = " Meu Nome é Andrei "
response.write RemoveEspacos(strEspacos)
%>

Esta matéria foi postada originalmente no ASP4Developers por Marcio Lima (Guardião) (site), que na época era "Programador ASP e VBA, apaixonado por Design, futurismo e ficção.
". Hoje, vai saber...

sábado, 21 de setembro de 2002

Retorna Um Valor Do Banco de Dados

Postado por Rubens Farias às 21:54

Function pegadado(tabela, campoderetorno, campocomparativo, valorcomparativo)
Set objconex = Server.CreateObject("ADODB.Connection")
ObjConex.Open sua string de conexao

strsql = "SELECT " & campoderetorno & " FROM " & Tabela & " WHERE " & campocomparativo & " = '" & valorcomparativo & "'"
Set RecSet = objconex.execute(strsql)
if(RecSet.EOF) then
pegadado = ""
else
pegadado = RecSet.Fields(campoderetorno)
End If
End Function

Exemplo: pegadado("usuarios", "nome_usuarios", "email_usuarios", "dnaiel@passos.eti.br")
Isso lhe retornaria o valor guardando na tabela usuariso no campo nome_usuarios onde o email do usuario fosse = a daniel@passos.eti.br

Esta matéria foi postada originalmente no ASP4Developers por Daniel Passos (site), que na época era "Consultor de TI com fortes conhecimentos nas linguagens HTML, JavaScript, Perl, ASP e PHP. Conhecimentos básicos de Java (Swing, JSP & Servlets), orientação a objetos e UML, Banco de dados MySQL, SQL Server e Oracle.". Hoje, vai saber...

Apenas Numericos

Postado por Rubens Farias às 21:50

function apenasnumericos(caracter) {

if(document.all) { // Internet Explorer
  var tecla = event.keyCode;
}
else {
  if(document.layers) { // Nestcape
   var tecla = caracter.which;
  }
}

if(tecla > 47 && tecla < 58) { // numeros de 0 a 9
  return true;
}
else {
  if (tecla != 8) { // backspace
   return false;
  }
  else {
   return true;
  }
}

}

</SCRIPT>

<BODY ONLOAD=javascript:document.form1.xxx.focus();>
<form name="form1">
Apenas Numeros: <input type="text" name="xxx" onKeyPress="return apenasnumericos(event);">
</FORM>

Codigo ASCII

Postado por Rubens Farias às 21:49

<FORM NAME=ascii>
Pressione a Tecla Que Deseja Saber o Codigo ASCII:
<INPUT TYPE=text NAME=codigo SIZE=1 onKeyPress='return codigoascii(event)'>
</FORM>

OBS: Este Script <B> NÃO </B> Captura As Teclas: <BR>
De Funções: F1 / F2 / F3 / F4 / F5 / F6 / F7 / F8 / F9 / F10 / F11 / F12 <BR>
De Controle : TAB / CAPS LOCK / SHIFT / CTRL / ALT / BACKSPACE <BR>
Insert / Delete / Home / End / PG UP / PG DN <BR>
As Setas: CIMA / BAIXO / DIRETA / ESQUERDA

function codigoascii(teclapressionada) {

if(document.all) { // Internet Explorer
  var ascii = event.keyCode;
}
else {
  if(document.layers) { // Nestcape
   var ascii = caracter.which;
  }
}

if((ascii != 13) && (ascii != 32)) { tecla = String.fromCharCode(ascii); } // Atribui a tecla pressionada //
else {
if(ascii == 13) { tecla = "[ENTER]"; } // Escreve [ENTER] ai inves de pular linha //
if(ascii == 32) { tecla = "[ESPAÇO]"; } // Escreve [ESPAÇO] ai inves de pular linha //
}

alert("O Codigo ASCII Referente A Tecla " + tecla + " é " + ascii);

return false;

}

</SCRIPT>

Valida Email

Postado por Rubens Farias às 21:46

<FORM NAME=formemail>
Email: <INPUT TYPE=text NAME=email VALUE="" SIZE=30 MAXLENGTH=50> <P>
<INPUT TYPE=button VALUE="Testar Email" OnClick=testaemail(this.form)>
</FORM>

// Isso fica dentro da rotina que testa todo o formulario //
function testaemail(form) {
if(validaemail(form.email.value)) {
  alert("Formato Valido!");
}
else {
  form.email.select();
  alert("Formato Invalido!");
}
}

// Testa um email no formato teste@testando. + com.br (3.2) ou + .com (3) ou + .br (2) //
// NÃO podem comecar com numeros. Antes da @ podem contar numeros letras, pontos e undescore //
// O Dominio pode conter caracteres e numeros porem os seus sufixos apenas caracteres //

function validaemail(email) {
var objRegExp = /^[A-Za-z]([\w\.]*)@([A-Za-z0-9\.]*)\.(([A-Za-z]{3}\.[A-Za-z]{2}$)|([A-Za-z]{3}$)|([a-z]{2}$))/i ;
return objRegExp.test(email);
}

</SCRIPT>

Inibi Caracteres Especiais

Postado por Rubens Farias às 21:44

// Procura pro caracteres invalido como: ' , " < > //
function semcaracteresespeciais(caracter) {

if(document.all) { // Internet Explorer
  var tecla = event.keyCode;
}
else {
  if(document.layers) { // Nestcape
   var tecla = caracter.which;
  }
}

if((tecla == 35) || (tecla == 34) || (tecla == 39) || (tecla == 60) || (tecla == 62)) {
alert("Você não usar preencher os seguintes caracteres: #, \", ', <, > ");
return false;
}
else { return true; }

}

</SCRIPT>
<BODY ONLOAD=javascript:document.form1.xxx.focus();>
<form name="form1">
Inibi Caracteres #, \", ', <, > <input type="text" name="xxx" onKeyPress="return semcaracteresespeciais(event);">
</FORM>

quinta-feira, 19 de setembro de 2002

VARIAS CONEXÕES

Postado por Rubens Farias às 15:37

====================
ODBC DNS Connections
=====================

DNS
Conn.Open "DSN=SampleDB;Uid=Admin;Pwd=;"

File DNS
Conn.Open "FILEDSN=\\path\\mydb.dsn;Uid=Admin;Pwd=;"

ODBC DNS-Less Connections
ODBC Driver for AS/400
Conn.Open "Driver={Client Access ODBC Driver (32-bit)}; System=myAS400;Uid=myUsername;Pwd=myPassword;"

ODBC Driver for dBASE
Conn.Open "Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=\\somepath;"
rs.Open "SELECT * FROM USER.DBF", Conn

ODBC Driver for MS Access
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};" & _
"Dbq=\\path\\mydb.mdb;Uid=Admin;Pwd=;"

Using a Workgroup (System database)
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};" & _
"Dbq=\\path\\mydb.mdb;SystemDB=\\somepath\\mydb.mdw;", "admin",""

ODBC Driver for MS Excel
Conn.Open "Driver={Microsoft Excel Driver (*.xls)};DriverId=790;" & _
"Dbq=\\somepath\\Sheet1.xls;DefaultDir=\\somepath;"

ODBC Driver for MySQL (MyODBC)
Conn.Open "Driver={mySQL};Server=MyServerName;Option=16834;Database=mydb;"

ODBC Driver for Oracle
Conn.Open "Driver={Microsoft ODBC for Oracle};Server=OracleServer.world;" & _
"Uid=myUsername;Pwd=myPassword;"

ODBC Driver for Paradox
Conn.Open "Driver={Microsoft Paradox Driver (*.db)};DriverID=538;Fil=Paradox 5.X;" & _
"DefaultDir=c:\\dbpath\\;Dbq=c:\\dbpath\\;CollatingSequence=ASCII;"

ODBC Driver for SQL Server
Conn.Open "Driver={SQL Server};Server=MyServerName;Database=myDatabaseName;" & _
"Uid=myUsername;Pwd=myPassword

For trusted connection
Conn.Open "Driver={SQL Server};Server=MyServerName;Database=myDatabaseName;" & _
"Trusted_Connection=yes;"

To Prompt user for username and password
Conn.Properties("Prompt") = adPromptAlways
Conn.Open "Driver={SQL Server}; Server=ServerName; DataBase=DatabaseName;"

ODBC Driver for Sybase
Sybase System 11 ODBC Driver
Conn.Open "Driver={SYBASE SYSTEM 11}; Srvr=myServerName;" & _
"Uid=myUsername; Pwd=myPassword;"

Intersolv 3.10 Sybase ODBC Driver
Conn.Open "Driver={INTERSOLV 3.10 32-BIT Sybase}; Srvr=myServerName;" & _
"Uid=myUsername; Pwd=myPassword;"

ODBC Driver for Sybase SQL Anywhere
Conn.Open "ODBC; Driver=Sybase SQL Anywhere 5.0;" & _
"DefaultDir=c:\\dbpath\\; Dbf=c:\\sqlany50\\mydb.db;" & _
"Uid=myUsername; Pwd=myPassword; Dsn="""";"

ODBC Driver for Text
Conn.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _
"Dbq=\\somepath\\; Extensions=asc,csv,tab,txt; Persist Security Info=False"
rs.Open "SELECT * FROM CUSTOMER.CSV", Conn

ODBC Driver for Visual FoxPro
With a database container
Conn.Open "Driver={Microsoft Visual FoxPro Driver}; SourceType=DBC;" & _
"SourceDB=\\somepath\\mySourceDb.dbc; Exclusive=No;"

Without a database container (Free Table Directory)
Conn.Open "Driver={Microsoft Visual FoxPro Driver}; SourceType=DBF;" & _
"SourceDB=\\somepath\\mySourceDbFolder; Exclusive=No;"

============================
OLE DB Provider Connections
============================

OLE DB Provider for AS/400
Conn.Open "Provider=IBMDA400; Data source=myAS400;" & _
"User Id=myUsername; Password=myPassword;"

OLE DB Provider for Active Directory Service
Conn.Open "Provider=ADSDSOObject; User Id=myUsername; Password=myPassword;"

OLE DB Provider for DB2
Conn.Open = "Provider=DB2OLEDB;" & _
                    "Network Transport Library=TCPIP; Network Address=MyServer;" & _
                    "Package Collection=MyPackage; Host CCSID=1142; Initial Catalog=MyDB;" & _
                    "User ID=MyUsername; Password=MyPassword;"

OLE DB Provider for Index Server
Conn.Open "Provider=msidxs; Data source=MyCatalog;"

OLE DB Provider for Internet Publishing
Conn.Open "Provider=MSDAIPP.DSO; Data Source=http://mywebsite/myDir;" & _
"User Id=myUsername; Password=myPassword;"

OLE DB Provider for Microsoft Jet
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=\\somepath\\myDb.mdb;" & _
"User Id=admin; Password=;"

Using a Workgroup (System database)
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=\\somepath\\mydb.mdb;" & _
"Jet OLEDB:System Database=MySystem.mdw;", "admin", ""

MDB has a database password
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=\\somepath\\mydb.mdb;" & _
"Jet OLEDB:Database Password=MyDbPassword;", "admin", ""

Open Excel
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=\\somepath\\Sheet1.xls;" & _
"Extended Properties=""Excel 8.0;HDR=Yes;"";"

OLE DB Provider for ODBC Databases
MS Access (Jet)
Conn.Open "Provider=MSDASQL; Driver={Microsoft Access Driver (*.mdb)};" & _
"Dbq=\\somepath\\mydb.mdb; Uid=myUsername; Pwd=myPassword;"

SQL Server
Conn.Open "Provider=MSDASQL; Driver={SQL Server};" & _
"Server=myServerName; Database=myDatabaseName;" & _
"Uid=myUsername; Pwd=myPassword;"

OLE DB Provider for Oracle
from Microsoft
Conn.Open "Provider=msdaora; Data Source=MyOracleDB;" & _
"User Id=myUsername; Password=myPassword;"

from Oracle
Conn.Open "Provider=OraOLEDB.Oracle; Data Source=MyOracleDB;" & _
"User Id=myUsername; Password=myPassword;"

For a Trusted Connection
Conn.Open "Provider=OraOLEDB.Oracle; Data Source=MyOracleDB; User Id=/; Password=;"
Conn.Open "Provider=OraOLEDB.Oracle; Data Source=MyOracleDB; OSAuthent=1;"

OLE DB Provider for Simple Provider
Conn.Open "Provider=MSDAOSP; Data Source=MSXML2.DSOControl.2.6;"
rs.Open "http://WebServer/VirtualRoot/MyXMLFile.xml", Conn

OLE DB Provider for SQL Server
Conn.Open "Provider=sqloledb; Data Source=ServerName; Initial Catalog=DatabaseName;" & _
"User Id=myUsername; Password=myPassword;"

For a Trusted Connection
Conn.Open "Provider=sqloledb; Data Source=ServerName; Initial Catalog=DatabaseName;" & _
"Integrated Security=SSPI;"

Connect to a "Named Instance" (SQL Server 2000)
Conn.Open "Provider=sqloledb; Data Source=ServerName\\Inst2; Initial Catalog=DatabaseName;" & _
"User Id=myUsername; Password=myPassword;"

Prompt for username and password
Conn.Provider = "sqloledb"
Conn.Properties("Prompt") = adPromptAlways
Conn.Open "Data Source=ServerName; Initial Catalog=DatabaseName;"

To connect via an IP address
Conn.Open "Provider=sqloledb; Network Library=DBMSSOCN;" & _
"Data Source=xxx.xxx.xxx.xxx,1433; Initial Catalog=DatabaseName;" & _
"User ID=myUsername; Password=myPassword;"

==================================
Remote OLE DB Provider Connections
==================================

MS Remote - Access (Jet)
ODBC DSN
Conn.Open "Provider=MS Remote; Remote Server=http://ServerName; Remote Provider=MSDASQL; DSN=AdvWorks; Uid=myUsername; Pwd=myPassword;"

OLE DB Provider
Conn.Open "Provider=MS Remote; Remote Server=http://ServerName; Remote Provider=Microsoft.Jet.OLEDB.4.0; Data Source=\\path\\mydb.mdb;", "admin", ""

MS Remote - SQL Server

ODBC DSN
Conn.Open "Provider=MS Remote; Remote Server=http://server; Remote Provider=MSDASQL; DSN=DatabaseName; Uid=Username; Pwd=Password;"

OLE DB Provider
Conn.Open "Provider=MS Remote; Remote Server=http://ServerName; Remote Provider=SQLOLEDB; Data Source=ServerName; Initial Catalog=DatabaseName; User ID=Username; Password=Password;"

=================================
.NET Managed Provider Connections
=================================

SQL Client .NET Managed Provider (System.Data.SqlClient)
Dim Conn As SqlClient.SqlConnection
Dim ConnStr As String

ConnStr = "Data Source=(local); Initial Catalog=NorthWind; Integrated Security=SSPI; Pooling=True; Min Pool Size=10; Max Pool Size=50; Connection Lifetime=30; Connection Reset=True; Enlist=True;"
Conn = New SqlClient.SqlConnection(ConnStr)
Conn.Open()
OLE DB .NET Managed Provider (System.Data.OleDb)
Dim Conn As OleDb.OleDbConnection
Dim ConnStr As String

ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=nwind.mdb; User ID=Admin; Password=;"
Conn = New OleDb.OleDbConnection(ConnStr)
Conn.Open()

Esta matéria foi postada originalmente no ASP4Developers por Hélio Fernandes da Costa (site), que na época era "Analista de Intranet Grupo Santander Banespa

Programador do site ASPBRASIL

Instrutor SOS Computadores

Diretor sócio da http://www.redeye.com.br". Hoje, vai saber...

quarta-feira, 11 de setembro de 2002

Como apagar todos os cookies de uma máquina!

Postado por Rubens Farias às 09:11

<%
response.buffer=true
Dim objCookie
'será feito um loop pela coleçào de cookies
Response.Write "Deletando cookies...<BR>"
For Each objCookie In Request.Cookies
'Irá deletar os cookies marcando uma data para expirar
'A data antiga é proposital para obrigar o browser a deletar direto
Response.Cookies(objCookie).Expires = "September 7, 1998"
Next
Response.Write "Finalizado. Todos cookies foram apagados"
%>

Extraído de Imasters.com.br

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...

Redireciona para uma pagina de suporte quando a conexão com o Banco não foi estabelecida!

Postado por Rubens Farias às 09:08

Por Yongg Choi - Extraído de Imasters.com.br

Quando você conecta em um banco de dados pelo ASP, você não tem certeza se a conexão estará disponível sempre a todos. Desta forma, com o uso deste código, o usuário será redirecionado para uma página de aviso ou outra que você desejar, quando ocorrer o erro abaixo:

Microsoft OLE DB Provider for ODBC Drivers error '80004005' [Microsoft][ODBC SQL Server Driver][SQL Server]SQL Server has been paused. No new connections will be allowed. /LocalTaeyo/QAboard/S.asp, line 11

NOTA: Este exemplo marca a página msg.asp como a de aviso. Então, crie uma com este nome e insira um aviso de instabilidade no servidor de banco de dados.

<%
on error resume next

Set DbCon = Server.CreateObject("ADODB.Connection")
'faça sua string de conexao aqui normalmente
DbCon.Open ("DSN=***;uid=***;pwd=***;")

If Dbcon.Errors.Count > 0 then
if Err.number = "-2147467259" then
'msg.asp : faça este pagina de aviso!
Response.Redirect "msg.asp" 'On Error Connecting
else
Response.Redirect "GoAhead.asp"
end if

else

Response.Redirect "GoAhead.asp"

end if
%>

Rubens Farias' weblog

sábado, 28 de setembro de 2002

Super Trim em ASP

sábado, 21 de setembro de 2002

Retorna Um Valor Do Banco de Dados

Apenas Numericos

Codigo ASCII

Valida Email

Inibi Caracteres Especiais

quinta-feira, 19 de setembro de 2002

VARIAS CONEXÕES

quarta-feira, 11 de setembro de 2002

Como apagar todos os cookies de uma máquina!

Redireciona para uma pagina de suporte quando a conexão com o Banco não foi estabelecida!

Quem sou eu?

êêêê saudade...

StackOverflow

Rubens Farias' shared items

Arquivo

Google Analytics