ASP分页技术源码-豆柴文库

您所在位置：网站首页 / ASP分页技术源码.doc / 文档详情

在线预览结束，喜欢就下载吧，查找使用更方便

15 金币

下载文档

/ 4

下载提示

如果您无法下载资料，请参考说明：

1、部分资料下载需要金币，请确保您的账户上有足够的金币

2、已购买过的文档，再次下载不重复扣费

3、资料包下载后请先用软件解压，在使用对应软件打开

文本预览

<%''本程序文件名为：Pages.asp%><%''包含ADO常量表文件adovbs.inc，可从"\ProgramFiles\CommonFiles\System\ADO"目录下拷贝%><!--#IncludeFile="adovbs.inc"--><%''＊建立数据库连接，这里是Oracle8.05数据库Setconn=Server.CreateObject("ADODB.Connection")conn.Open"Provider=msdaora.1;DataSource=YourSrcName;UserID=YourUserID;Password=YourPassword;"Setrs=Server.CreateObject("ADODB.Recordset")''创建Recordset对象rs.CursorLocation=adUseClient''设定记录集指针属性''＊设定一页内的记录总数，可根据需要进行调整rs.PageSize=10''＊设置查询语句StrSQL="SelectID,姓名,住址,电话from通讯录OrderByID"rs.OpenStrSQL,conn,adOpenStatic,adLockReadOnly,adCmdText%><HTML><HEAD><title>分页示例</title><scriptlanguage=javascript>//点击"[第一页]"时响应：functionPageFirst(){document.MyForm.CurrentPage.selectedIndex=0;document.MyForm.CurrentPage.onchange();}//点击"[上一页]"时响应：functionPagePrior(){document.MyForm.CurrentPage.selectedIndex--;document.MyForm.CurrentPage.onchange();}//点击"[下一页]"时响应：functionPageNext(){document.MyForm.CurrentPage.selectedIndex++;document.MyForm.CurrentPage.onchange();}//点击"[最后一页]"时响应：functionPageLast(){document.MyForm.CurrentPage.selectedIndex=document.MyForm.CurrentPage.length-1;document.MyForm.CurrentPage.onchange();}//选择"第？页"时响应：functionPageCurrent(){//Pages.asp是本程序的文件名document.MyForm.action='Pages.asp?Page='+(document.MyForm.CurrentPage.selectedIndex+1)document.MyForm.submit();}</Script></HEAD><BODYbgcolor="#ffffcc"link="#008000"vlink="#008000"alink="#FF0000""><%IFrs.EofTHENResponse.Write("<fontsize=2color=#000080>[数据库中没有记录！]</font>")ELSE''指定当前页码IfRequest("CurrentPage")=""Thenrs.AbsolutePage=1Elsers.AbsolutePage=CLng(Request("CurrentPage"))EndIf''创建表单MyForm,方法为GetResponse.Write("<formmethod=Getname=MyForm>")Response.Write("<palign=center><fontsize=2color=#008000>")''设置翻页超链接ifrs.PageCount=1thenResponse.Write("[第一页][上一页][下一页][最后一页]")elseifrs.AbsolutePage=1thenResponse.Write("[第一页][上一页]")Response.Write("[<ahref=javascript:PageNext()>下一页</a>]")Response.Write("[<ahref=javascript:PageLast()>最后一页</a>]")elseifrs.AbsolutePage=rs.PageCountthenResponse.Write("[<ahref=javascript:PageFirst()>第一页</a>]")