Categorias

1 Click DB Pro

Publicado por Alvaro Barros

Excelente gerenciador completo de Banco de dados, bastando apenas informar o script de conexão.

Suporta o seguintes SGDBs:
– SQL Server
– Oracle
– MS Access
– mySQL

O site do criador do sistema é: https://1ClickDB.com

Veja no código a página principal do sistema.



 "" Then
	Response.Redirect(strConnectReturn)
End If
strAC = Session("ocdSQLConnect") 
strAU = Session("ocdSQLUser") 
strAP =  Session("ocdSQLPass")
Select Case UCASE(Request("Action"))
	Case "CONNECT"
		If Request("connect") <> "" Then
			ndnscSQLConnect = Request("connect")
		End If
		If ndnscSQLConnect <> "" Then
			ndnscSQLUser = Request("user")
			ndnscSQLPass = Request("pass")
			ndnscCompatibility = 0
			If Request("UseTreemenu") = "" Then
				ndnscCompatibility = ndnscCompatibility + ocdNoFrames 
			End If
'			If Request("noframes") <> "" Then
'				ndnscCompatibility = ndnscCompatibility + ocdNoFrames
'			End If
'			If Request("nojavascript") <> "" Then
'				ndnscCompatibility = ndnscCompatibility + ocdNoJavaScript
'			End If
'			If Not CBOOL((ndnscCompatibility And ocdNoCookies)) Then
				Call setConnectionInfo ("Connect", ndnscSQLConnect, ndnscSQLUser, ndnscSQLPass,ndnscCompatibility)
'			End If
		End If
	Case "DISCONNECT"
		Call setConnectionInfo ("Disconnect",ndnscSQLConnect,ndnscSQLUser,ndnscSQLPass,ndnscCompatibility)
End Select

strConnectCaption = strConnectCaption  & (" Connectando a Base de Dados ")

Call WriteHeader("")

Response.Write("
")
Response.Write(DrawDialogBox("DIALOG_START",strConnectCaption, ""))
Response.Write("
Exemplo: Nã utilize ASPAS"": 
Driver={Microsoft Access Driver (*.mdb)};DBQ=c:caminhodatabasebd.mdb
")
Response.Write("""
String de conexão: 
(Acesso ao bando de dados)

Usuário: "" Then
	Response.Write(server.htmlencode(request("user")))
Elseif Request("datasource") = "" Then
	Response.Write(server.htmlencode(strAU))
End If
Response.Write(""">
Password: "" Then
	Response.Write(server.htmlencode(Request("pass")))
Elseif request("datasource") = "" Then
	Response.Write(server.htmlencode(strAP))
End If
Response.Write(""">
")
If strAC <> "" and request("datasource") = "" Then
	Response.Write("")
End If

Response.Write("      ")
Response.Write("Use TreeMenu")

'Response.Write(" Online Help")
Response.Write("
")
Response.Write("
")
Response.Write(DrawDialogBox("DIALOG_END", "", ""))
Response.Write("
")



%>

Arquivos para Download:

superDB.zip

Tags: