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

ASP File: jscript/ado/animals/main.asp

਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ
      ਍ഀ  ASP Script
      ਍ഀ  Comments or Client-side ਍ഀ Script
        HTML and Text ਍ഀ
਍ഀ
਍ഀ <%@ ਍ഀ Language=JavaScript %>
<%
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 = ""
      ਍ഀ }

      strCnn = "Driver=" + DrvArry[drv] + ਍ഀ ";URL=" + url + ";UID=" + uid + ";PWD=" + pwd + ਍ഀ ";";
      //strCnn = ਍ഀ "DSN=AccessDB;UID=sa;PWD=;";

      var connDb = ਍ഀ Server.CreateObject("ADODB.CONNECTION");
      ਍ഀ connDb.Open( strCnn );

      ਍ഀ Session("animalsRd") = ਍ഀ Server.CreateObject("ADODB.RECORDSET");
      ਍ഀ Session("animalsRd").Open( "select * from animals", connDb, 1, 2 ਍ഀ );
      movecnt = 1;
} else ਍ഀ {
      dbms = ਍ഀ Request.QueryString("dbms");
      movecnt = ਍ഀ Request.QueryString("movecnt");
}
%>


<html>
<head>
<title>Webaccess</title>
</head>

<frameset ਍ഀ frameborder="0" border="0" cols="*">
    <frameset ਍ഀ cols="360,*" frameborder=0>
      <frame ਍ഀ name="normal" src="animals.asp?dbms=<%=dbms%>&movecnt=<%=movecnt%>&direction=0">
      ਍ഀ <frame name="blob" src="gif.asp">
    ਍ഀ </frameset>
   <noframes>
   <body ਍ഀ bgcolor="#FFFFFF">
   <p><!--webbot ਍ഀ bot="PurpleText" preview="The frameset on this page can be edited with the ਍ഀ FrontPage Frames Wizard; use the Open or Open With option from the FrontPage ਍ഀ Explorer's edit menu. This page must be saved to a web before you can edit it ਍ഀ with the Frames Wizard. Browsers that don't support frames will display the ਍ഀ contents of this page, without these instructions. Use the Frames Wizard to ਍ഀ specify an alternate page for browsers without frames." s-viewable=" " ਍ഀ -->               ਍ഀ </p>
   <p>This web page uses frames, but your browser ਍ഀ doesn't support them.</p>
   </body>
   ਍ഀ </noframes>
</frameset>
</html>
਍ഀ
਍ഀ
਍ഀ

 

਍ഀ