日期:2014-05-17  浏览次数:20809 次

我的access数据库查询结果需要分页显示,但是执行结果没有显示,请教高手如何实现,谢谢!!
<!--#include     file= "conn.asp "-->    
<%     jino=trim(request.form( "jino "))    
              teachername=trim(request.form( "teachername "))    
                      exec= "select     *     from     课程     where     jino= ' "+jino+ " '     and     teachername= ' "+teachername+ " ' "    
          set     rs=server.createobject( "adodb.recordset ")    
          rs.open     exec,conn,1,1    
if         rs.eof     then    
          response.write     "请重新查询 "    
          response.end    
end     if    
 
rs.PageSize=10     '##设置一个页码里面显示的记录数    
pagecount=rs.PageCount         '##pagecount是记录的个数    
page=int(request.QueryString     ( "page "))    
if     page <=0     then     page=1    
if     request.QueryString( "page ")= " "     then         '##当前页为     page页    
page=1    
end     if    
rs.AbsolutePage=page    
%>    
<html>    
<head>    
<title> 查询结果 </title>    
<meta     http-equiv= "Content-Type "     content= "text/html;     charset=gb2312 ">    
<script     language= "JavaScript ">    
<!--    
function     MM_reloadPage(init)     {         //reloads     the     window     if     Nav4     resized    
      if     (init==true)     with     (navigator)     {if     ((appName== "Netscape ")&&(parseInt(appVersion)==4))     {    
              document.MM_pgW=innerWidth;     document.MM_pgH=innerHeight;     onresize=MM_reloadPage;     }}    
      else     if     (innerWidth!=document.MM_pgW         &brvbar;     &brvbar;     innerHeight!=document.MM_pgH)     location.reload();    
}    
MM_reloadPage(true);    
//     -->    
</script>    
</head>    
 
<body     background= "images/bg1.jpg "     bgcolor= "#FFFFFF "     text= "#000000 "     >    
<div     align= "center ">    
      <p> <font     color= "#660033 "> <font     size= "4 "     color=