asp又一个分页的代码例子
来源:
中文源码网 浏览:172 次 日期:2024-05-09 06:06:33
【下载文档: asp又一个分页的代码例子.txt 】
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("
") Response.Write("") Set Columns=rs.Fields ''显示表头 For i=0 to Columns.Count-1 Response.Write("") Response.Write(""&Columns(i).name&" | ") Next Response.Write("
") ''显示内容 For i=1 to rs.PageSize Response.Write("") For j=0 to Columns.Count-1 Response.Write(""&Columns(j)&" | ") Next Response.Write("
") rs.movenext if rs.EOF then exit for Next Response.Write("
") END IF %>