繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 一种比较方便的ASP分页程序
- ASP
- ASP字符串大写转换成小写 ASP小写转换成大写 ucase lcase
- asp base64加解密函数代码
- Discuz!NT 论坛整合ASP程序论坛
- discuz 2.0整合asp系统,用户添加函数
- P3P 和 跨域 (cross-domain) cookie 访问(读取和设置）
- 通过asp程序来创建access数据库
- 检查access数据库中是否存在某个名字的表的asp代码
- asp #include file 与 #include virtual 的区别小结
- 一个带采集远程文章内容,保存图片,生成文件等完整的采集功能
- asp 横排显示数据
- asp base64 utf-8为了兼容asp.net的base64
- 两个非常规ASP木马(可躲过扫描)
- asp DateDiff实现文字在特定时间后消失
- ASP所有的Session变量获取实现代码
- 关于ASP eof与bof 区别分析
- asp ajax注册验证之 防止用户名输入空格
- asp sqlserver 执行存储过程返回记录集报对象关闭时不允许操作
- ASP 获取文件扩展名函数getFileExt()
- asp 简单分页代码
- asp删除mssql数据库中没有记录的图片代码
一种比较方便的ASP分页程序
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 184 ::
收藏到网摘: 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
评论 (0) All
