![]() |
JScript Sample: jscript/ado/webaccess/opencnn.asp |
|
||||||
|
||||||||
<%@ Language=JavaScript %> <HTML> <HEAD> <% if (Request.Form("drvtxt").Count > 0) { drv = parseInt( Request.Form("drvtxt") ); url = Request.Form("urltxt"); uid = Request.Form("uidtxt"); pwd = Request.Form("pwdtxt"); var DrvArry = new Array(14); //(17) DrvArry[0] = "--Please select a driver--"; DrvArry[1] = "sun.jdbc.odbc.JdbcOdbcDriver"; DrvArry[2] = "sun.jdbc.odbc.JdbcOdbcDriver"; DrvArry[3] = "oracle.jdbc.driver.OracleDriver"; DrvArry[4] = "com.informix.jdbc.IfxDriver"; DrvArry[5] = "twz1.jdbc.mysql.jdbcMysqlDriver"; DrvArry[6] = "org.gjt.mm.mysql.Driver"; DrvArry[7] = "com.sybase.jdbc2.jdbc.SybDriver"; DrvArry[8] = "COM.cloudscape.core.JDBCDriver"; DrvArry[9] = "intersolv.jdbc.sequelink.SequeLinkDriver"; DrvArry[10] = "intersolv.jdbc.sequelink.SequeLinkDriver"; DrvArry[11] = "intersolv.jdbc.sequelink.SequeLinkDriver"; DrvArry[12] = "intersolv.jdbc.sequelink.SequeLinkDriver"; DrvArry[13] = "intersolv.jdbc.sequelink.SequeLinkDriver"; DrvArry[14] = "openlink.jdbc2.Driver"; switch ( drv ) { case 1: case 13: dbms = "Access"; break; case 2: case 12: case 14: dbms = "SQLServer" break; case 3: case 9: dbms = "Oracle" break; case 4: case 10: dbms = "Informix" break; case 5: case 6: dbms = "MySQL" break; case 7: case 11: dbms = "Sybase" break case 8: dbms = "Cloudscape" break; default: dbms = "" } var strCnn = "Driver=" + DrvArry[drv] + ";URL=" + url + ";UID=" + uid + ";PWD=" + pwd + ";"; Session("webConn") = Server.CreateObject("ADODB.CONNECTION"); Session("webConn").Open (strCnn); } else { dbms = Request.QueryString("dbms"); } if ( Request.QueryString("NewTable").Count > 0 ) { Session("webConn").Execute (Request.Form("TbSQL")); idxCnt = Request.Form("listIndex").Count; if (idxCnt > 0) { for (i = 0; i < idxCnt; i++) { Session("webConn").Execute( Request.Form("listIndex")(i + 1) ); } } } if ( Request.QueryString("DelTable").count > 0 ) { sql = "DROP TABLE " + Request.Form("ticker"); Session("webConn").Execute( sql ); } %> </HEAD> <BODY> <FORM method=post action=blank.asp name=form1 target=bottom> <TABLE width=100% height=160> <TR><TD valign=top bgcolor="#a5bace" width=10%> <font size=+1><b>Database</b></font> <center><P> <A href="open.asp?Operator=NewDB">New</A><br> <A href="open.asp?Operator=OpenDB">Open</A></P></Center> </TD> <TD valign=top bgcolor="#EEEEEE" width=90%> <TABLE><TR> <TD><input type=button name=Newtb value="New Table" onclick="OperateTable(1)"></TD> <TD><input type=button name=Opentb value="Open Table" onclick="OperateTable(2)"></TD> <TD><input type=button name=Designtb value="Design Table" onclick="OperateTable(3)"></TD> <TD><input type=button name=Deletetb value="Delete Table" onclick="OperateTable(4)"></TD> </TR></TABLE> <TABLE width=100%><TR><TD> Table Name: <INPUT type=textbox name=ticker value="<%=Request.QueryString("clickName")%>"> <FONT size=2>(existing tables, write to textbox or click it to open, design or delete.)</FONT> </TD></TR></TABLE> <TABLE width=100% cellpadding=0 cellspacing=0> <% RS = Session("webConn").OpenSchema(20) //adSchemaTables rows = 0; while ( !RS.Eof ) { if ( rows % 5 == 0 ) {%> <TR> <% } if (RS.Fields.Item("TABLE_TYPE").Value == "TABLE") {%> <TD><A HREF="opencnn.asp?dbms=<%=dbms%>&clickName=<%=RS.Fields.Item("TABLE_NAME")%>"><font color=blue class=a><%=RS.Fields.Item("TABLE_NAME")%></font></A></TD> <% rows = rows + 1; } if (rows % 5 == 0) {%> </TR> <% } RS.MoveNext(); } RS.Close(); rows = rows % 5; if (rows > 0) { for (i = rows; i < 5; i++) {%> <TD> </TD> <% }%> </TR> <% }%> </TABLE> </TD> </TR></TABLE> </FORM> <script language=javascript> document.form1.submit(); </script> </BODY> </HTML> <script language=javascript> function OperateTable(option){ if (document.form1.ticker.value == "" && parseInt(option) != 1) { alert("Please enter or select a table."); return; } switch (option){ case 1: document.form1.action = "newtb.asp?dbms=<%=dbms%>"; document.form1.target="bottom"; break; case 2: document.form1.action = "opentb.asp?mode=1&direction=0";; document.form1.target="bottom"; break; case 3: document.form1.action = "designtb.asp?dbms=<%=dbms%>"; document.form1.target="bottom"; break; case 4: document.form1.action = "opencnn.asp?dbms=<%=dbms%>&DelTable=ok"; document.form1.target = "top"; break; } document.form1.submit(); } </script> |
||||||||
|
||||||||
Copyright © 1998-2002, Halcyon
Software Inc. All rights reserved.
|