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

ASP File: ਍ഀ jscript/ado/authors/authors.asp

਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ
      ਍ഀ  ASP Script
      ਍ഀ  Comments or Client-side ਍ഀ Script
        HTML and Text ਍ഀ
਍ഀ
਍ഀ <%@ ਍ഀ Language=JavaScript%>
<HTML>
<HEAD>
</HEAD>
<BODY>
<%
bErr = false;
mvNext = false;
mvPrev = ਍ഀ false;

if (Request.Form("drvtxt").Count > 0) ਍ഀ {
      drv = parseInt( Request.Form("drvtxt") ਍ഀ );
      url = ਍ഀ Request.Form("urltxt");
      uid = ਍ഀ Request.Form("uidtxt");
      pwd = ਍ഀ Request.Form("pwdtxt");

     DrvArry = new ਍ഀ Array(15);
     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[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] = ਍ഀ "intersolv.jdbc.sequelink.SequeLinkDriver";
     ਍ഀ DrvArry[15] = "openlink.jdbc2.Driver";

      ਍ഀ switch ( drv ) {
      case ਍ഀ 1:
      case ਍ഀ 14:
           dbms = ਍ഀ "Access";
           ਍ഀ break;
      case ਍ഀ 2:
      case 13:
      ਍ഀ case 15:
           dbms = ਍ഀ "SQLServer";
           ਍ഀ break;
      case ਍ഀ 3:
      case ਍ഀ 10:
           dbms = ਍ഀ "Oracle";
           ਍ഀ break;
      case ਍ഀ 4:
      case ਍ഀ 11:
           dbms = ਍ഀ "Informix";
           ਍ഀ break;
      case ਍ഀ 5:
      case ਍ഀ 6:
           dbms = ਍ഀ "MySQL";
           ਍ഀ break;
      case ਍ഀ 7:
      case ਍ഀ 12:
           dbms = ਍ഀ "Sybase";
           ਍ഀ break;
      case ਍ഀ 8:
           dbms = ਍ഀ "Cloudscape";
           ਍ഀ break;
      case ਍ഀ 9:
           dbms = ਍ഀ "Postgres";
           ਍ഀ break;
      ਍ഀ default:
           dbms = ਍ഀ "";
      }

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

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

      Session("authorsRd") ਍ഀ = Server.CreateObject("ADODB.RECORDSET");
      ਍ഀ Session("authorsRd").CursorLocation = 3
      ਍ഀ Session("authorsRd").Open( "Authors", conn, 2, 2 );
} else ਍ഀ {
      dbms = ਍ഀ Request.QueryString("dbms");
}

RS = Session("authorsRd");

