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

616625726abc

616625726abc

2016-01-29 18:54

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

<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

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/asp/)

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

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

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/asp/)

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

展开更多 50%)
分享

猜你喜欢

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

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

用ASP做一个分页程序

ASP
用ASP做一个分页程序

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

4.11 ASP中几种分页显示的比较

Web开发
4.11 ASP中几种分页显示的比较

asp+oracle分页程序类(XDOWNPAGE2.0)

ASP
asp+oracle分页程序类(XDOWNPAGE2.0)

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

ASP与JSP的比较(一)

ASP
ASP与JSP的比较(一)

ASP分页函数

ASP
ASP分页函数

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

asp模仿 Lotus Notes 的界面程序

asp模仿 Lotus Notes 的界面程序

WebClasses使注册变得容易

WebClasses使注册变得容易
下拉加载更多内容 ↓