sábado, 28 de setembro de 2002

0

Super Trim em ASP

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

0

Retorna Um Valor Do Banco de Dados

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

0

Apenas Numericos

<SCRIPT LANGUAGE="JavaScript">


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>



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

0

Codigo ASCII

<BODY ONLOAD=javascript:document.ascii.codigo.focus()>


<DIV ALIGN=center> <FONT FACE=arial SIZE=-1> <BR>


<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



<SCRIPT LANGUAGE=JavaScript>


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>



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

0

Valida Email

<DIV ALIGN=center><FONT FACE=arial SIZE=-1>


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


<SCRIPT LANGUAGE=Javascript>


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



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

0

Inibi Caracteres Especiais

<SCRIPT LANGUAGE=JavaScript>


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



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

quinta-feira, 19 de setembro de 2002

0

VARIAS CONEXÕES

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

0

Como apagar todos os cookies de uma máquina!

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

0

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

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



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