首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 网站开发 > ASP >

[]教小弟我写数据查询分页代码

2012-03-07 
[求助]请教高手教我写数据查询分页代码小弟做了个多关键字查询的网页,但是在数据库中数据太多有几千条记录

[求助]请教高手教我写数据查询分页代码
小弟做了个多关键字查询的网页,但是在数据库中数据太多有几千条记录所以希望能分页显示每页显示5条,每次显示时只读要显示的5条记录,按下一页时再读下一个5条记录,不要一查看就直接先把整个数据库都先读一遍这样太慢了.请教哪位大侠可以实现小弟的想法.最好能写一下程序.
以下是小弟做的显示数据的页:
<%
set   conn=server.createobject( "adodb.connection ")
conn.open   "driver={microsoft   access   driver   (*.mdb)};dbq= "&server.mappath( "1.mdb ")
a=request.form( "n ")
b=request.form( "m ")
c=request.form( "mm ")
d=request.form( "mmm ")
exec= "select   *   from   1   where   n   like   '% "&a& "% '   and   m   like   '% "&b& "% '   and   m   like   '% "&c& "% '   and   m   like   '% "&d& "% ' "
set   rs=server.createobject( "adodb.recordset ")
rs.open   exec,conn,1,1
%>
<%
content=replace(content,vbcrlf, " <br> ")
  %>

<html>
<head>
<title> 简历查看 </title>
<meta   http-equiv= "Content-Type "   content= "text/html;   charset=gb2312 ">
<script   type= "text/JavaScript ">
<!--
function   MM_findObj(n,   d)   {   //v4.01
    var   p,i,x;     if(!d)   d=document;   if((p=n.indexOf( "? "))> 0&&parent.frames.length)   {
        d=parent.frames[n.substring(p+1)].document;   n=n.substring(0,p);}
    if(!(x=d[n])&&d.all)   x=d.all[n];   for   (i=0;!x&&i <d.forms.length;i++)   x=d.forms[i][n];
    for(i=0;!x&&d.layers&&i <d.layers.length;i++)   x=MM_findObj(n,d.layers[i].document);
    if(!x   &&   d.getElementById)   x=d.getElementById(n);   return   x;
}

function   MM_validateForm()   {   //v4.0
    var   i,p,q,nm,test,num,min,max,errors= ' ',args=MM_validateForm.arguments;
    for   (i=0;   i <(args.length-2);   i+=3)   {   test=args[i+2];   val=MM_findObj(args[i]);
        if   (val)   {   nm=val.name;   if   ((val=val.value)!= " ")   {
            if   (test.indexOf( 'isEmail ')!=-1)   {   p=val.indexOf( '@ ');
                if   (p <1   ||   p==(val.length-1))   errors+= '-   '+nm+ '   must   contain   an   e-mail   address.\n ';
            }   else   if   (test!= 'R ')   {   num   =   parseFloat(val);
                if   (isNaN(val))   errors+= '-   '+nm+ '   must   contain   a   number.\n ';
                if   (test.indexOf( 'inRange ')   !=   -1)   {   p=test.indexOf( ': ');
                    min=test.substring(8,p);   max=test.substring(p+1);
                    if   (num <min   ||   max <num)   errors+= '-   '+nm+ '   must   contain   a   number   between   '+min+ '   and   '+max+ '.\n ';


        }   }   }   else   if   (test.charAt(0)   ==   'R ')   errors   +=   '-   '+nm+ '   is   required.\n ';   }
    }   if   (errors)   alert( 'The   following   error(s)   occurred:\n '+errors);
    document.MM_returnValue   =   (errors   ==   ' ');
}
//-->
</script>
<style   type= "text/css ">
<!--
@import   url( "z.css ");
.STYLE1   {
font-family:   Tahoma;
font-size:   11px;
}
.STYLE6   {font-family:   Tahoma;   font-size:   18;   }
.STYLE8   {color:   #FF0000}
-->
</style>
</head>  
<body   bgcolor= "#FFFFFF "   text= "#000000 ">
<p   class= "STYLE1 "> <a   name= "1 "   class= "STYLE1 "> </a> [   <a   href= "chaxun.asp "> <font   color= "#000000 "> 返回查询页 </font> </a>   ]   [   <a   href= "tianjia.asp "> <font   color= "#000000 "> 返回添加页 </font> </a>   ]   </p>
<form   action= "del.asp "   method= "post "   name= "form1 "   class= "STYLE1 "> <span   class= "STYLE6 "> 请输入删除的 <span   class= "STYLE8 "> ID </span> 号: </span>  
<input   name= "id "   type= "text "   onBlur= "MM_validateForm( 'id ', ' ', 'R ');return   document.MM_returnValue ">
<input   name= "Submit "   type= "submit "   class= "STYLE1 "   value= "提交 "   />
</form>
</p> </p>
<table   width= "100% "   border= "0 "   cellspacing= "0 "   cellpadding= "0 ">
    <tr>
        <td   class= "STYLE1 "> <table   border= "0 "   cellpadding= "5 "   cellspacing= "2 "   bgcolor= "#999999 ">
            <%
do   while   not   rs.eof
%>
            <tr>
                <td   width= "50 "   align= "center "   valign= "top "   bgcolor= "#FFFFFF "   class= "STYLE1 "> id </td>
                <td   width= "100 "   align= "center "   valign= "top "   bgcolor= "#FFFFFF "   class= "STYLE1 "> 类型 </td>
                <td   width= "600 "   align= "left "   valign= "top "   bgcolor= "#FFFFFF "   class= "STYLE1 "> 简历 </td>
                <td   width= "300 "   align= "left "   valign= "top "   bgcolor= "#FFFFFF "   class= "STYLE1 "> 评价 </td>
            </tr>
            <tr>
                <td   width= "50 "   align= "center "   valign= "top "   bgcolor= "#FFFFFF "   class= "STYLE1 ">


                    <%=rs( "id ")%> </td>
                <td   width= "100 "   align= "center "   valign= "top "   bgcolor= "#FFFFFF "   class= "STYLE1 ">
                    <%=rs( "n ")%> </td>
                <td   width= "600 "   align= "left "   valign= "top "   bgcolor= "#FFFFFF "   class= "STYLE1 "> <%=rs( "m ")%> </td>
                <td   width= "300 "   align= "left "   valign= "top "   bgcolor= "#FFFFFF "   class= "STYLE1 "> <%=rs( "p ")%> </td>
            </tr>
            <tr>
                <td   height= "26 "   colspan= "4 "   align= "center "   valign= "top "   bgcolor= "#FFFFFF "   class= "STYLE1 "> &nbsp; </td>
                </tr>
            <%  
rs.movenext
loop
%>
        </table> </td>
    </tr>
</table>
<p   align= "center "   class= "STYLE1 "> [   <a   href= "chaxun.asp "> <font   color= "#000000 "> 返回查询页 </font> </a> ]   [   <a   href= "tianjia.asp "> <font   color= "#000000 "> 返回添加页 </font> </a>   ]   [   <a   href= "#1 "> <font   color= "#000000 "> 回到本页顶端 </font> </a>   ]   </p>
</body>
</html>

[解决办法]
用ajax吧,比较快
[解决办法]
网上去查个ajax分页代码

热点排行