一种比较方便的ASP分页程序- ASP - 软晨网（RuanChen.com）

当前位置: 首页 > 图文教程 > 网络编程 > ASP > 一种比较方便的ASP分页程序

ASP: ASP语法高亮类代码; ASP实现长文章分页; 上一篇,下一篇过程代码; 插件下载┊垃圾引用防御补丁（每小时自动换KEY，支持静态页面）; 完美解决PJ的Cookies保存时限问题!可选择记录登陆时长!; ASP,PHP与.NET伪造HTTP-REFERER方法及防止伪造REFERER方法探讨; 用VB生成DLL封装ASP连接数据库的代码; 利用ActiveX控件InetCtls.Inet在ASP中实现新闻小偷; 验证码识别技术; 另类扩展名同样执行ASP; 用JAVASCRIPT帮我写个计数器; 用ASP读取XML文件的具体方法与示例; 很有用的学习ASP常用到的代码; VBScript中变量作用域; 可以查询百度排名的asp源码放送了; 可以查询google排名的asp源码; 用asp实现文件浏览、上传、下载的程序; Ajax+ASP和Flash+ASP数据读取取方法有些相似的实现方法; ASP与数据库，有用的代码（转贴，摘贴）; 将首页转成静态html页的asp文件

No. « ‹ 52 53 54 55 › »

技术文章搜索

关键字

一种比较方便的ASP分页程序

出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 235 ::

收藏到网摘: n/a

ASP+FSO+框架实现ASP生成htm并分页的方法(批量) 用一套论坛程序架设多个论坛

<span class="style45">
<%
set conn=server.createobject("adodb.connection")
DBPath = Server.MapPath("sap_mis.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath

set rs = server.createobject("adodb.recordset")
sql = "select sap_adon_record.* from sap_adon_record order by s_id desc"
rs.open sql, conn, 1, 1
%>
</span>
<table width="98%" height="10" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#336699" bordercolordark="#FFFFFF" class="style45" >

<%if rs.EOF then%>
                <tr>
                    <td align="center"><span style="color: #339933"><a href="add.asp">系统中暂时没有记录，请点击此处添加！</a></span>
                    </td>
                </tr>
<%else%>
<tr>
      <td align="center" bgcolor="#f000ff" class="style45">111</td>
      <td align="center" bgcolor="#f000ff" class="style45">222</td>
      <td align="center" bgcolor="#f000ff" class="style45">333</td>
      <td align="center" bgcolor="#f000ff" class="style45">444</td>
      <td align="center" bgcolor="#f000ff" class="style45">555</td>
      <td align="center" bgcolor="#f000ff" class="style45">666</td>
      <td align="center" bgcolor="#f000ff" class="style45">777</td>
</tr>
<%
shownum=20
totalrecord=rs.recordcount
rs.pagesize=shownum
maxpage=rs.pagecount

requestpage=clng(request.querystring("page"))

if requestpage="" or requestpage=0 then
requestpage=1
end if
if resquestpage>maxpage then
resquestpage=maxpage
end if

if not requestpage=1 then
rs.move (requestpage-1)*rs.pagesize
end if
for i=1 to rs.pagesize and not rs.bof%>
<tr>
      <td align="center" class="style45"><a href='show.asp?s_id=<%=rs("s_id")%>' target="_blank"><%=rs("prname")%></a></td>
      <td align="center" class="style45"><%=rs("trscod")%></td>
      <td align="center" class="style45"><%=rs("crname")%></td>
      <td align="center" class="style45"><%=rs("crdate")%></td>
      <td align="center" class="style45"><%=rs("prtype")%></td>
      <td align="center" class="style45"><%=rs("fction")%></td>
      <td align="center" class="style45"><a href='edit.asp?s_id=<%=rs("s_id")%>'>编辑</a></td>
</tr>
<%
rs.movenext
if rs.eof then exit for
next
%>
</table>
<table width="98%" height="10" align="center" border="1" bordercolor="#336699" bordercolordark="#FFFFFF" cellpadding="0" cellspacing="0" >
                <tr>
                    <td align="center" class="style45"><a href=add.asp>添加记录</a>   |   <a href=readExcel.asp target="_self">EXCEL文件批量导入</a>   |&nbs

ASP+FSO+框架实现ASP生成htm并分页的方法(批量) 用一套论坛程序架设多个论坛

一种比较方便的ASP分页程序

评论 (0) All