asp+access数据库实现站内搜索.doc

% db=#qqun_qqclg.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) search=request.Form(search) sql=select * from qqsys where qq link %&search&% or name like %&search&% or sf like %&search&% or jieshao like %&search&% rs.open sql,conn,1,1 if rs.eof and bof then response.Write(没有找到相关内容) else while not rs.eof response.Write(rs(qq) response.Write(rs(name) response.Write(rs(sf) response.Write(rs(jie) response.Write() rs.movenext wend end if rs.close set rs=nothing% 建立access的数据库news,还有表news,表的字段(id,title),id唯一,输入数据保存,用下面代码可查询,可分页 -下面保存为search.asp- 文件 function btn_ck_bh_Click() var cx = document.form1.cxsj.value; form1.action =search.asp?cx=+cx; 输入搜索内容: ID 号 标 题 修 改 删 除 % 数据库查询 获得搜索内容 cx = request(cx) dim pageCount 把page转换成整数 page = cint(request(page) set conn=server.createobject(adodb.connection) set rs=server.createobject(adodb.recordset) conn.open DBQ= & server.mappath(./news.mdb) & ;DefaultDir=;DRIVER=Microsoft Access Driver (*.mdb); 获取产品的名字记录集（从 news表中） if cx then sql = select * from news where title like %&cx& % order by id desc else sql =select * from news order by id desc end if rs.open sql,conn,3,3 如果没有数据记录 if rs.bof then errmsg=errmsg+keyword+没有记录,请返回! response.write errmsg response.end end if 设置记录集在每页的总行数，也就是 PageSize属性 RS.PageSize=40 把rs.pageCount转换成整数和page才能作比较 pageCount = cint(rs.pageCount) 设置当前的页号（ AbsolutePage属性） if page = 0 then page =1 end if RS.AbsolutePage = page x=1 显示当前页中的所有记录（ PageSize中设置的行数） WHILE NOT RS.EOF AND NumRows a href=view.asp?id= target=_blank a href=edit.asp?id=修 改 a href=delet.asp?id=删 除 共页 第页 首页 1 then% A HREF=search.asp?page=1&cx= 首页 1 then%A HREF=search.asp?page=&cx=上一页 0 then for p=1 to pagewhere if p page then% A HREF=search.asp?page