源码论坛公告:本站是一个交流学习建站资源的社区论坛,旨在交流学习源码脚本等资源技术,欢迎大家投稿发言! 【点击此处将锦尚放在桌面

源码论坛,商业源码下载,尽在锦尚中国商业源码论坛

 找回密码
 会员注册

QQ登录

只需一步,快速开始

查看: 1313|回复: 0
打印 上一主题 下一主题

asp如何设置二列显示

[复制链接]

17

主题

129

帖子

32

金币

初级会员

Rank: 1

积分
284
QQ
跳转到指定楼层
1#
发表于 2011-2-17 10:17:14 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
<table width="400px"  border="0" align="center" cellpadding="4" cellspacing="1" class="border1">
    <tr bgcolor="#336699">
      <td colspan="4" bgcolor="#336699" class="font_wihe">信息列表</td>
    </tr>
    <tr bgcolor="#99CCFF" class="font_black1">
      <td width="100%" colspan="2" bgcolor="#99CCFF"><div align="center"><span class="style7">信息名称</span></div></td>
    </tr>
    <%
    set ptr1=server.CreateObject("adodb.recordset")
    sql="Select * from help_news order by id desc"
        ptr1.open sql,conn,1,1
    if ptr1.recordcount<>0 then
       ptr1.pagesize=20
           page=clng(request.QueryString("page"))
           if page<1 then page=1
           if page>ptr1.pagecount then page=ptr1.pagecount
           ptr1.absolutepage=page
           for i = 1 to ptr1.pagesize
               n=n+1
                   if len(ptr1("title"))>20 then
                      title=left(ptr1("title"),20)&"..."
                   else
                      title=ptr1("title")
                   end if                   
%>
    <tr bgcolor="#99CC99">
      <td bgcolor="#99CC99"><%=title%></td>
      <td bgcolor="#99CC99"><%=FormatDateTime(ptr1("date"),2)%></td>
    </tr>
    <%  ptr1.movenext
    if ptr1.eof then exit for
        next
%>
    <tr bgcolor="#99CCFF">
      <td colspan="9">
&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
        <%
  if page=1 then
     response.Write("首页")
  else
     response.Write("<a href=?page=1"">首页</a>")         
  end if
  if page=1 then
     response.Write("  上一页")          
  else
     response.Write("  <a href=?page=" & page-1 & ">上一页</a>")          
  end if       
  if  page=ptr1.pagecount then
     response.Write("  下一页")
  else
     response.Write("  <a href=?page=" & page+1 & ">下一页</a>")          
  end if
  if page=ptr1.pagecount then
     response.Write("  末页")
  else
     response.Write("  <a href=?page=" & ptr1.pagecount & ">末页</a>")         
  end if
  %>
&nbsp;&nbsp;<%=page%>/<%=ptr1.pagecount%>页&nbsp;&nbsp;共<%=ptr1.recordcount%>条记录!</td>
    </tr>
</table>
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享
您需要登录后才可以回帖 登录 | 会员注册

本版积分规则

锦尚中国源码论坛

聚合标签|锦尚中国,为中国网站设计添动力 ( 鲁ICP备09033200号 ) |网站地图

GMT+8, 2024-11-24 06:33 , Processed in 0.138523 second(s), 26 queries .

带宽由 锦尚数据 提供 专业的数据中心

© 锦尚中国源码论坛 52jscn Inc. 非法入侵必将受到法律制裁 法律顾问:IT法律网 & 褚福省律师 锦尚爱心 版权申诉 版权与免责声明