ASP查询数据并分页

开始做的时候可以分页，但是除了第一页其他数据显示不出来
要再提交才行
终于慢慢找到了办法
当然，代码是参考别人的........
 <!--#include file="conn.asp"-->
<!--#include file="head.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='chaxun.asp?CurrentPage='+(document.MyForm.CurrentPage.selectedIndex+1)
   document.MyForm.submit();
 }  
</Script>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>查询数据</title>
</head>
<body>
      <form method="POST" action="chaxun.asp?action=save">
       <p align="center">查询：从<select size="1" name="y1">
        <option>2005</option>
        <option>2006</option>
        <option>2007</option>
        <option>2008</option>
        <option>2009</option>
        <option>2010</option>
        </select>年<select size="1" name="m1">
        <option>1</option>
        <option>2</option>
        <option>3</option>
        <option>4</option>
        <option>5</option>
        <option>6</option>
        <option>7</option>
        <option>8</option>
        <option>9</option>
        <option>10</option>
        <option>11</option>
        <option>12</option>
        </select>月<select size="1" name="D1">
        
       <%
     for i=1 to 31
     response.write("<option>"&i&"</option>"&chr(13))
     next
     %>
        </select>日到<select size="1" name="y2">
        <%
     for i=2005 to 2010
     response.write("<option")
     if i=year(now()) then response.write(" selected")
     response.write(">"&i&"</option>"&chr(13))
     next
     %>
        </select>年<select size="1" name="m2">
         <%
     for i=1 to 12
     response.write("<option")
     if i=month(now()) then response.write(" selected")
     response.write(">"&i&"</option>"&chr(13))
     next
     %>
        </select>月<select size="1" name="D2">
<%
     for i=1 to 31
     response.write("<option")
     if i=day(now()) then response.write(" selected")
     response.write(">"&i&"</option>"&chr(13))
     next
     %>
        </select>日
    <%
    set rs0=server.CreateObject("adodb.recordset")
rs0.Open "select adr from config order by adr asc",conn,1,1
    %>
      时间段内查询<select   name="adr">  
    <option value="999">全部池塘</option> 
    <% 
do while not rs0.eof 
%> 
  <option   value="<%=rs0("adr")%>"><%=rs0("adr")%>号池塘</option>
  <% 
rs0.movenext 
loop 
%>
  </select> <input type="submit" value="提交" name="B1">
      </form></td>
    </tr>
  </table>
  <%if request.QueryString("action")="save" then%>
<% 
set rs2=server.CreateObject("adodb.recordset") 
rs2.open "select * from asd ",conn,1,3

rs2("adr") = Request.form("adr")
rs2("y1")=request.form("y1")
rs2("y2")=request.form("y2")
rs2("m1")=request.form("m1")
rs2("m2")=request.form("m2")
rs2("d1")=request.form("d1")
rs2("d2")=request.form("d2")
rs2.Update 
rs2.Close
Set rs2 = Nothing
end if
%>
  <%
set rs9=server.CreateObject("adodb.recordset") 
rs9.open "select * from asd",conn,1,1
%>
<%
year1 =rs9("y1")    
month1=rs9("m1")     
day1=rs9("d1")   
date1=cstr(year1+"/"+month1+"/"+day1) 
year2 =rs9("y2")    
month2=rs9("m2")    
day2=rs9("d2") 
date2=cstr(year2+"/"+month2+"/"+day2) 
    %>
  <table width="760"  border="0" align="center">
  <tr>
     <td width="100" height="10"><div align="center">塘号</div></td>
    <td width="100" height="10"><div align="center">PH值</div></td>
    <td width="100" height="10"><div align="center">温度</div></td>
    <td width="100" height="10"><div align="center">融氧</div></td>
  <td width="100" height="10"><div align="center">融氧ppm</div></td>
  <td  height="10"><div align="center">时间</div></td>
  </tr>
