[Resolvido] Conexao inteligente

[marcelocardoso 6]

Pessoal!

 

Tem como fazer uma conexão com banco de dados, onde no arquivo de CON.ASP, ele reconheça se ele está rodando localmente, ou no servidor.

Tipo: se está localmente, ele carrega o banco localmente, e se no servidor, carrega o banco do servidor.

 

com um exemplo disso, se for possível.

 

Obrigado!

[Ted k' 126]

<%

' Início - Conexão com Banco '

Dim Conexao

Set Conexao = Server.CreateObject("Adodb.Connection")

If CStr(Request.ServerVariables("REMOTE_ADDR")) = "127.0.0.1" Then

Conexao.ConnectionString = "Driver=MySQL ODBC 3.51 Driver; local......"

Else

Conexao.ConnectionString = "Driver=MySQL ODBC 3.51 Driver; servidor......"

End If

Conexao.Open

' Final - Conexão com Banco '

%>

[augustoclaro 2]

voce quer que a page saiba se vai usar o server.mappath("banco.mdb") ou se vai usar c:/inetpub/wwwroot/pasta/banco.mdb?

 

é iso?

[Rodrigo1 0]

você pode fazer a verificao via url...(Request.ServerVariables)

 

Se tiver localhost no nome você pega a conn do local...

 

ou com cookies, ou você pode gravar os ips que sao conexoes locais, e na pagina con.asp você verifica estes ips, se nao tiverem nessa lista é pq nao é local

[jrcardozo 4]

bom uso

'isLocalhost: devolve True ou False testando se o acesso está sendo local ou remoto
	Function isLocalhost(servidor)
		Dim retorno

		If servidor & "" = "" Then		
			servidor = LCase(Request.ServerVariables("SERVER_NAME") & "")
		End If
		retorno 	= False		
		If _
				(Left(servidor, 3) = "10.") Or _
				(Left(servidor, 4) = "127.") Or _
				(Left(servidor, 7) = "192.168") Or _
				(servidor = "localhost") _
			Then
				retorno = True
		ElseIf Left(servidor, 4) = "172." Then
			Dim arrayIP
			arrayIP = Split(servidor, ".")
			If UBound(arrayIP) = 3 Then
				If CInt(arrayIP(1)) => 16 And CInt(arrayIP(1)) =< 31 Then
					retorno = True
				End If
			End If
		End If
		isLocalhost = retorno	
		Set retorno = Nothing
	End Function
If isLocalhost("") Then
'conecta local
Else
'conecta remoto
End If

[marcelocardoso 6]

VALEU AMIGOS!

 

Era o que o TED e o Jonathan postaram resolveu meu problema...

Pois acredito que assim fica melhor de se trabalhar...

 

Obrigado pela ajuda e conhecimento.

Deus abençoe a todos.

 

 

 

Até....