ഀ ഀ
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>
ഀ
ഀ
ഀ
ഀ