%
dim classid
classid=request("classid")
if classid="" then
response.write "类别号为空!"
response.End()
end if
sql="select * from news where class="&classid&" order by time desc"
sql1="select * from newscla where id="&classid
set rs= Server.CreateObject("adodb.recordset")
set rs1= Server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
rs1.open sql1,conn,1,1
rs.pagesize=15
dim page
page=cint(request("page"))
if page<=1 then page=1
if page>=rs.pagecount then page=rs.pagecount
%>