文章·资料 电脑软件 手机软件 网站源码




    本 站 搜 索
   推 荐 文 章        More...
华硕易电脑(ASUS Eee PC 10..
先来段开场白:为了外出携带方便..
Acronis True Image 使用..
  一款可以在Windows下使用..
Norton Ghost 使用详解
一、分区备份   使用Ghost..
    文 章 阅 读 排 行
世界各国所使用的国际域名..
域名缩写 国家/地区 ..
关于 Firefox 在中国持续..
亲爱的 Firefox 用户及 Firefox..
全国各地、公共 DNS 服务器
排序 地区/公司名称 ..
Microsoft SQL Server 2000..
  对于第一次安装 Microsoft ..
Windows 系统安装或备份时 ..
【ISO 文件】 ISO 文件其实..
Windows PE 系统安装微软..
如果电脑没有光驱,或者没有把..
ASP 网页编码 GB2312 转换..
1、用记事本打开文件(如果整站..
腾讯:难以承受之痛的背后..
亲爱的网吧管理员:   在此,..
SATA 硬盘分区设置与安装..
  随着i865、i875、KT600等..
Windows XP 安装界面修改..
安装装界面----也就是安装复制..
 文 章 信 息
关于控制显示数据库记录的代码
评论()〗〖留言〗〖收藏
〖文章分类:电脑·手机·网络 / 网站设计·开发·优化〗〖阅读选项
ADMIN:
    您好!前几天在贵网提问的同时上传OLE、文本的问题已经得到解决,现在在调用数据库记录显示的时候碰到了新问题!请求贵网能够帮助解决!
    在此将代码提供如下,要求显示的结果是5行3列,多余的记录进行翻页。
    <%     
dim filename,postion
filename=request.servervariables("script_name")
postion=instrrev(filename,"/")+1
filename=mid(filename,postion)
  set rs=Server.CreateObject("adodb.recordset")     
  sql="SELECT * FROM chanpin ORDER BY id DESC"     
  rs.Open sql,conn,1,1  
  %>
<%
if not(rs.bof and rs.eof)then
pages=6 '控制每页显示的条目数
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
%>
        <tr><%do while not rs.eof and pages>0%><td width="200"><p>
          </p>
          </td>
          <td width="200"><p>名称:<%=rs("mingcheng")%> </p>
            <p>规格:<%=rs("guige")%> </p>
            <p>价格:<%=rs("jiage")%> </p>
            <p>详细信息:<%=rs("xiangxi")%> </p>
          <p>图像: <img src=showing.asp?id=<%=rs("id")%> width="100" height="100"></p></td>
<%
if(i mod 1)=0 then
%> 
</tr>
<%end if%>
          <%
    pages=pages-1
rs.movenext
i=i+1
loop
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
    </table>
<table width="61%" border="0" align='center'>
<tr>
<td><center>
共<%=allpages%>页 当前第<%=thispage%>页 
<% if thispage<>1 then %>
<a href="<%=filename&"?page=1"%>">首页</a>
<a href="<%=filename&"?page="&(thispage-1)%>">上页</a>
<% end if %>
<% if thispage<>allpages then %>
<a href="<%=filename&"?page="&(thispage+1)%>">下页</a>
<a href="<%=filename&"?page="&allpages&""%>">末页</a>
<%end if%>
</center></td>
</tr>
</table>

文章作者:未知  更新日期:2006-09-07
〖文章浏览:〗〖发送文章〗〖打印文章