<%
dim rs,sql,sqlstr
dim totalPut
dim CurrentPage, TotalPages
dim classid, classname, nclassid, Nclassname
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")
%>
<%
if trim(request.querystring("nclassid"))<>"" then
nclassid=int(request.querystring("nclassid"))
sql="select * from Nclass where NclassID="&cstr(nclassid)
rs.open sql,conn,1,1
if not rs.eof then
Nclassname=rs("Nclass")
end if
rs.close
else
Nclassid=1
Nclassname="经典童话故事"
end if
sql="select * from class where classID="&cstr(classid)
rs.open sql,conn,1,1
if not rs.eof then
classname=rs("class")
end if
rs.close
%>
|
<%=Nclassname%> |
HOME > 图书列表> <%=Nclassname%> |
|