Categorias

1 Click DB Pro

Imagem do avatar de
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.

<%@ LANGUAGE = VBScript.Encode %>
<% ' Except for @ commands, there should be no ASP or HTML codes above this line
' Setting LANGUAGE = VBScript.Encode enables mixing of encoded and unencoded ASP scripts

'1 Click DB Free copyright 1997-2003 David Kawliche, AccessHelp.net

'1 Click DB Free source code is protected by international
'laws and treaties.  Never use, distribute, or redistribute
'any software and/or source code in violation of its licensing.

'See License.txt for Open Source License
'More info online at https://1ClickDB.com/
'Email inquiries to [email protected]
        
'**Start Encode**
%>

<%
Dim strConnectReturn, strDisConnectReturn, strSourceContext,strAC, strAU, strAP, strCM, strConnectCaption
Sub setConnectionInfo(ByVal strAction, ByVal strConnect, ByVal strUser, ByVal strPass, ByVal strCompatibility)
	Select Case UCase(strAction)
		Case "CONNECT"
			Session("ocdCompatibility") = strCompatibility
			Session("ocdSQLConnect") = strConnect
			Session("ocdSQLUser") = strUser
			Session("ocdSQLPass") = strPass
			Response.Clear()
			Response.Redirect(strConnectReturn)
		Case "DISCONNECT"
			Session("ocdCompatibility") = strCompatibility
			Session("ocdSQLConnect") = ""
			Session("ocdSQLUser") = ""
			Session("ocdSQLPass") = ""
			Response.Clear()
			Response.Redirect(strDisconnectReturn)
	End Select
End Sub
strConnectReturn = "FreeSchema.asp"
strDisConnectReturn = "FreeConnect.asp?nocache=" & server.urlencode(Cstr(now))
If ocdADOConnection <> "" 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: