਍ഀ ਍ഀ View ASP Source code਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ
ASP Source Code਍ഀ

ASP File: ਍ഀ jscript/ado/webaccess/opencnn.asp

਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ
      ਍ഀ  ASP Script
      ਍ഀ  Comments or Client-side ਍ഀ Script
        HTML and Text ਍ഀ
਍ഀ
਍ഀ <%@ ਍ഀ 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] = ਍ഀ "postgresql.Driver";
     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 + ਍ഀ ";";
      //strCnn = ਍ഀ "DSN=AccessDB;UID=sa;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>

਍ഀ
਍ഀ ਍ഀ

 

਍ഀ