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

ASP
asp获取客户端某一个图片的x,y坐标的代码
asp编程中常用的javascript辅助代码
asp下生成目录树结构的类
[原创]站长感慨asp编程究竟何去何从
asp水印组件之AspJpeg的结合代码实例
asp实现dig功能的js代码
[原创]asp下用实现模板加载的的几种方法总结
asp常用函数集合，非常不错以后研究
一个asp替换函数img里面多余的代码
检查上传图片是否合法的函数,木马改后缀名、图片加恶意代码均逃不过
一想千开PJblog审核功能补丁 v2.0版 发布
asp汉字中文图片验证码
用asp实现网页调用doc附Response.ContentType 详细列表
利用MSXML2.XmlHttp和Adodb.Stream采集图片
[原创]asp获取URL参数的几种方法分析总结
asp实现的可以提醒生日的几种方法附代码
Asp无组件生成缩略图的代码
功能不错的asp模板类代码附下载
不用WinRar只有asp将网络空间上的文件打包下载
AJAX简单应用实例-弹出层

No. « 105 106 107 108 »

技术文章搜索

关键字

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

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-11-03   浏览: 113 ::
收藏到网摘: n/a

 

<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