<%
const MaxPerPage=18
dim totalPut
dim CurrentPage
dim TotalPages
dim i,j
dim sql
dim rs
dim classid
dim typeid
classid=request("Classid")
'classid=63
sql="select * from Xb_article where Bigclassid="&classid&" or classid="&classid&" order by id desc"
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
sql="select * from Xb_class where id="&classid
Set rs1= Server.CreateObject("ADODB.Recordset")
rs1.open sql,conn,1,1
dim classname
classname=rs1("Classname")
%>
相关连接
