免费链接代码 | 设为主页 | 收藏本站
汉语词典总目录
<% '数据库查询 '获得搜索内容 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%>