<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
dim rs,sql
dim classid
dim classname
dim totalPut
dim CurrentPage
dim TotalPages
if request("classid")<>"" then
classid=request("classid")
else
classid=1
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("Nclassid"))<>"" then
Nclassid=trim(request("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=""
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
%>
中国批发在线网--友情链接
