%
dim sql,rs
dim classid,str,classname,keywords
dim pages,page,totalrecords,psize,strQuery,i,col
set rs = server.CreateObject("adodb.recordset")
classid = request("classid")
classname = request("classname")
strQuery = "classid=" & classid & "&classname=" & classname & ""
sql = "select * from softnews where 1=1 "
if isnumeric(classid) and classid<>"" then
sql = sql & " and classid=" & clng(classid) & ""
end if
sql = sql & " order by id desc"
'response.Write sql
rs.open sql,conn,1,1
if not rs.eof then
psize = 20
rs.pagesize = psize
page = request("page")
if page = "" or IsNumeric(page)=false then page=1
page=Clng(page)
pages=rs.pagecount
if page<1 then page=1
if page>pages then page=pages
rs.absolutepage = page
totalrecords=rs.recordcount
end if
%>