ASP分页代码

 <!--#include file="conn.asp"-->
<script language=javascript>
 //点击”[第一页]”时候响应
 function PageFirst()
 { 
   document.MyForm.CurrentPage.selectedIndex=0;
   document.MyForm.CurrentPage.onchange();
 }
//点击”[上一页]”时候响应
function PagePrior()
 {    
   document.MyForm.CurrentPage.selectedIndex--;
   document.MyForm.CurrentPage.onchange();
 }
 //点击”[下一页]”时候响应
 function PageNext()
 { 
   document.MyForm.CurrentPage.selectedIndex++;
   document.MyForm.CurrentPage.onchange();         
 }
 //点击”[最后一页]”时候响应
 function PageLast()
 {  
   document.MyForm.CurrentPage.selectedIndex=document.MyForm.CurrentPage.length-1;
   document.MyForm.CurrentPage.onchange();
 }
 //选择”第?页”时响应
 function PageCurrent()
 { //action=后的即为本页面的名字
   document.MyForm.action='index.asp?CurrentPage='+(document.MyForm.CurrentPage.selectedIndex+1)
   document.MyForm.submit();
 }  
</Script>
<table width="100%"  border="0">
  <tr>
    <td width="150" height="10"><div align="center">PH值</div></td>
    <td width="150" height="10"><div align="center">温度</div></td>
    <td width="150" height="10"><div align="center">DO%形式</div></td>
  <td width="150" height="10"><div align="center">DO PPM形式</div></td>
  <td width="150" height="10"><div align="center">报警状态</div></td>
  </tr>
</table> 
 <%
set rs=server.CreateObject("adodb.recordset") 
rs.open "select * from Real_time order by id desc",conn,1,1
rs.pagesize=15  
IF rs.Eof THEN
   Response.Write("<font size=2 color=#000080>[数据库中没有记录]</font>")
   response.end
 ELSE  
   ''指定当前页码
   CurrentPage=request("CurrentPage")
   if not isnumeric(CurrentPage) then CurrentPage=1
   CurrentPage=Clng(CurrentPage)
   if CurrentPage<1 then CurrentPage=1
       if CurrentPage>rs.pagecount then CurrentPage=rs.Pagecount
     rs.AbsolutePage=CurrentPage
   ''创建表单myform方法为Get
   Response.Write("<form method=Get name=MyForm>")  
   Response.Write("<p align=center><font size=2 color=#008000>")
   ''设置翻页超链接
   if rs.PageCount=1 then  
     Response.Write("[第一页] [上一页] [下一页] [最后一页] ")
   else 
       if CurrentPage=1 then
         Response.Write("[第一页] [上一页] ")
         Response.Write("[<a href=javascript:PageNext()>下一页</a>] ") 
         Response.Write("[<a href=javascript:PageLast()>最后一页</a>] ") 
       else 
           if CurrentPage=rs.PageCount then
             Response.Write("[<a href=javascript:PageFirst()>第一页</a>] ") 
             Response.Write("[<a href=javascript:PagePrior()>上一页</a>] ") 
             Response.Write("[下一页] [最后一页] ")
           else
               Response.Write("[<a href=javascript:PageFirst()>第一页</a>] ") 
               Response.Write("[<a href=javascript:PagePrior()>上一页</a>] ") 
               Response.Write("[<a href=javascript:PageNext()>下一页</a>] ") 
               Response.Write("[<a href=javascript:PageLast()>最后一页</a>] ") 
           end if
       end if
   end if
   ''创建下拉列表框，用于选择浏览页码
   Response.Write("第<select size=1 name=CurrentPage onchange=PageCurrent()>")    
   For i=1 to rs.PageCount 
     if CurrentPage=i then
        Response.Write("<option selected>"&i&"</option>")  ''当前页码
     else
        Response.Write("<option>"&i&"</option>")
     end if  
   Next 
   Response.Write("</select>页/共"&rs.PageCount&"页共"&rs.RecordCount&"条记录</font><p>") 
   Response.Write("</form>")
end if
%>
<%
 for i=1 to rs.pagesize
if not rs.eof then
 %>

<table width="100%"  border="0">
  <tr> 
<td width="150" height="10" ><div align="center"><%=Rs("pH_Value")%></div></td> 
<td width="150" height="10" ><div align="center"><%=Rs("Temp_Value")%></div></td> 
<td width="150" height="10" ><div align="center"><%=Rs("DO%_Value")%></div></td> 
<td width="150" height="10" ><div align="center"><%=Rs("DO_ppm_Value")%></div></td>
<td width="150" height="10" ><div align="center"><%=Rs("Alarm_Status")%></div></td>
</tr> 
</table> 
 
 <%
rs.movenext
end if
next
set rs=nothing
conn.close
%>

导航

导航

帝王难民

爷爷都是从孙子走过来的……

导航

2007-5-21 21:55:42

发布:难民分类:学习

Tags: ASP

评论:0 | 引用:0 | 浏览:

日历

Search

网站分类

文章归档

网站收藏

友情链接

图标汇集

随机文章

最近发表

最新评论及回复

最近留言

最近引用

[Top] Powered By Z-Blog 1.8 Spirit Build 80722

Theme: Internatinal(beta), Template By haphic, Designed by SkyLanD & haphic

Copyright 2008-2009 Nanmin.Org. Some Rights Reserved. 粤ICP备07039755号

导航

导航

帝王难民

爷爷都是从孙子走过来的……

导航

2007-5-21 21:55:42

发布:难民 分类:学习if(GetCookie("password")){document.write(" &nbsp; <a href=\"http://www.nanmin.org/themes/international/common/edit.asp?act=mngart&amp;id=44\">文章管理</a>")}

ASP分页代码

Tags: ASP

日历

Search

网站分类

文章归档

网站收藏

友情链接

图标汇集

随机文章

最近发表

最新评论及回复

最近留言

最近引用

[Top] Powered By Z-Blog 1.8 Spirit Build 80722

Theme: Internatinal(beta), Template By haphic, Designed by SkyLanD & haphic

Copyright 2008-2009 Nanmin.Org. Some Rights Reserved. 粤ICP备07039755号

发布:难民分类:学习