<%
dim rs,sql
dim classid, classname, nclassid, Nclassname
dim totalPut
dim CurrentPage, TotalPages
if request("classid")<>"" then
classid=request("classid")
else
classid=0
end if
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
set rs = server.createobject("adodb.recordset")
'set rs1=server.createobject("adodb.recordset")
if trim(request.querystring("nclassid"))<>"" then
nclassid=int(request.querystring("nclassid"))
sql="select * from ANclass where NclassID="&cstr(nclassid)
rs.open sql,conn,1,1
if not rs.eof then
Nclassname=rs("Nclass")
end if
rs.close
else
Nclassid=0
Nclassname="全部文章"
end if
sql="select * from Aclass where classID="&cstr(classid)
rs.open sql,conn,1,1
if not rs.eof then
classname=rs("class")
end if
rs.close
%>
本站概况www.southwestchina.org