mode ਍ഀ = parseInt( Request.QueryString("mode") );
if (mode == 1) ਍ഀ {
      direction = parseInt( ਍ഀ Request.QueryString("direction") );

      switch ਍ഀ ( direction ) {
      case ਍ഀ 1:
           if ( !RS.Eof ਍ഀ || !RS.Bof ਍ഀ )
                ਍ഀ RS.MoveFirst();
           ਍ഀ break;
      case ਍ഀ 2:
      if ( !RS.BOF ) ਍ഀ {
                ਍ഀ RS.MovePrevious();
                ਍ഀ mvPrev = true;
      ਍ഀ }
      break;
      ਍ഀ case 3:
           if ( ਍ഀ !RS.EOF ) ਍ഀ {
                ਍ഀ RS.MoveNext();
                ਍ഀ mvNext = true;
           ਍ഀ }
           ਍ഀ break;
      case ਍ഀ 4:
           if ( !RS.Eof ਍ഀ || !RS.Bof ਍ഀ )
                ਍ഀ RS.MoveLast()
           ਍ഀ break;
      }

      ਍ഀ //Error Handling
      if ( !RS.BOF || !RS.EOF ) ਍ഀ {
           if (RS.EOF ਍ഀ && mvNext) ਍ഀ {
           ਍ഀ RS.MoveLast();
           } ਍ഀ else if (RS.EOF) ਍ഀ {
                ਍ഀ RS.Requery();
           ਍ഀ }

           if (RS.BOF ਍ഀ && mvPrev) ਍ഀ {
           ਍ഀ RS.MoveFirst();
           ਍ഀ } else if (RS.BOF) ਍ഀ {
                ਍ഀ RS.Requery();
           ਍ഀ }
      }
} else if (mode == 2) ਍ഀ {
      //get edit information : ਍ഀ Insert,Update,Delete or Cancel
      operate = ਍ഀ parseInt( Request.QueryString("operate") ਍ഀ );

      switch (operate) ਍ഀ {
      case 1: ਍ഀ //Insert
           ਍ഀ break;
      case 2: ਍ഀ //Delete
           if ਍ഀ (RS.RecordCount > 0) ਍ഀ {
                ਍ഀ RS.Delete()
                ਍ഀ //RS.MoveNext()
                ਍ഀ RS.MovePrevious()
                ਍ഀ if (RS.RecordCount > 0 && RS.BOF) ਍ഀ {
                     ਍ഀ RS.MoveFirst()
                ਍ഀ }
           ਍ഀ }
           ਍ഀ break;
      case 3: ਍ഀ //Update
           if ( ਍ഀ !RS.EOF && !RS.EOF ) ਍ഀ {
                ਍ഀ for (i = 0; i <  RS.Fields.Count; i++) ਍ഀ {
                     ਍ഀ fdType = ਍ഀ RS(i).Type;
                     ਍ഀ if ( RS(i).value == null ) ਍ഀ {
                          ਍ഀ fdValue = ਍ഀ "";
                     ਍ഀ } else ਍ഀ {
                          ਍ഀ fdValue = ਍ഀ RS(i).value;
                     ਍ഀ }

                     ਍ഀ var name = "S" + ਍ഀ i
                     ਍ഀ var txtVal = ਍ഀ Request.Form(name);
                     ਍ഀ if ( txtVal == null ) ਍ഀ {
                          ਍ഀ txtVal = ਍ഀ "";
                     ਍ഀ }

                     ਍ഀ if (Server.URLEnCode(txtVal) != Server.URLEnCode(fdValue)) ਍ഀ {
                          ਍ഀ if (txtVal == "") ਍ഀ {
                               ਍ഀ RS(i) = ਍ഀ null;
                          ਍ഀ } else ਍ഀ {
                               ਍ഀ switch (fdType) ਍ഀ {
                               ਍ഀ case ਍ഀ 16:
                               ਍ഀ case ਍ഀ 2:
                               ਍ഀ case ਍ഀ 3:
                               ਍ഀ case ਍ഀ 20:
                               ਍ഀ case ਍ഀ 17:
                               ਍ഀ case ਍ഀ 18:
                               ਍ഀ case ਍ഀ 19:
                               ਍ഀ case ਍ഀ 21:
                               ਍ഀ case ਍ഀ 4:
                               ਍ഀ case ਍ഀ 5:
                               ਍ഀ case ਍ഀ 6:
                               ਍ഀ case ਍ഀ 14:
                               ਍ഀ case ਍ഀ 131:
                               ਍ഀ case ਍ഀ 11:
                                    ਍ഀ if ( !isNaN( parseInt(txtVal) ) ਍ഀ )
                                         ਍ഀ RS(i) = ਍ഀ txtVal
                                    ਍ഀ else ਍ഀ {
                                         ਍ഀ bErr = ਍ഀ true;
                                         ਍ഀ msgErr = fdName + " must be a numeric data. Please go ਍ഀ back.";
                                    ਍ഀ }
                                    ਍ഀ break;
                               ਍ഀ default:
                                    ਍ഀ RS(i) = ਍ഀ txtVal
                               ਍ഀ }
                          ਍ഀ }
                     ਍ഀ }
                ਍ഀ }
                ਍ഀ if ( !bErr ) ਍ഀ {
                     ਍ഀ RS.Update()
                ਍ഀ }
           ਍ഀ }
           ਍ഀ break;
      case 5: //Update for ਍ഀ addnew
           ਍ഀ RS.AddNew();
           for ਍ഀ (i = 0; i <  RS.Fields.Count; i++) ਍ഀ {
                ਍ഀ fdType = parseInt( RS(i).type ਍ഀ );

                ਍ഀ name = "S" + ਍ഀ i;
                ਍ഀ txtVal = ਍ഀ Request.Form(name);
                ਍ഀ if ( txtVal == null ) ਍ഀ {
                     ਍ഀ txtVal = ਍ഀ "";
                ਍ഀ }

                ਍ഀ if ( txtVal != "" ) ਍ഀ {
                     ਍ഀ switch (fdType) ਍ഀ {
                     ਍ഀ case ਍ഀ 16:
                     ਍ഀ case ਍ഀ 2:
                     ਍ഀ case ਍ഀ 3:
                     ਍ഀ case ਍ഀ 20:
                     ਍ഀ case ਍ഀ 17:
                     ਍ഀ case ਍ഀ 18:
                     ਍ഀ case ਍ഀ 19:
                     ਍ഀ case ਍ഀ 21:
                     ਍ഀ case ਍ഀ 4:
                     ਍ഀ case ਍ഀ 5:
                     ਍ഀ case ਍ഀ 6:
                     ਍ഀ case ਍ഀ 14:
                     ਍ഀ case ਍ഀ 131:
                     ਍ഀ case ਍ഀ 11:
                          ਍ഀ if ( !isNaN( parseInt(txtVal) ) ਍ഀ )
                               ਍ഀ RS(i) = ਍ഀ txtVal
                          ਍ഀ else ਍ഀ {
                               ਍ഀ bErr = ਍ഀ true;
                               ਍ഀ msgErr = fdName + " must be a numeric data. Please go ਍ഀ back.";
                          ਍ഀ }
                          ਍ഀ break;
                     ਍ഀ default:
                          ਍ഀ RS(i) = ਍ഀ txtVal
                     ਍ഀ }
                ਍ഀ }
           ਍ഀ }
           if ( !bErr ) ਍ഀ {
                ਍ഀ RS.Update();
                ਍ഀ RS.MoveLast();
           } ਍ഀ else ਍ഀ {
                ਍ഀ RS.CancelUpdate();
           ਍ഀ }
      }
}
%>


