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("") Response.Write(DrawDialogBox("DIALOG_END", "", "")) Response.Write(" ") %>