繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 一种比较方便的ASP分页程序
- ASP
- 用asp执行DTC
- 利用ADODB.Stream使用浏览器下载服务器文件
- 应用数据库的唯一性约束并在asp中捕捉数据库的错误
- 用ASP编程控制在IIS建立Web站点
- asp实现k线图(在线)
- 在ASP中用EasyMailObject组件处理Exchange邮件源代码(7)
- 在ASP中用EasyMailObject组件处理Exchange邮件源代码(6)
- 在ASP中用EasyMailObject组件处理Exchange邮件源代码(5)
- 在ASP中用EasyMailObject组件处理Exchange邮件源代码(4)
- 在ASP中用EasyMailObject组件处理Exchange邮件源代码(3)
- 在ASP中用EasyMailObject组件处理Exchange邮件源代码(2)
- 在ASP中用EasyMailObject组件处理Exchange邮件源代码(1)
- 用文本+ASP打造新闻发布系统。几点补充
- 用文本+ASP打造新闻发布系统(五)新闻修改
- 用文本+ASP打造新闻发布系统(四)新闻删除
- 用文本+ASP打造新闻发布系统(三)新闻列表显示
- 用文本+ASP打造新闻发布系统(二)新闻添加
- ASP作的剪包锤游戏
- ASP注册表项目修改
- 构建稳定的服务器端组件的七个步骤
一种比较方便的ASP分页程序
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 91 ::
收藏到网摘: 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
