asp+access搜索并分页代码

合集下载

php分页代码

<td width="76%">
<font size=4><?php print "总共$RecordCount record(s) 条记录 - 当前页： $PageNo of $MaxPage" ?></font>
</td>
</tr>
}else{
$CounterStart = $PageNo - ($PageNo % $PageSize) + 1;
}
//显示页码的最大值
$CounterEnd = $CounterStart + ($PageSize - 1);
?>
<html>
<head>
<title>分页显示记录</title>
<?php
$i++;
}?>
</table>
<br>
<table width="100%" border="0" class="InternalHeader">
<tr>
<td>
<div align="center">
<?php
echo "<font size=4>";
print "$c ";
break;
}else{
echo "<a href=wen.php?PageNo=$c>$c</a> ";

ASP实现静态无刷新分页效果_

ASP实现静态无刷新分页效果_ #FormatTableID_0#htmlheadtitle新闻列表简化型/titlescript language="javascript"!--//ajax 控件也可以做成单独文件便利到其它地方调用 function Ajax(){var xhrObj=null;if(window.XMLHttpRequest){xhrObj=new XMLHttpRequest();}else if(window.ActiveXObject){try{xhrObj=new ActiveXObject("Microsoft.XMLHTTP"); }catch(e1){try{xhrObj=new ActiveXObject("MSXML2.XMLHTTP"); }catch(e2){try{xhrObj=new ActiveXObject("MSXML3.XMLHTTP"); }catch(e3){alert("创建Ajax失败："+e3)}}}}else{alert("未能识别的扫瞄器");}return xhrObj;}function $(id){return document.all[id];}/scriptscript language="javascript" defervar xhr=new Ajax();var page=0;var icount=0; //当前页数var pagecount; //总页数var count=0;var ipagecount=0;var ipagesize=5;; //每页显示记录数var pp=0;var ipage=0;var Dom=null;function getList(curPage){if(ipagecount!=0){ipage=parseInt((curPage-1)/ipagecount)+1; }else{ipage=1};page=curPage;if (pp!=ipage){;Dom=null;pp=ipage;xhr.open("get","data.asp?curpage="+pp,true);xhr.onreadystatechange=$CallBack;xhr.send(null);}else{$showList();}}function $CallBack(){if(xhr.readystate==1){$("newsList").innerHTML="正在连结服务器";}else if(xhr.readystate==2 || xhr.readystate==3) {$("newsList").innerHTML="正在读取数据";}else if(xhr.readystate==4){if (xhr.status==200){Dom=xhr.responseXML;$showList();}}}function $showList(){var html="";var items=Dom.selectNodes("//item");icount=Dom.selectNodes("//item").length; //数量count=Dom.selectSingleNode("//data").getAttribute(" count"); //总数量ipagecount=parseInt((icount-1)/ipagesize)+1;pagecount=parseInt((count-1)/ipagesize)+1;startPosition=(page-1)*ipagesize;endPosition=(page*ipagesize)if(endPositioncount)endPosition=countfor(var i=startPosition;iendPosition;i++){html+="div id="title"a href=""+items[i].selectSingleNode("htmlurl").text+" ""+items[i].selectSingleNode("hits").text+"/a/div";}$("newsList").innerHTML=html;var statushtml="a href="javascript:previousPage()"上一页/a|a href="javascript:nextPage()"下一页/a"; if(pagecount=10){for(var i=1;i=pagecount;i++){if (i==page){statushtml+="b"+i+"/bnbsp;"}else{statushtml+="ahref="javascript:turnPage("+i+")""+i+"/anbsp;" }}}else if(page+10pagecount pagecount10){if(page%10==0){for(var i=page-9;i=page+1;i++){if (i==page){statushtml+="b"+i+"/bnbsp;"}else{statushtml+="ahref="javascript:turnPage("+i+")""+i+"/anbsp;" }}}else if(page % 10 ==1 page!=1){for(var i=page-1;i=page+10;i++){if (i==page){statushtml+="b"+i+"/bnbsp;"}else{statushtml+="ahref="javascript:turnPage("+i+")""+i+"/anbsp;" }}}else if(page=11){for(var i=1;i=11;i++){if (i==page){statushtml+="b"+i+"/bnbsp;"else{statushtml+="ahref="javascript:turnPage("+i+")""+i+"/anbsp;"}}}else{for(var i=(page-(page % 10));i=page+(10-(page % 10))+1;i++){if (i==page){statushtml+="b"+i+"/bnbsp;"}else{statushtml+="ahref="javascript:turnPage("+i+")""+i+"/anbsp;"}}}else if(page+10=pagecount pagecount10){if(page%10==0){for(var i=page-9;i=page+1;i++){if (i==page){statushtml+="b"+i+"/bnbsp;"}else{statushtml+="ahref="javascript:turnPage("+i+")""+i+"/anbsp;" }}}else if(page % 10 ==1 page!=1){for(var i=page-1;i=page+9;i++){if (i==page){statushtml+="b"+i+"/bnbsp;"}else{statushtml+="ahref="javascript:turnPage("+i+")""+i+"/anbsp;"}}}}document.getElementById("pagestatus").innerHTML=sta tushtml;}function previousPage(){if (page1){getList(page-1);}else{alert("已经是第一页了"); }}function nextPage(){if(pageipagecount){getList(page+1);}else{alert("已经到最终一页了"); }}function turnPage(p){getList(p);}getList(1);/script/headbodydiv id="newsList"/divdiv id="pagestatus"/div/body/html建一个文件data.asp注：这里我用的是ACCESS数据库，库名叫data.mdb，当然这个自己可以定义，库中表名为info字段分别是id(自动编号)、a、b、c、d(日期类型)%@ Language="VBSCRIPT" codepage="936" %%response.cachecontrol="no-cache"response.addHeader "pragma","no-cache"response.expires=-1response.expiresAbsolute=now-1response.contentType="text/xml"'SQL数据库Setconn=server.CreateObject("adodb.connection")'sconn="driver={sqlserver};server=(local);uid=**;pwd=**;database=***" 'conn.open sconnset conn=server.CreateObject("adodb.connection") file=server.mappath("data.mdb")conn.Open "driver={microsoft access driver (*.mdb)};""dbq="file%?xml version="1.0" encoding="gb2312" ?%dimiPagesize,rs,sSQL,iCurPage,ipresize,icount,ipagecou nticurpage=trim(request.QueryString("curpage"))iPagesize=500 '页大小set rs=server.createObject("adodb.recordset")'rs.open "select count(id) from ca_news where status=1",conn,1,1rs.open "select count(id) from info",conn,1,1icount=rs(0) '总记录数rs.closeipagecount=int((icount-1)/iPagesize)+1 '总页数if icurpage="" thenicurpage=1elseicurpage=cint(icurpage)end ifif icurpage1 thenicurpage=1end ifif icurPageipagecount then icurpage=ipagecountipreSize=(iCurPage-1)*ipagesizeif ipresize=0 thensSQL="select * from info order by id desc"else' sSQL="select top "ipagesize" id,title,postdate,hits,htmlurl from news where status=1 and id not in (select top "ipresize" id from news where status=1 order by id asc) order by id asc" sSQL="select top "ipagesize" * from info id not in (select top "ipresize" id from info order by id desc) order by id desc"end ifrs.open sSQL,conn,1,1data count="%=icount%" pagesize="%=ipagesize %" pagecount="%=ipagecount%"%while not rs.eof%item id="%=rs("id")%"titlelt;![CDATA[%=rs("a")%]]gt;/titlehtmlurllt;![CDATA[%=rs("b")%]]gt;/htmlurlpostdate%=DateValue(rs("d")) %/postdatehits%=trim(rs("c")) %/hits/item%rs.movenextwend%/data%rs.closeset rs=nothingconn.closeset conn=nothing更多信息请查看IT技术专栏...。

ASP连接Access数据库几种常见方法

ASP连接Access数据库几种常见方法在弹出来的“自定义连接字符串”对话框中，"连接名称"随便写一个。

“连接字符串”就要好好填写了。

当"使用此计算机上的驱动程序"时应用绝对路径：DRIVER={Microsoft Access Driver (*.mdb)};DBQ=d:\newgn\database\cnbruce.mdb否则“使用测试服务器上的驱动程序”采用Mappath转换路径："Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.mappath("/newgn/database/cnbruce.mdb")注：如果将要上传到网上去的页子就可以直接采用Mappath了点击“测试”，出现成功即爽。

附注：需要更多了解的，可以打开DW的帮助教程。

第一种连接和记录集分开声明<%db="db/darden.mdb"set conn=server.createobject("ADODB.connection")connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("" & db & "")conn.open connstr%><%set rs=server.createobject("adodb.recordset")sql="select * from ebook order by id desc"rs.open sql,conn,3,3rs.addnew............rs.update (rs.delete)rs.closeset rs=nothingconn.closeset conn=nothingresponse.write("<center><a href=viewdatabase.asp>显示文字</a></center>")Response.Redirect "homepage.asp"%>第二种连接和记录集一同声明<%set rs=server.createobject("adodb.recordset")sql="select * from ebook order by id desc"conn = "DBQ=" + server.mappath("book.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"rs.open sql,conn,3,3rs.addnew............rs.update (rs.delete)rs.closeset rs=nothingresponse.write("<center><a href=viewdatabase.asp>显示文字</a></center>")%>ASP数据库简单*作教程<1>.数据库连接(用来单独编制连接文件conn.asp)<%Set conn = Server.CreateObject(ADODB.Connection)conn.Open DRIVER={Microsoft Access Driver (*.mdb)}; DBQ= & Server.MapPath(\bbs\db1\user.mdb)%>(用来连接bbs\db1\目录下的user.mdb数据库)<2>显示数据库记录原理：将数据库中的记录一一显示到客户端浏览器，依次读出数据库中的每一条记录如果是从头到尾：用循环并判断指针是否到末使用: not rs.eof如果是从尾到头：用循环并判断指针是否到开始使用：not rs.bof  (包含conn.asp用来打开bbs\db1\目录下的user.mdb数据库)<%set rs=server.CreateObject(adodb.recordset) (建立recordset 对象)sqlstr=select * from message ---->(message为数据库中的一个数据表，即你要显示的数据所存放的数据表)rs.open sqlstr,conn,1,3 ---->(表示打开数据库的方式)rs.movefirst ---->(将指针移到第一条记录)while not rs.eof ---->(判断指针是否到末尾)response.write(rs(name)) ---->(显示数据表message中的name字段)rs.movenext ---->(将指针移动到下一条记录)wend ---->(循环结束)------------------------------------------------------rs.closeconn.close 这几句是用来关闭数据库set rs=nothingset conn=nothing-------------------------------------------------------%>其中response对象是服务器向客户端浏览器发送的信息<3>增加数据库记录增加数据库记录用到rs.addnew,rs.update两个函数 (包含conn.asp用来打开bbs\db1\目录下的user.mdb数据库)<%set rs=server.CreateObject(adodb.recordset) (建立recordset 对象)sqlstr=select * from message ---->(message为数据库中的一个数据表，即你要显示的数据所存放的数据表)rs.open sqlstr,conn,1,3 ---->(表示打开数据库的方式)rs.addnew 新增加一条记录rs(name)=xx 将xx的值传给name字段rs.update 刷新数据库------------------------------------------------------rs.closeconn.close 这几句是用来关闭数据库set rs=nothingset conn=nothing-------------------------------------------------------%><4>删除一条记录删除数据库记录主要用到rs.delete,rs.update (包含conn.asp用来打开bbs\db1\目录下的user.mdb数据库)<%dim namename=xxset rs=server.CreateObject(adodb.recordset) (建立recordset 对象)sqlstr=select * from message ---->(message为数据库中的一个数据表，即你要显示的数据所存放的数据表)rs.open sqlstr,conn,1,3 ---->(表示打开数据库的方式)-------------------------------------------------------while not rs.eofif rs.(name)=name thenrs.deleters.update 查询数据表中的name字段的值是否等于变量name的值xx，如果符合就执行删除，else 否则继续查询,直到指针到末尾为止rs.movenextemd ifwend------------------------------------------------------------------------------------------------------------rs.closeconn.close 这几句是用来关闭数据库set rs=nothingset conn=nothing-------------------------------------------------------%><5>关于数据库的查询(a) 查询字段为字符型<%dim user,pass,qq,mail,messageuser=request.Form(user)pass=request.Form(pass)qq=request.Form(qq)mail=request.Form(mail)message=request.Form(message)if trim(user)&x=x or trim(pass)&x=x then (检测user值和pass 值是否为空，可以检测到空格)response.write(注册信息不能为空)elseset rs=server.CreateObject(adodb.recordset)sqlstr=select * from user where user='&user&' (查询user数据表中的user字段其中user字段为字符型)rs.open sqlstr,conn,1,3if rs.eof thenrs.addnewrs(user)=userrs(pass)=passrs(qq)=qqrs(mail)=mailrs(message)=messagers.updaters.closeconn.closeset rs=nothingset conn=nothingresponse.write(注册成功)end ifrs.closeconn.closeset rs=nothingset conn=nothingresponse.write(注册重名)%>(b)查询字段为数字型<%dim numnum=request.Form(num)set rs=server.CreateObject(adodb.recordset)sqlstr=select * from message where id=&num (查询message 数据表中id字段的值是否与num相等，其中id为数字型) rs.open sqlstr,conn,1,3if not rs.eof thenrs.deleters.updaters.closeconn.closeset rs=nothingset conn=nothingresponse.write(删除成功)end ifrs.closeconn.closeset rs=nothingset conn=nothingresponse.write(删除失败)。

fastadmin selectpage 参数

在FastAdmin中，SelectPage是一个用于生成分页组件的辅助函数。

它的参数如下：1.$currentPage：当前页码，表示当前页面的索引。

2.$totalItems：总项目数，表示要分页的数据的总数。

3.$itemsPerPage：每页项目数，表示每页要显示的项目数量。

4.$url：分页URL，表示生成分页链接的URL。

5.$cssClass：分页CSS类名，表示分页组件的CSS类名。

6.$hideFirst：是否隐藏第一页链接，表示是否隐藏第一页的链接。

7.$hideLast：是否隐藏最后一页链接，表示是否隐藏最后一页的链接。

使用SelectPage函数时，可以根据需要传递不同的参数来生成不同的分页组件。

例如：php复制代码$currentPage = isset($_GET['page']) ? intval($_GET['page']) : 1;$totalItems = 100; // 总项目数为100$itemsPerPage = 10; // 每页项目数为10$url = '/example/page/{page}'; // 分页URL格式$cssClass = 'pagination'; // 分页组件的CSS类名为pagination$hideFirst = false; // 不隐藏第一页链接$hideLast = false; // 不隐藏最后一页链接echo SelectPage::create($currentPage, $totalItems,$itemsPerPage, $url, $cssClass, $hideFirst, $hideLast);上述示例中，我们假设总项目数为100，每页项目数为10，分页URL格式为/example/page/{page}。

然后，我们创建了一个SelectPage对象并调用create方法来生成分页组件。

ASP网上调查和广告轮播(代码及图片演示)

<p align="left">
<br>
<input type="radio" value="1" name="Options">知识（知识就是力量）<br>
<input type="radio" value="2" name="Options">学历（学历社会没有终结）<br>
<input type="radio" value="3" name="Options">金钱（经济就是基础）<br>
if total>0 then
select1=(rs("select1")/total)*100
select2=(rs("select2")/total)*100
select3=(rs("select3")/total)*100
select4=(rs("select4")/total)*100
select5=(rs("select5")/total)*100
data source=e:\xiaohao\实验五\2\research.mdb"
%>
<%
dim rs
dim sql
dim select1
dim select2
dim select3
dim select4
dim select5
dim select6
dim select7

asp连接access数据库时报未知错误及错误码-2147467259的解决方案

Asp连接access数据库时，报未知错误及错误码-2147467259的解决方案Asp连接access数据库时，报未知错误及错误码-2147467259的解决方案ASP程序连接access数据库的代码如下：<%set conn=server.createobject("adodb.connection")'连接数据库的方法1：使用oledbstr="provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("学习.mdb")conn.open str%>结果在服务器上运行该程序时提示如下错误：err.Number显示的是-2147467259,err.Description显示的是“未知错误”迷惑了很久，当时在课堂上一直找不到原因。

之前运行其他ASP程序都是好好的，一遇到数据库就出错了。

很尴尬，跟学生解释说服务器出了点小问题，随后我解决了再告诉大家。

硬着头皮接着讲课，其实很心虚。

一下课，猛蹬着自行车回到家中，立马上网搜索答案。

找了很久，决定下次上课试试这些方法行不行。

下次上课我提早到教室。

心说这次解决不了那以后就回机房上课好了。

结果一次就成功了！欢呼！解决方案：为”C:\Windows\Temp“目录添加用户Authenticated Users，为该用户开放所有权限。

（1）WindowsXP、Windows 2003用户请在“C:\Windows\Temp”目录添加一个有权限的“Authenticated Users”用户即可！Vista用户请在“C:\Windows\ServiceProfiles\NetworkService\AppData\Loc al\Temp”目录添加一个有权限的“Authenticated Users”用户即可！具体设置权限步骤：右击Temp文件夹，选择“属性”->“安全”->“编辑”->“添加”，在下面的“输入对象名称来选择”中输入Authenticated Users，确定-> 返回到“Temp 的权限”，将Authenticated Users的权限中的完全控制给勾上。

pagemethod startpage 参数

pagemethod startpage 参数
PageMethod的startPage方法是一个用于分页查询数据的常用方法，它可以接受两个参数：当前页和每页显示的数量。

这两个参数的作用分别是：
1.当前页：表示当前要查询的页数。

这个参数是一个整数，取值范围从1开始，直到总页数。

这个参数的作用是控制查询数据的起始位置。

比如，如果当前页为1，那么查询的结果将包含第一页的数据；如果当前页为2，那么查询的结果将包含第二页的数据，以此类推。

通过设置当前页，可以实现分页查询的效果。

2.每页显示的数量：表示每一页上要显示的数据条数。

这个参数也是一个整数，取值范围可以根据实际需求进行设置。

比如，如果每页显示10条数据，那么每一页上将显示10条记录。

这个参数的作用是控制每页显示的数据条数，进而影响分页查询的结果。

在调用PageMethod的startPage方法时，需要先获取到总页数和数据总数。

总页数可以通过对数据总数进行计算得到，而数据总数则可以根据实际数据进行统计。

在得到这两个参数后，就可以根据当前页和每页显示的数量来设置查询条件，从而获取到指定页数的数据。

需要注意的是，startPage方法只是PageMethod中的一
个方法，它本身并不会进行任何数据的查询操作。

实际上，它只是提供了一种分页查询数据的机制，具体的查询操作还需要结合其他方法来实现。

同时，为了更好地使用startPage 方法，还需要注意一些细节问题，比如参数的合法性、数据的排序等。

ASP与Access的连接语句讲解

掌握ACCESS数据库的连接和读取记录一：看下面两句话：<%set conn=server.createobject("adodb.connection") 定义了一个adodb数据库连接组件conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("example3.mdb")%> 连接了数据库，我们只要修改后面的数据库名字就可以了。

是不是很简单？二：下面再看三句：<%exec="select * from guestbook" 设置查询数据库的命令selectt后面加的是字段，如果都要查询的话就用*，from后面再加上表的名字，set rs=server.createobject("adodb.recordset") ：定义一个记录集组件，所有搜索到的记录都放在这里面，rs.open exec,conn,1,1%>这三句加在前面两句的后面，第二句第三句是打开这个记录集，exec 就是前面定义的查询命令，conn就是前面定义的数据库连接组件，后面参数“1，1”，这是读取，后面讲到修改记录就把参数设置为1，3，三：接下来我们读取记录。

<table width="100%" border="0" cellspacing="0" cellpadding="0"><%do while not rs.eof%><tr><td><%=rs("name")%></td><td><%=rs("tel")%></td><td><%=rs("message")%></td><td><%=rs("time")%></td></tr><%rs.movenextloop%></table>在一个表格中，我们用4列分别显示了上次建立的表里面的四个字段，用do循环，not rs.eof的意思是条件为没有读到记录集的最后，rs.movenext的意思是显示完一条转到下面一条记录，<%=%>就等于<%response.write%>用于在html代码里面插入asp代码，主要用于显示变量。

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

郑重声明：本代码摘自互联网学习吧，版权归学习吧所有原文地址/wytx/2.html学习吧是互联网新兴的服务站,我站专门编写关于电脑技巧,维护电脑,优化电脑,组装电脑,网页制作教程,网站技巧,网页特效等电脑实用心得,从初学者角度考虑,让初学者易懂,易学,易会网址：本代码是利用地址栏参数传递做成的搜索功能，具有分页效果，分页显示，用的是get的方式1在文件夹新建名为db.mdb的数据库,建立表1名称为yiban，里面有字段id(自动编号),name(备注),gjz(备注),sj(日期和时间默认直是now()) 建立表2为erban，字段同上2将以下代码复制成index.html保存在跟db.mdb同目录下<!DOCTYPE HTML><html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><title>分页效果搜索页</title></head><body><div id="result"></div><table width="800" border="0" align="center" cellpadding="0" cellspacing="0"><tr><td height="33" align="center">站内搜索</td></tr><tr><td height="50"><form name="form1" method="get" action="sousuo.asp"><table width="100%" border="1" cellpadding="5"><tr><td height="37">关键字</td><td>栏目</td><td>搜索范围</td><td> </td></tr><tr><td width="23%" height="37"><input type="text" name="gjz" id="gjz"></td><td width="12%"><select name="biao" id="biao"><option value="yiban">一班</option><option value="erban">二班</option></select></td><td width="11%"><select name="ziduan" id="ziduan"><option value="name">名字</option><option value="gjz">关键字</option><option value="id">id</option></select></td><td width="35%"><input type="submit" name="button" id="button" value="提交"></td></tr></table></form></td></tr></table></body></html>2，将以下代码复制成sousuo.asp保存在跟db.mdb同目录下<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><%dim connset conn = server.createobject("adodb.connection")conn.connectionstring="Provider = Microsoft.Jet.OLEDB.4.0;Data Source="&server.mapPath("db.mdb")conn.open'上面为数据库链接%><!DOCTYPE HTML><html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><title>分页搜索效果结果页</title></head><body><%dim gjz,biao,ziduan,rs,page,url,a'定义变量,都是从地址栏传过来的a=request.QueryString("button")page=request.QueryString("page")gjz=trim(request.QueryString("gjz")) '加trim()的意思是将()里的值去掉空格,一般为文字两边的biao=trim(request.QueryString("biao"))ziduan=trim(request.QueryString("ziduan"))if gjz = "" or biao = "" or ziduan = "" thenresponse.Write("<script>alert('你搜索的不完整');location.href='index.html';</script>")'如果传过来的变量为空则提示内容“你搜索的不完整”并跳转到index.htmlresponse.end ()end ifset rs=server.CreateObject("adodb.recordset")rs.open"select * from "&biao&" where "&ziduan&" like '%"&gjz&"%' order by id desc",conn,1,1 '选择数据表从传过来的变量biao 中选择条件zidong 包含gjz变量的内容url = Request.ServerVariables("QUERY_STRING") '这里是为了去掉地址栏链接中的page=?的代码，在下面分页要用url= "?"&urlurl=Replace(url,"&page="&page&"","")%><%if rs.eof then'如果为空则提示以下信息%><br><table width="100%" border="1"><tr><td height="37" align="center">当前没有没有找到<span style="color:#F00"><%=biao%></span>里搜索的<span style="color:#F00"><%=ziduan%></span>为<span style="color:#F00"><%=gjz%></span>的内容，请返回主页在搜索<br><a href="index.html">返回</a></td></tr></table><%else'不为空则rs.pagesize = 5 '设置显示的条数if page = "" thenpage=1 '如果page为空则=1rs.absolutepage =1 '打开的当前页面为1else '如果page不为空则if isnumeric(page) then '检查地址栏中的page是否为数字，是的话则page = cint(page)'把数字性的page转成整数做比较if page<1 or page> rs.pagecount then '如果小于1或者大于总分页数则page = 1 '=1end ifrs.absolutepage = page '如果为数字且小于1大于总分页数不成立则打开的页面为page 的直elsers.absolutepage =1 '如果page不是数字的话则page=1page=1end ifend if%><table width="800" border="0" align="center" cellspacing="0"><tr><td height="37" colspan="4" align="center">您是在<span style="color:#F00"><%=biao%></span>里搜索的<span style="color:#F00"><%=ziduan%></span>为<span style="color:#F00"><%=gjz%></span>的内容  </td></tr><tr><td height="37" colspan="4" align="center" valign="top"><table width="100%" border="1" cellpadding="0" cellspacing="0"></table></td></tr><%for i=1 to rs.pagesize'用for循环按照每页显示的条数循环，for开始if rs.eof then exit for'如果数据为空则退出for循环，避免了记录到最后一条出错%><tr><td width="134">id:<%=replace(rs("id"), gjz, "<span style=""color:#F00"">"&gjz&"</span>")%></td><td width="313" height="33">名字：<%=replace(rs("name"), gjz, "<span style=""color:#F00"">"&gjz&"</span>")%></td><td width="263">时间：<%=rs("sj")%></td><td width="293">关键字：<%=replace(rs("gjz"), gjz, "<span style=""color:#F00"">"&gjz&"</span>")%></td></tr><%rs.movenextnext'for结束%><tr><td height="46" colspan="4" class="xk"><br>共<%=rs.recordcount%>条/ 共<%=rs.pagecount%>页/ 每页<%=rs.pagesize%>条/ 当前为第<%=page%>页<br><br><%if page = 1 then '这里是分页的效果response.Write("首页| ")'如果是第一页则输出不带链接的response.Write("上一页| ")elseresponse.Write("<a href="""&url&"&page=1"">首页</a> | ") '不是第一页则输入带链接的response.Write("<a href="""&url&"&page="&page-1&""">上一页</a> | ")end if%><%dim i1,i2,i'这里定义显示分页的效果if page<3 or page=3 then '如果page小于3或者=3则i1=1i1=1elsei1=page-3 '否则i1=page减3end ifif page > (rs.pagecount-3) then '如果page大于总分页减3 则i2= 总分页i2 = rs.pagecountelse'如果page大于总分页减3 不成立则i2=page+3i2=page+3end iffor i=i1 to i2'用for循环从i1开始到i2if i=page thenresponse.Write(""&i&"") '如果为当前页则i是不带链接的elseresponse.Write("<a href="""&url&"&page="&i&""">"&i&"</a> | ")end ifnext%><%if page = rs.pagecount then'如果page =总页面则response.Write("下一页| ")'输入不带链接的response.Write("尾页| ")elseresponse.Write("<a href="""&url&"&page="&page+1&""">下一页</a> | ") '否则输出带链接的response.Write("<a href="""&url&"&page="&rs.pagecount&""">尾页</a>")end if%><br> <br><a href="index.html">返回主页</a><br><a href="">学习吧</a></td></tr></table><%rs.close'关闭记录集并释放set rs=nothingconn.closeset conn=nothing%><%end if%></body></html>3，根据以上代码就可以实现搜索功能，自己可以更改表，字段什么的，你自己还可以添加修饰使网页更加美观版权终归原创作者（学习吧）所有，转载请保留原创作者信息/。