<%if ( bErr )
      Response.Write( ਍ഀ msgErr );
else {%>


<font size="4" face="Arial, ਍ഀ Helvetica">
<b>Database's Operation ਍ഀ Sample</b></font><br>
<hr>

<form name=form1 ਍ഀ method=Post action="authors.asp">
      ਍ഀ <CENTER><TABLE><TR>
<%      if (mode == 1) ਍ഀ {%>
           ਍ഀ <TD>
                ਍ഀ <input type=button name=Browsebt value="Browse Mode" ਍ഀ disabled>
                ਍ഀ <input type=button name=Editbt value="Edit Mode" ਍ഀ onClick="ModeClick(2);">
           ਍ഀ </TD>
           ਍ഀ <TD ਍ഀ width=10> </TD>
           ਍ഀ <TD>
                ਍ഀ <input type=button name=MoveFirst value=" |<    " ਍ഀ onClick="MoveClick(1);">
                ਍ഀ <input type=button name=MovePrevious value=" <    " ਍ഀ onClick="MoveClick(2);">
                ਍ഀ <input type=button name=MoveNext value=" > " ਍ഀ onClick="MoveClick(3);">
                ਍ഀ <input type=button name=MoveLast value=" >| " ਍ഀ onClick="MoveClick(4);">
           ਍ഀ </TD>
           ਍ഀ </TR>
<%      }else if ਍ഀ (mode == 2) ਍ഀ {%>
           ਍ഀ <TD>
                ਍ഀ <input type=button name=Browsebt value="Browse Mode" ਍ഀ onClick="ModeClick(1);">
                ਍ഀ <input type=button name=Editbt value="Edit Mode" ਍ഀ disabled>
           ਍ഀ </TD>
           ਍ഀ <TD ਍ഀ width=10> </TD>
           ਍ഀ <TD>
<%           ਍ഀ if (operate == 1) ਍ഀ {%>
                ਍ഀ <input type=button name=Insertbt value="Insert" ਍ഀ disabled>
                ਍ഀ <input type=button name=Deletebt value="Delete" disabled>
<%           ਍ഀ } else ਍ഀ {%>
                ਍ഀ <input type=button name=Insertbt value="Insert" ਍ഀ onClick="OperateClick(1);">
                ਍ഀ <input type=button name=Deletebt value="Delete" ਍ഀ onClick="OperateClick(2);">
<%           ਍ഀ }
           if (operate == ਍ഀ 1) ਍ഀ {%>

                ਍ഀ <input type=button name=Updatebt value="Update" ਍ഀ onClick="OperateClick(5);">
<%           ਍ഀ }else{%>
                ਍ഀ <input type=button name=Updatebt value="Update" ਍ഀ onClick="OperateClick(3);">
<%           ਍ഀ }%>
                ਍ഀ <input type=button name=Cancelbt value="Cancel" ਍ഀ onClick="OperateClick(4);">
           ਍ഀ </TD>
           ਍ഀ </TR>
<%      ਍ഀ }%>
      ਍ഀ </TABLE>

      ਍ഀ <BR>
      <TABLE>
<%      for (i = 0; i <  ਍ഀ RS.Fields.Count; i++) ਍ഀ {%>
           ਍ഀ <TR>
                ਍ഀ <TD align=right><strong><%=RS(i).name%>:</strong></TD>
                ਍ഀ <TD>
<%           ਍ഀ if (mode == 1) ਍ഀ {
                ਍ഀ if (RS.EOF || RS.EOF) ਍ഀ {%>

                     ਍ഀ <INPUT type=text name=S<%=i%>  disabled ਍ഀ size=38>
<%                ਍ഀ }else{
                     ਍ഀ aa = ਍ഀ "";
                     ਍ഀ if ( RS(i).value != null ) ਍ഀ {
                          ਍ഀ aa = ਍ഀ RS(i).value.toString();
                          ਍ഀ pos = ਍ഀ aa.indexOf("\"");
                          ਍ഀ while (pos != -1 ) ਍ഀ {
                               ਍ഀ bb = aa.substring(0, pos) + ਍ഀ """
                               ਍ഀ if ( pos <  aa.length - ਍ഀ 1)
                                    ਍ഀ aa = bb + aa.substr( pos + ਍ഀ 1);
                               ਍ഀ else
                                    ਍ഀ aa = ਍ഀ bb;
                               ਍ഀ pos = ਍ഀ aa.indexOf("\"");
                          ਍ഀ }
                     ਍ഀ }%>

                     ਍ഀ <input type=text name=S<%=i%>  disabled ਍ഀ value="<%=aa%>" size=38>
<%                ਍ഀ }
           } else if ਍ഀ (mode == 2) ਍ഀ {
                ਍ഀ if (RS.BOF || RS.EOF || operate == 1) ਍ഀ {%>

                     ਍ഀ <input type=text name=S<%=i%>  ਍ഀ size=38>
<%                ਍ഀ } else ਍ഀ {
                     ਍ഀ aa = ਍ഀ "";
                     ਍ഀ if ( RS(i).value != null ) ਍ഀ {
                          ਍ഀ aa = ਍ഀ RS(i).value.toString();
                          ਍ഀ pos = ਍ഀ aa.indexOf("\"");
                          ਍ഀ while (pos != -1 ) ਍ഀ {
                               ਍ഀ bb = aa.substring(0, pos) + ਍ഀ """
                               ਍ഀ if ( pos <  aa.length - ਍ഀ 1)
                                    ਍ഀ aa = bb + aa.substr( pos + ਍ഀ 1);
                               ਍ഀ else
                                    ਍ഀ aa = ਍ഀ bb;
                               ਍ഀ pos = ਍ഀ aa.indexOf("\"");
                          ਍ഀ }
                     ਍ഀ }%>

                     ਍ഀ <input type=text name=S<%=i%>  ਍ഀ value="<%=aa%>" size=38>
<%                ਍ഀ }
           ਍ഀ }%>

           ਍ഀ </TD></TR>
<%      ਍ഀ }%>
      ਍ഀ </TABLE>
</CENTER>
<hr size="1" ਍ഀ color="#000000">
<EM>This is <%=dbms%>  database.</EM>
<font ਍ഀ size="+1"><center><a href="default.asp">Return ਍ഀ Home</a></center></font>
</FORM>
<%}%>

