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

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

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

<HTML>
<HEAD>
<TITLE>MultiScrolling ਍ഀ Database Sample</TITLE>
</HEAD>

<BODY BGCOLOR="White" ਍ഀ topmargin="10" leftmargin="10">

<!--  ਍ഀ Display Header -->

<font size="4" face="Arial, ਍ഀ Helvetica">
<b>MultiScrolling Database ਍ഀ Sample</b></font><br>
    
<hr ਍ഀ size="1" color="#000000">

Contacts within the Authors ਍ഀ Database:<br><br>
           ਍ഀ
<%
      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("mscrollRd") = ਍ഀ Server.CreateObject("ADODB.RECORDSET");
           ਍ഀ Session("mscrollRd").PageSize = ਍ഀ 4;
           ਍ഀ Session("mscrollRd").Open ("Authors", conn, ਍ഀ 3);
      } else ਍ഀ {
           dbms = ਍ഀ Request.QueryString("dbms");
      ਍ഀ }

      RS = ਍ഀ Session("mscrollRd");
      //Determine what ਍ഀ PageNumber the scrolling currently is on
      Mv = ਍ഀ Request("Mv");
    
      if ਍ഀ (Request.Form("PageNo")<2){
           ਍ഀ Session("PageNo")=1;
           ਍ഀ PageNo = Session("PageNo");
      } else ਍ഀ {
           ਍ഀ PageNo=Session("PageNo");
      ਍ഀ }

     
      // ਍ഀ Adjust PageNumber as Appropriate
      if (Mv == ਍ഀ "Page Up"){
           if ਍ഀ (PageNo > 1) ਍ഀ {
                ਍ഀ PageNo = PageNo - ਍ഀ 1;
           }else ਍ഀ {
                ਍ഀ PageNo = 1;
           ਍ഀ }
           ਍ഀ
      }else if (Mv =="Page ਍ഀ Down"){
           if ਍ഀ (RS.AbsolutePage <  RS.PageCount) ਍ഀ {
                ਍ഀ PageNo = PageNo + ਍ഀ 1;
           }else ਍ഀ {
                ਍ഀ PageNo = ਍ഀ RS.PageCount;
           ਍ഀ }
      }else ਍ഀ {
           PageNo = ਍ഀ 1;
      }
     ਍ഀ Session("PageNo")=PageNo
      RS.AbsolutePage = ਍ഀ PageNo;
%>


           ਍ഀ <TABLE BORDER=1>
<%           ਍ഀ for (j = 1; j <= RS.PageSize; j++){ ਍ഀ %>
                ਍ഀ <TR>
<%                ਍ഀ for (i = 0; i <  RS.Fields.Count; i++) { ਍ഀ %>
                          ਍ഀ <TD VALIGN=TOP><%= RS(i) ਍ഀ %></TD>
<%                ਍ഀ } ਍ഀ %>
                ਍ഀ </TR>
<%                ਍ഀ // Don't try to print the EOF ਍ഀ record.
                ਍ഀ RS.MoveNext();
                ਍ഀ if ( ਍ഀ RS.EOF){
                     ਍ഀ break;
             ਍ഀ } %>

<%           ਍ഀ } %>
           ਍ഀ </TABLE>

           ਍ഀ <Form action="multiscrolling.asp?dbms=<%=dbms%>" Method="POST" ਍ഀ name=form1>
                ਍ഀ <Input Type="Hidden" Name="PageNo" Value="<%=PageNo ਍ഀ %>">
                ਍ഀ <!--  Only show appropriate buttons ਍ഀ -->
                ਍ഀ <%   if (PageNo <   RS.PageCount){ ਍ഀ %>
                     ਍ഀ <INPUT TYPE="Submit" Name="Mv" Value="Page ਍ഀ Down">
                ਍ഀ <%   } ਍ഀ %>

                ਍ഀ <%   if (PageNo > 1){ ਍ഀ %>
                     ਍ഀ <INPUT TYPE="Submit" Name="Mv" Value="Page ਍ഀ Up">
                ਍ഀ <%   } ਍ഀ %>
           ਍ഀ </Form>
      <hr size="1" ਍ഀ color="#000000">
      <EM>This is <%=dbms%>  ਍ഀ database.</EM>
      <font ਍ഀ size="+1">
      <center><a ਍ഀ href="default.asp">
      Return ਍ഀ Home</a></center></font>
           ਍ഀ
</BODY>
</HTML>
਍ഀ
਍ഀ
਍ഀ

 

਍ഀ