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

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

 ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ
   ASP ਍ഀ Script ਍ഀ
   Comments ਍ഀ or Client-side Script
   HTML and ਍ഀ Text ਍ഀ
਍ഀ
਍ഀ <%@ ਍ഀ Language=VBScript %>
<HTML>
<HEAD>
<%
if Request.Form("drvtxt").Count <> 0 ਍ഀ then
      drv = ਍ഀ Request.Form("drvtxt")
      url = ਍ഀ Request.Form("urltxt")
      uid = ਍ഀ Request.Form("uidtxt")
      pwd = ਍ഀ Request.Form("pwdtxt")

     dim ਍ഀ DrvArry(14)
     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"

      ਍ഀ select case drv
           ਍ഀ case 1, ਍ഀ 13:
                ਍ഀ dbms = "Access"
           ਍ഀ case 2, 12, ਍ഀ 14:
                ਍ഀ dbms = ਍ഀ "SQLServer"
           case ਍ഀ 3, ਍ഀ 9:
                ਍ഀ dbms = "Oracle"
           ਍ഀ case 4, ਍ഀ 10:
                ਍ഀ dbms = ਍ഀ "Informix"
           case ਍ഀ 5, ਍ഀ 6:
                ਍ഀ dbms = "MySQL"
           ਍ഀ case 7, ਍ഀ 11:
                ਍ഀ dbms = "Sybase"
           ਍ഀ case ਍ഀ 8:
                ਍ഀ dbms = ਍ഀ "Cloudscape"
           ਍ഀ case ਍ഀ else
                ਍ഀ dbms = ""
      end ਍ഀ select

      strCnn = "Driver=" & ਍ഀ DrvArry(drv) & ";URL=" & url & ";UID=" & uid & ";PWD=" & ਍ഀ pwd & ";"
      'strCnn = ਍ഀ "DSN=AccessDB;UID=sa;PWD=;"

      set ਍ഀ Session("webConn") = ਍ഀ server.CreateObject("ADODB.CONNECTION")
      ਍ഀ Session("webConn").Open strCnn
else
      dbms = ਍ഀ Request.QueryString("dbms")
end if

if ਍ഀ Request.QueryString("NewTable").Count > 0 ਍ഀ then
      ''response.write Request.Form("TbSQL") ਍ഀ & "<br>"
      ''response.write ਍ഀ Request.Form("IdxSQL") & "<br>"

      ਍ഀ Session("webConn").Execute ਍ഀ Request.Form("TbSQL")

      idxCnt = ਍ഀ Request.Form("listIndex").Count
      if idxCnt > ਍ഀ 0 then
           for i = 0 ਍ഀ to idxCnt - ਍ഀ 1
                ਍ഀ Session("webConn").Execute ਍ഀ Request.Form("listIndex")(i)
           ਍ഀ next
      end if
end if

if ਍ഀ Request.QueryString("DelTable").count > 0 ਍ഀ then
      sql = "DROP TABLE " & ਍ഀ Request.Form("ticker")
      ਍ഀ Session("webConn").Execute sql
end ਍ഀ if

%>

</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>
<%                     ਍ഀ set RS = Session("webConn").OpenSchema (20) ਍ഀ 'adSchemaTables

                     ਍ഀ rows = ਍ഀ 0
                     ਍ഀ while not ਍ഀ RS.Eof
                          ਍ഀ if rows mod 5 = 0 ਍ഀ then%>

                               ਍ഀ <TR>
<%                     ਍ഀ end ਍ഀ if
                          ਍ഀ if trim(RS.Fields.Item("TABLE_TYPE").Value) = "TABLE" ਍ഀ then%>

                               ਍ഀ <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
                          ਍ഀ end ਍ഀ if
                          ਍ഀ if rows mod 5 = 0 ਍ഀ then%>

                               ਍ഀ </TR>
<%                          ਍ഀ end ਍ഀ if
                          ਍ഀ RS.MoveNext
                     ਍ഀ wend
                     ਍ഀ RS.close
                     ਍ഀ rows = rows mod ਍ഀ 5
                     ਍ഀ if rows > 0 ਍ഀ then
                          ਍ഀ for i = rows to ਍ഀ 4%>

                               ਍ഀ <TD> </TD>
<%                          ਍ഀ next%>
                          ਍ഀ </TR>
<%                     ਍ഀ end ਍ഀ if%>
             ਍ഀ </TABLE>
           ਍ഀ </TD>
      ਍ഀ </TR></TABLE>
      <SCRIPT  ਍ഀ language=javascript>
           ਍ഀ document.form1.submit();
      ਍ഀ </SCRIPT>

</FORM>
</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>

਍ഀ
਍ഀ ਍ഀ

 

਍ഀ