<SCRIPT  ਍ഀ Language = "JavaScript">
function ਍ഀ MoveClick(option){
      document.form1.action = ਍ഀ "authors.asp?dbms=<%=dbms%>&mode=1&direction=" + ਍ഀ option;
      ਍ഀ document.form1.submit();
}

function ModeClick(option) ਍ഀ {
      if ( option == 1 ਍ഀ )
           ਍ഀ document.form1.action = "authors.asp?dbms=<%=dbms%>&mode=1&direction=0";
      ਍ഀ else
           ਍ഀ document.form1.action = "authors.asp?dbms=<%=dbms%>&mode=2&operate=0";
      ਍ഀ document.form1.submit();
}

function OperateClick(option) ਍ഀ {
      if (option == 3 || option == ਍ഀ 5){
           if ( isNaN( ਍ഀ parseInt(document.form1.S0.value) ) ਍ഀ ){
                ਍ഀ alert("Please enter a numeric for 'Au_ID' ਍ഀ field.");
                ਍ഀ return;
           ਍ഀ }

           if ( ਍ഀ document.form1.S2.value != "" && isNaN( ਍ഀ parseInt(document.form1.S2.value) ) ਍ഀ ){
                ਍ഀ alert("Please enter a numeric for 'Year Born' ਍ഀ field.");
                ਍ഀ return;
           ਍ഀ }
      }
      ਍ഀ document.form1.action = "authors.asp?dbms=<%=dbms%>&mode=2&operate=" + ਍ഀ option;
      ਍ഀ document.form1.submit();
}
</SCRIPT>

਍ഀ
਍ഀ
਍ഀ

 

਍ഀ