<%
set conn=Server.CreateObject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("ebfok.mdb")
%>
<%number=Request.QueryString("number")
add1=Request.QueryString("add1")
add2=Request.QueryString("add2")
exec="select * from list where instr(number,'"&number&"')>0 and instr(add,'"&add1&"')>0 and instr(add,'"&add2&"')>0"
set rs=Server.CreateObject("adodb.recordset")
rs.open exec,conn,1,1
rs.PageSize=12
pagecount=rs.PageCount
page=int(request.QueryString ("page"))
if page<=0 then page=1
if request.QueryString("page")="" then page=1
rs.AbsolutePage=page
%>
公交查询系统
