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




    本 站 搜 索
   推 荐 文 章        More...
华硕易电脑(ASUS Eee PC 1025C..
先来段开场白:为了外出携带方便,到淘..
Acronis True Image 使用说明
  一款可以在Windows下使用全部功..
Norton Ghost 使用详解
一、分区备份   使用Ghost进行系..
    文 章 阅 读 排 行
手机视频监控 APP 关闭广告:萤..
一、萤石云视频:我的,设置,隐私设置,..
常见数据库介绍与对比(SQL Serv..
常见数据库的对比分析,涵盖你提到的 A..
Windows 系统修改默认文件类型..
Windows 系统文件类型图标,通常由默..
Windows 系统安装或备份时 ISO,..
【ISO 文件】 ISO 文件其实就是光..
Microsoft SQL Server 2000 Per..
  对于第一次安装 Microsoft SQL Se..
颜色与英文单词对照
颜色与英文单词对照 red green bl..
PakePlus 构建 APP 需要 Github..
PakePlus 是一个基于 Rust Tauri 的..
主页真的越Google、越简洁越好吗
  如果你在11月10日早上打开雅虎中..
网络工程师必懂的专业术语
路由器问题:1、什么时候使用多路由协..
为啥现在的电脑都不能安装 Wind..
说实话,这几年如果你尝试在新电脑..
 文 章 信 息
关于控制显示数据库记录的代码
评论()〗〖留言〗〖收藏
〖文章分类:电脑·手机·网络 / 网站设计·开发·优化〗〖阅读选项
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
〖文章浏览:〗〖发送文章〗〖打印文章