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

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

 ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ
   ASP ਍ഀ Script ਍ഀ
   Comments ਍ഀ or Client-side Script
   HTML and ਍ഀ Text ਍ഀ
਍ഀ
਍ഀ <%@ ਍ഀ Language=VBScript ਍ഀ %>
<HTML>
<HEAD>
</HEAD>

<BODY>
<FORM ਍ഀ method=post action=opencnn.asp name=form1>
     ਍ഀ <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>
<%operator = ਍ഀ Request.QueryString("Operator")
if operator = "nothing" ਍ഀ then%>

         <TD ਍ഀ align=center bgcolor="#EEEEEE" width=90%>
 </TD>
<%elseif operator = "NewDB" ਍ഀ then%>
     <TD align=center ਍ഀ bgcolor="#EEEEEE" width=90%><b>
     ਍ഀ <font size=+2>Presently, this function isn't ਍ഀ supported.</font></b></TD>
<%elseif ਍ഀ operator = "OpenDB" then
     dim ਍ഀ path,dbpath,pos

     path = ਍ഀ Server.mappath("open.asp")
      path = ਍ഀ replace(path, "\", "/")
     pos = ਍ഀ InStr(1,path,"vbscript")
     dbpath = Left(path,pos - 1) ਍ഀ & "database/CloudscapeDB"

     drvIdx = ਍ഀ Request.QueryString("drvtxt")

     dim DrvArry(14) ਍ഀ '(17)
     DrvArry(0) = "--Please select a ਍ഀ driver--"
      DrvArry(1) = ਍ഀ "sun.jdbc.odbc.JdbcOdbcDriver (Access)"
     DrvArry(2) = ਍ഀ "sun.jdbc.odbc.JdbcOdbcDriver (SQLServer)"
     ਍ഀ DrvArry(3) = "oracle.jdbc.driver.OracleDriver ਍ഀ (Oracle)"
     DrvArry(4) = "com.informix.jdbc.IfxDriver ਍ഀ (Informix)"
     DrvArry(5) = ਍ഀ "twz1.jdbc.mysql.jdbcMysqlDriver (MySQL)"
     DrvArry(6) ਍ഀ = "org.gjt.mm.mysql.Driver (MySQL)"
     DrvArry(7) = ਍ഀ "com.sybase.jdbc2.jdbc.SybDriver (Sybase)"
     ਍ഀ DrvArry(8) = "COM.cloudscape.core.JDBCDriver ਍ഀ (Cloudscape)"
     ''DrvArry(9) = "postgresql.Driver ਍ഀ (Postgre)"
     DrvArry(9) = ਍ഀ "intersolv.jdbc.sequelink.SequeLinkDriver (Oracle)"
     ਍ഀ DrvArry(10) = "intersolv.jdbc.sequelink.SequeLinkDriver ਍ഀ (Informix)"
     DrvArry(11) = ਍ഀ "intersolv.jdbc.sequelink.SequeLinkDriver (Sybase)"
     ਍ഀ DrvArry(12) = "intersolv.jdbc.sequelink.SequeLinkDriver ਍ഀ (SQLServer)"
      DrvArry(13) = ਍ഀ "intersolv.jdbc.sequelink.SequeLinkDriver (Access)"
     ਍ഀ DrvArry(14) = "openlink.jdbc2.Driver ਍ഀ (SQLServer)"

     'DrvArry(15) = ਍ഀ "com.imaginary.sql.msql.MsqlDriver (MiniSQL)"
     ਍ഀ 'DrvArry(16) = "solid.jdbc.SolidDriver"
     'DrvArry(17) ਍ഀ = ਍ഀ "symantec.itools.db.jdbc.Driver"
%>

           ਍ഀ <TD bgcolor="#EEEEEE" ਍ഀ width=90%>

                ਍ഀ <TABLE border=0 width=100% cellspacing=5 ਍ഀ cellpadding=2>
                     ਍ഀ <TR><TD ਍ഀ width=2%> </TD>
                          ਍ഀ <TD ਍ഀ width=10%><B>Driver:</B></TD>
                          ਍ഀ <TD ਍ഀ width=2%> </TD>
                          ਍ഀ <TD ਍ഀ width=86%>
                               ਍ഀ <TABLE border=0 cellspacing=0 cellpadding=0><TD><TD ਍ഀ width=340>
                                    ਍ഀ <SELECT name=drvtxt width=340 style="WIDTH: 340px" ਍ഀ onChange="drvtxt_onChange();">
                                    ਍ഀ <%for i=0 to ਍ഀ ubound(DrvArry)
                                         ਍ഀ if i = drvIdx ਍ഀ then%>

                                              ਍ഀ <OPTION value=<%=i%>  selected><%=DrvArry(i)%></OPTION>
                                         ਍ഀ <%else%>
           ਍ഀ <OPTION value=<%=i%>><%=DrvArry(i)%></OPTION>
           ਍ഀ <%end ਍ഀ if%>
                                    ਍ഀ <%next%>
                                    ਍ഀ </SELECT></TD>
                                    ਍ഀ <TD width=80 align=center><INPUT name=openCnn type=submit value=" Open ਍ഀ "></TD>
                                    ਍ഀ <TD><INPUT name=reset1 type=reset value=" ਍ഀ Reset"></TD></TR></TABLE>
                          ਍ഀ </TD></TR>
                     ਍ഀ <TR><TD ਍ഀ width=2%> </TD>
                          ਍ഀ <TD ਍ഀ width=10%><B>Url:</B></TD>
                          ਍ഀ <TD ਍ഀ width=2%> </TD>
                          ਍ഀ <TD width=86%><INPUT type=textbox name=urltxt ਍ഀ size=70></TD></TR>
                     ਍ഀ <TR><TD ਍ഀ width=2%> </TD>
                          ਍ഀ <TD ਍ഀ width=10%><STRONG>UID:</STRONG></TD>
                          ਍ഀ <TD ਍ഀ width=2%> </TD>
                          ਍ഀ <TD width=86%><INPUT type=textbox name=uidtxt ਍ഀ size=70></TD></TR>
                     ਍ഀ <TR><TD ਍ഀ width=2%> </TD>
                          ਍ഀ <TD ਍ഀ width=10%><STRONG>PWD:</STRONG></TD>
                          ਍ഀ <TD ਍ഀ width=2%> </TD>
                          ਍ഀ <TD width=86%><INPUT name=pwdtxt type=password ਍ഀ size=70></TD></TR>
                ਍ഀ </TABLE></TD>
      <%end ਍ഀ if%>
           ਍ഀ </TR></TABLE>

</FORM>

</BODY>
</HTML>

<SCRIPT  language=JavaScript>
function ਍ഀ openCnn_onclick(){
      if ਍ഀ (document.form1.drvtxt.selectedIndex == ਍ഀ 0){
           ਍ഀ alert("Please select a driver for open ਍ഀ database!");
           ਍ഀ return;
      }
      ਍ഀ document.form1.submit();
}

function ਍ഀ drvtxt_onChange(){
      switch ( ਍ഀ document.form1.drvtxt.selectedIndex ){
      case ਍ഀ 0:
      document.form1.urltxt.value = ਍ഀ "";
      document.form1.uidtxt.value = ਍ഀ "";
      document.form1.pwdtxt.value = ਍ഀ "";
      break;
      ਍ഀ case 1:
      document.form1.urltxt.value = ਍ഀ "{jdbc:odbc:AccessDB}";
      ਍ഀ document.form1.uidtxt.value = "";
      ਍ഀ document.form1.pwdtxt.value = "";
      ਍ഀ break;
      case ਍ഀ 2:
      document.form1.urltxt.value = ਍ഀ "{jdbc:odbc:SQLServerDB}";
      ਍ഀ document.form1.uidtxt.value = "sa";
      ਍ഀ document.form1.pwdtxt.value = "";
      ਍ഀ break;
      case ਍ഀ 3:
      document.form1.urltxt.value = ਍ഀ "{jdbc:oracle:thin:@<HostIP>:1521:<SID>}";
      ਍ഀ document.form1.uidtxt.value = "HALCYON";
      ਍ഀ document.form1.pwdtxt.value = "HALCYON";
      ਍ഀ break;
     case 4:
      ਍ഀ document.form1.urltxt.value = ਍ഀ "{jdbc:informix-sqli://<HostIP>:1526/InformixDB:informixserver=kingdbsvr;user=informix;password=miss}";
      ਍ഀ document.form1.uidtxt.value = "";
      ਍ഀ document.form1.pwdtxt.value = "";
      ਍ഀ break;
     case 5:
      ਍ഀ document.form1.urltxt.value = ਍ഀ "{jdbc:z1MySQL://<HostIP>:3306/MySQLDB}";
      ਍ഀ document.form1.uidtxt.value = "root";
      ਍ഀ document.form1.pwdtxt.value = "";
      ਍ഀ break;
     case 6:
      ਍ഀ document.form1.urltxt.value = ਍ഀ "{jdbc:mysql://<HostIP>:3306/MySQLDB}";
      ਍ഀ document.form1.uidtxt.value = "root";
      ਍ഀ document.form1.pwdtxt.value = "";
      ਍ഀ break;
     case 7:
      ਍ഀ document.form1.urltxt.value = ਍ഀ "{jdbc:sybase:Tds:<HostIP>:5000/SybaseDB}";
      ਍ഀ document.form1.uidtxt.value = "sa";
      ਍ഀ document.form1.pwdtxt.value = "";
      ਍ഀ break;
     case 8:
      ਍ഀ document.form1.urltxt.value = "{jdbc:cloudscape:<%=dbpath%>}";
      ਍ഀ document.form1.uidtxt.value = "";
      ਍ഀ document.form1.pwdtxt.value = "";
      break;
/* ਍ഀ case 9:
      document.form1.urltxt.value = ਍ഀ "{jdbc:postgresql://<HostIP>:5432/PostgresDB}";
      ਍ഀ document.form1.uidtxt.value = "postgres";
      ਍ഀ document.form1.pwdtxt.value = "post";
      ਍ഀ break;
*/
      case ਍ഀ 9:
      document.form1.urltxt.value = ਍ഀ "{jdbc:sequelink://<HostIP>:4003/[Oracle];OSUser=john;OSPassword=whatever}";
      ਍ഀ document.form1.uidtxt.value = "HALCYON";
      ਍ഀ document.form1.pwdtxt.value = "HALCYON";
      ਍ഀ break;
      case ਍ഀ 10:
      document.form1.urltxt.value = ਍ഀ "{jdbc:sequelink://<HostIP>:4004/[Informix];Database=InformixDB;OSUser=john;OSPassword=whatever}";
      ਍ഀ document.form1.uidtxt.value = "";
      ਍ഀ document.form1.pwdtxt.value = "";
      ਍ഀ break;
      case ਍ഀ 11:
      document.form1.urltxt.value = ਍ഀ "{jdbc:sequelink://<HostIP>:4005/[Sybase];Database=SybaseDB;OSUser=john;OSPassword=whatever}";
      ਍ഀ document.form1.uidtxt.value = "sa";
      ਍ഀ document.form1.pwdtxt.value = "";
      ਍ഀ break;
      case ਍ഀ 12:
      document.form1.urltxt.value = ਍ഀ "{jdbc:sequelink://<HostIP>:4006/[SQLServer];Database=SQLServerDB;OSUser=john;OSPassword=whatever}";
      ਍ഀ document.form1.uidtxt.value = "sa";
      ਍ഀ document.form1.pwdtxt.value = "";
      ਍ഀ break;
      case ਍ഀ 13:
      document.form1.urltxt.value = ਍ഀ "{jdbc:sequelink://<HostIP>:4011/[ODBC MS ਍ഀ Access];Database=c:\\database\\AccessDB.mdb;}";
      ਍ഀ document.form1.uidtxt.value = "";
      ਍ഀ document.form1.pwdtxt.value = "";
      ਍ഀ break;
      case ਍ഀ 14:
      document.form1.urltxt.value = ਍ഀ "jdbc:openlink://<HostIP>/DSN=SQLServerDB/UID=sa/PWD=}";
      ਍ഀ document.form1.uidtxt.value = "";
      ਍ഀ document.form1.pwdtxt.value = "";
      ਍ഀ break;
           ਍ഀ
      case 16:
      ਍ഀ document.form1.urltxt.value = ਍ഀ "{jdbc:msql://<HostIP>:1114/MiniSQLDB}";
      ਍ഀ document.form1.uidtxt.value = "";
      ਍ഀ document.form1.pwdtxt.value = "";
      ਍ഀ break;
      case ਍ഀ 17:
      document.form1.urltxt.value = ਍ഀ "{jdbc:solid://<HostIP>:<port>/<UID>/<PWD>}";
      ਍ഀ document.form1.uidtxt.value = "";
      ਍ഀ document.form1.pwdtxt.value = "";
      ਍ഀ break;
      case ਍ഀ 18:
      document.form1.urltxt.value = ਍ഀ "{jdbc:dbaw://<  Host IP ਍ഀ >:8889/MS_ACCESS/BIBLIO/BIBLIO}";
      ਍ഀ document.form1.uidtxt.value = "";
      ਍ഀ document.form1.pwdtxt.value = "";
      ਍ഀ }
}

</SCRIPT>

਍ഀ
਍ഀ ਍ഀ

 

਍ഀ