</table>
<%
if rs9("adr")<>"999" then
%>
<% 
set rs=server.CreateObject("adodb.recordset") 
set rs1=server.CreateObject("adodb.recordset")
rs.open "select * from History Where adr="& rs9("adr") &" and time between #" & date1 & "# and #" & date2 & "#order by time desc",conn,1,1 
rs1.open "select * from log",conn,1,3 
rs1.addnew 
rs1("time") = now()
rs1("userid") = Session("username")
rs1("ope") = "查询数据"
rs1.Update 
rs1.Close
Set rs1 = Nothing
%>
<% 
rs.pagesize=10 
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="760"  border="0" align="center">
<tr> 
<td width="100" height="10" ><div align="center"><%=Rs("adr")%></div></td>
<td width="100" height="10" ><div align="center"><%=Rs("PH值")%></div></td> 
<td width="100" height="10" ><div align="center"><%=Rs("温度")%></div></td> 
<td width="100" height="10" ><div align="center"><%=Rs("融氧")%></div></td> 
<td width="100" height="10" ><div align="center"><%=Rs("融氧ppm")%></div></td>
<td  height="10" ><div align="center"><%=Rs("time")%></div></td>
</tr>
<% 
rs.movenext
end if 
next 
%>
</table>
<table align="center"><td>PH值</td>
<%
rs.movefirst
 do while not rs.eof 
%>
 <td   valign="bottom"><hr width="5"   size=<%=Rs("PH值")%>   color="#FF0000">
<%
 rs.movenext
 loop
%>
</table> 
<table align="center"><td>温度</td>
<%
rs.movefirst
 do while not rs.eof 
%>
 <td   valign="bottom"><hr width="5"   size=<%=Rs("温度")%>   color="#FF0000">
<%
 rs.movenext
 loop
%>
</table> 
<table align="center"><td>融氧</td>
<%
rs.movefirst
 do while not rs.eof 
%>
 <td   valign="bottom"><hr width="5"   size=<%=Rs("融氧")%>   color="#FF0000">
<%
 rs.movenext
 loop
%>
</table>  
<%
rs.close
set rs=nothing
%>


<%else%>
    <% 
set rs=server.CreateObject("adodb.recordset") 
set rs1=server.CreateObject("adodb.recordset") 
rs.open "select * from History Where time between #" & date1 & "# and #" & date2 & "#order by time desc",conn,1,1 
rs1.open "select * from log",conn,1,3 
rs1.addnew 
rs1("time") = now()
rs1("userid") = Session("username")
rs1("ope") = "查询数据"
rs1.Update 
rs1.Close 
Set rs1 = Nothing
%>
     


<% 
rs.pagesize=10 
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="760"  border="0" align="center">
<tr> 
<td width="100" height="10" ><div align="center"><%=Rs("adr")%></div></td>
<td width="100" height="10" ><div align="center"><%=Rs("PH值")%></div></td> 
<td width="100" height="10" ><div align="center"><%=Rs("温度")%></div></td> 
<td width="100" height="10" ><div align="center"><%=Rs("融氧")%></div></td> 
<td width="100" height="10" ><div align="center"><%=Rs("融氧ppm")%></div></td>
<td  height="10" ><div align="center"><%=Rs("time")%></div></td>
</tr>

<% 
rs.movenext
end if 
next
%>
</table>
<table align="center"><td>PH值</td>
<%
rs.movefirst
 do while not rs.eof 
%>
 <td   valign="bottom"><hr width="5"   size=<%=Rs("PH值")%>   color="#FF0000">
<%
 rs.movenext
 loop
%>
</table> 
<table align="center"><td>温度</td>
<%
rs.movefirst
 do while not rs.eof 
%>
 <td   valign="bottom"><hr width="5"   size=<%=Rs("温度")%>   color="#FF0000">
<%
 rs.movenext
 loop
%>
</table> 
<table align="center"><td>融氧</td>
<%
rs.movefirst
 do while not rs.eof 
%>
 <td   valign="bottom"><hr width="5"   size=<%=Rs("融氧")%>   color="#FF0000">
<%
 rs.movenext
 loop
%>
</table> 
 
<%
rs9.close
set rs9=nothing
rs0.close
set rs0=nothing 
rs.close
set rs=nothing
%>
<%
end if
%>
</body>
</html>
导航

导航

帝王难民

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

导航

2007-5-22 22:59:11

发布:难民分类:学习

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-22 22:59:11

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

发布:难民分类:学习
