您的位置：首页 → 技术开发 → ASP技巧 → 分栏显示记录集的表格演示，并实现了分页

分栏显示记录集的表格演示，并实现了分页

时间：2004/11/7 4:12:00来源：本站整理作者：蓝点我要评论(0)

<%
'打开数据库
Set conn = Server.CreateObject("ADODB.Connection")
strconn="Driver={sql server};server=localhost;database=northwind;uid=sa;pwd=sa;"
conn.Open strconn
'获取本页地址
Dim fileName,postion
fileName = Request.ServerVariables("script_name")
postion = InstrRev(fileName,"/")+1
fileName = Mid(fileName,postion)
'打开记录集www.knowsky.com
set rs=server.CreateObject("adodb.recordset")
rs.open "select titleofcourtesy,firstname,photopath from Employees order by employeeid desc",conn,1,1 
%>

      
<%
if not(rs.bof and rs.eof) then
pages=4
rs.pagesize=pages
if not isempty(Request.QueryString("page")) then
 thispage=clng(Request.QueryString("page"))
else
 thispage=1
end if
rscount=rs.recordcount
if thispage="" then thispage=1
if thispage<1 then thispage=1
if (thispage-1)*pages>rscount then
 if (rscount mod pages)=0 then
  thispage=rscount\pages
 else
  thispage=rscount\pages+1
 end if
end if
if(rscount mod pages)=0 then
 allpages=rscount\pages
else
 allpages=rscount\pages+1
end if
rs.absolutepage=thispage
i=1
%>
                       
<%do while="" not="" rs.eof="" pages="">0 %>
                         
<%
'分栏主要由下面这个判断来执行的，本例是每行显示两栏
if (i mod 2) =0 then
%>
     
<%end>      
<%
pages = pages - 1
rs.movenext
i=i+1
loop
end if
%>
   
                     

<%=rs("titleofcourtesy")&rs("firstname")%>

                     
                       
                         
                       
                     

共<%=allpages%>页&nbsp;当前第<%= thispage="">页&nbsp;  <% if thispage<>1 then %>  首页 上页  <% end="" if="">  <% if thispage<>allpages then %>   下页 末页   <% end="" if="">

相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论

查看所有0条评论>>

发表评论

我来说两句...

提交评论