您现在的位置是：网站首页> 编程资料编程资料

分页代码_ASP基础_

2023-05-25 290人已围观

简介分页代码_ASP基础_

 分页代码: <%''本程序文件名为：Pages.asp%><%''包含ADO常量表文件adovbs.inc，可从"\Program Files\Common Files\System\ADO"目录下拷贝%><%''＊建立数据库连接，这里是Oracle8.05数据库 Set conn=Server.CreateObject("ADODB.Connection") conn.Open "Provider=msdaora.1;Data Source=YourSrcName;User ID=YourUserID;Password=YourPassword;" Set rs=Server.CreateObject("ADODB.Recordset") ''创建Recordset对象 rs.CursorLocation=adUseClient ''设定记录集指针属性 ''＊设定一页内的记录总数，可根据需要进行调整 rs.PageSize=10 ''＊设置查询语句 StrSQL="Select ID,姓名,住址,电话 from 通讯录 Order By ID" rs.Open StrSQL,conn,adOpenStatic,adLockReadOnly,adCmdText %>分页示例<%IF rs.Eof THEN Response.Write("[数据库中没有记录！]") ELSE ''指定当前页码 If Request("CurrentPage")="" Then rs.AbsolutePage=1 Else rs.AbsolutePage=CLng(Request("CurrentPage")) End If ''创建表单MyForm,方法为Get Response.Write("") Response.Write("") ''设置翻页超链接 if rs.PageCount=1 then Response.Write("[第一页] [上一页] [下一页] [最后一页] ") else if rs.AbsolutePage=1 then Response.Write("[第一页] [上一页] ") Response.Write("[下一页] ") Response.Write("[最后一页] ") else if rs.AbsolutePage=rs.PageCount then Response.Write("[第一页] ") Response.Write("[上一页] ") Response.Write("[下一页] [最后一页] ") else Response.Write("[第一页] ") Response.Write("[上一页] ") Response.Write("[下一页] ") Response.Write("[最后一页] ") end if end if end if ''创建下拉列表框，用于选择浏览页码 Response.Write("第页/共"&rs.PageCount&"页 共"&rs.RecordCount&"条记录
") Response.Write("
") ''创建表格，用于显示 Response.Write("") Response.Write("") Set Columns=rs.Fields ''显示表头 For i=0 to Columns.Count-1 Response.Write("") Next Response.Write("") ''显示内容 For i=1 to rs.PageSize Response.Write("") For j=0 to Columns.Count-1 Response.Write("") Next Response.Write("") rs.movenext if rs.EOF then exit for Next Response.Write("") Response.Write(""&Columns(i).name&"
"&Columns(j)&"
") END IF %>

上一篇：记录集内随机取记录的代码_ASP基础_

下一篇：如何在数据库中用好Transaction？_ASP基础_

您现在的位置是：网站首页> 编程资料编程资料

分页代码_ASP基础_

相关内容

点击排行

本栏推荐

猜你喜欢