<%
  id2=request("id1")
  page=request.querystring("page")
  if page="" then page=1
  if not(isnumeric(page)) then page=1
  if page<1 then page=1
  page=int(page)
  set rs=server.createobject("adodb.recordset")
  sql="select * from news where cstr(sort)='"+id2+"' order by id desc"
  rs.open sql,conn,3,3
  if rs.eof then
      response.write "暂且没有该类新闻"
      response.end
  else
      rs.pagesize=20
      totalrec=rs.recordcount
      totalpage=rs.pagecount
      if page>totalpage then page=totalpage
      rs.absolutepage=page
      i=0
      dim id(),title(),filename()
      do while not rs.eof and (i<rs.pagesize)
      i=i+1
      redim preserve id(i),title(i),filename(i)
      id(i)=rs("id")
      title(i)=rs("title")
      filename(i)=rs("filename")
      rs.movenext
      loop
  end if
  rs.close
  %>

<%
  id2=request("id1")'从URL上获得参数id1给变量id2
  page=request.querystring("page")'同上获得page
  if page="" then page=1'如果page为空page就设置为1
  if not(isnumeric(page)) then page=1'如果page非数字同样设置为1
  if page<1 then page=1'如果page小于1
  page=int(page)'将page强制转换为int整数型
  set rs=server.createobject("adodb.recordset")'数据库记录集对象
  sql="select * from news where cstr(sort)='"+id2+"' order by id desc"
  '查询新闻表条件为sort为id2查询结果按id降序排列
  rs.open sql,conn,3,3'打开记录集执行查询
  if rs.eof then'判断是否查询到数据
      response.write "暂且没有该类新闻"
      response.end
  else
      '查询到数据下面是分页的代码
      rs.pagesize=20
      totalrec=rs.recordcount
      totalpage=rs.pagecount
      if page>totalpage then page=totalpage
      rs.absolutepage=page
      i=0
      dim id(),title(),filename()
      do while not rs.eof and (i<rs.pagesize)
      i=i+1
      redim preserve id(i),title(i),filename(i)
      id(i)=rs("id")
      title(i)=rs("title")
      filename(i)=rs("filename")
      rs.movenext
      loop
  end if
  rs.close
  %>

非常感谢