ഀ ഀ
View ASP Source code
ഀ
ഀ
ഀ ഀ
ഀ
ഀ
ഀ
ASP Source Code
ഀ
ASP File: ഀ vbscript/ado/multiscrolling/multiscrolling.asp
ഀ
ഀ
ഀ
ഀ
ഀ
ഀ
ഀ
ASP Script
ഀ
ഀ
ഀ
ഀ
Comments or Client-side ഀ Script
ഀ
ഀ
ഀ
HTML and Text
ഀ
ഀ
ഀ
<%@LANGUAGE="VBSCRIPT"%>
<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 ഀ then
drv = ഀ Request.Form("drvtxt")
ഀ url = ഀ Request.Form("urltxt")
ഀ uid = ഀ Request.Form("uidtxt")
ഀ pwd = ഀ Request.Form("pwdtxt")
ഀ dim DrvArry(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"
ഀ select case ഀ drv
ഀ case 1, ഀ 14:
ഀ dbms = ഀ "Access"
ഀ case 2, 13, ഀ 15:
ഀ dbms = ഀ "SQLServer"
ഀ case 3, ഀ 10:
ഀ dbms = ഀ "Oracle"
ഀ case 4, ഀ 11:
ഀ dbms = ഀ "Informix"
ഀ case 5, ഀ 6:
ഀ dbms = ഀ "MySQL"
ഀ case 7, ഀ 12:
ഀ dbms = ഀ "Sybase"
ഀ case ഀ 8:
ഀ dbms = ഀ "Cloudscape"
ഀ case ഀ 9:
ഀ dbms = ഀ "Postgres"
ഀ case ഀ else
ഀ dbms = ""
end ഀ select
ഀ strCnn = "Driver=" & DrvArry(drv) & ";URL=" & url & ";UID=" ഀ & uid & ";PWD=" & pwd & ഀ ";"
'strCnn = ഀ "DSN=AccessDB;UID=sa;PWD=;"
ഀ Set conn = ഀ Server.CreateObject("ADODB.CONNECTION")
ഀ conn.Open ഀ strCnn
Set ഀ Session("mscrollRd") = ഀ Server.CreateObject("ADODB.RECORDSET")
ഀ Session("mscrollRd").PageSize = ഀ 4
ഀ Session("mscrollRd").Open "Authors", conn, 3
ഀ else
dbms = ഀ Request.QueryString("dbms")
end ഀ if
set RS = ഀ Session("mscrollRd")
' Determine what ഀ PageNumber the scrolling currently is on
Mv = ഀ Request("Mv")
If Request("PageNo") = "" ഀ Then
PageNo = ഀ 1
ഀ Else
PageNo = ഀ Request("PageNo")
End ഀ If
' Adjust PageNumber as ഀ Appropriate
If Mv = "Page Up" or Mv = "Page ഀ Down" Then
ഀ Select Case ഀ Mv
ഀ Case "Page ഀ Up"
ഀ If PageNo > 1 ഀ Then
ഀ PageNo = PageNo - ഀ 1
ഀ Else
ഀ PageNo = ഀ 1
ഀ End ഀ If
ഀ Case "Page ഀ Down"
ഀ If RS.AbsolutePage < RS.PageCount ഀ Then
ഀ PageNo = PageNo + ഀ 1
ഀ Else
ഀ PageNo = ഀ RS.PageCount
ഀ End ഀ If
ഀ Case ഀ Else
ഀ PageNo = 1
End ഀ Select
End ഀ If
RS.AbsolutePage = ഀ PageNo
ഀ
%>
<!-- Draw Table of Contacts in DB ഀ -->
<TABLE ഀ BORDER=1>
ഀ
<% For j = 1 to RS.PageSize ഀ %>
ഀ <TR>
ഀ
<% For i = 0 to RS.Fields.Count - 1 ഀ %>
ഀ <TD VALIGN=TOP>
<%= RS(i) ഀ %>
</TD>
ഀ
<% Next ഀ %>
ഀ </TR>
ഀ
<%
ഀ RS.MoveNext
ഀ
ഀ ' Don't try to print the EOF ഀ record.
ഀ If RS.EOF ഀ Then
ഀ Exit ഀ For
ഀ End ഀ If
ഀ Next ഀ %>
ഀ </TABLE>
ഀ
<!-- Scrolling Navigation Control for Sample ഀ -->
ഀ <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 ഀ Then ഀ %>
ഀ <INPUT TYPE="Submit" Name="Mv" Value="Page ഀ Down">
ഀ
<% End If ഀ %>
ഀ
<% If PageNo > 1 Then ഀ %>
ഀ <INPUT TYPE="Submit" Name="Mv" Value="Page ഀ Up">
ഀ
<% End If ഀ %>
ഀ
ഀ </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>
ഀ
ഀ
ഀ
ഀ