asp+access搜索并分页代码

郑重声明：本代码摘自互联网学习吧，版权归学习吧所有

原文地址/wytx/2.html

学习吧是互联网新兴的服务站,我站专门编写关于电脑技巧,维护电脑,优化电脑,组装电脑,网页制作教程,网站技巧,网页特效等电脑实用心得,从初学者角度考虑,让初学者易懂,易学,易会网址：

本代码是利用地址栏参数传递做成的搜索功能，具有分页效果，分页显示，用的是get的方式

1在文件夹新建名为db.mdb的数据库,建立表1名称为yiban，里面有字段id(自动编号),name(备注),gjz(备注),sj(日期和时间默认直是now()) 建立表2为erban，字段同上

2将以下代码复制成index.html保存在跟db.mdb同目录下

站内搜索

关键字 栏目 搜索范围   一班 二班 名字 关键字 id

2，将以下代码复制成sousuo.asp保存在跟db.mdb同目录下

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<%

dim conn

set conn = server.createobject("adodb.connection")

conn.connectionstring="Provider = Microsoft.Jet.OLEDB.4.0;Data Source="&server.mapPath("db.mdb")

conn.open

'上面为数据库链接

%>

<%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 = "" then

response.Write("")

'如果传过来的变量为空则提示内容“你搜索的不完整”并跳转到index.html

response.end ()

end if

set 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=?的代码，在下面分页要用