<%
'数据库查询
'获得搜索内容
cx = request("cx")
dim pageCount
'把page转换成整数
page = cint(request("page"))
set conn=server.createobject("adodb.connection")'
set rs=server.createobject("adodb.recordset")
conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("5r#lhgfruedjt6#db1.asp")
conn.open
' 获取产品的名字记录集（从 news表中）
if cx <> "" then
sql = "select * from db1 where id like '%"&cx& "%'"
else
sql ="select * from db1 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
<%
if cx <> "" then
response.Redirect(rs("title"))
end if
%>
<%RS.MoveNext
NumRows=NumRows+1
WEND%>
