|
|
|
|
|
|
|
|
Dicas
|
|
|
ASP - Active Server Page (Miscelâneas)
|
|
 |
Título da Dica: Função p/ mais de uma Conexão
|
 |
|
|
|
Postada em 26/9/2003 por Mago_Pc
<%
'**--Essas funções irá fazer suas conexões sem precisar fazer-las em todas suas páginas--**'
Dim Com, Rs, log, perm
Function ConectarIndex(ByVal Abrir)
AbrirConexao Com, Rs, " Seu-Banco-de-Dados ", Abrir
End Function
Function NovaConectarSeg(ByVal AbrirSeg)
AbrirConexao Cnn, Rs, " Outro-Banco-de-Dados ", AbrirSeg
End Function
Function AbrirConexao(ByRef ObjC, ByRef ObjR, ByVal Banco, ByVal Abrir)
If Abrir Then
Set ObjC = Server.CreateObject("ADODB.Connection")
Set ObjR = Server.CreateObject("ADODB.Recordset")
ObjC.open "provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath("../../databases/" & Banco)
ObjR.ActiveConnection = ObjC
ObjR.CursorType = 1
ObjR.LockType = 3
ElseIf AbrirSeg Then
Set ObjC = Server.CreateObject("ADODB.Connection")
Set ObjR = Server.CreateObject("ADODB.Recordset")
ObjC.open "provider=microsoft.jet.oledb.4.0;data source=" & _
server.MapPath("../../databases/" & Banco)
ObjR.ActiveConnection = ObjC
ObjR.CursorType = 1
ObjR.LockType = 3
Else
If ObjR.State = 1 Then ObjR.Close
If ObjC.State = 1 Then ObjC.Close
Set ObjC = Nothing
Set ObjR = Nothing
End If
End Function
%>
|
|
|
|
|
