<%
MaxPerPage=6
dim rs,sql,i
dim classid, classname, nclassid, Nclassname,idid,totalnumber
dim totalPut
dim CurrentPage, TotalPages,o
classid=2
nclassid=2
idid=0
if request("id")<>"" then idid=cint(request("id"))
if request("nclassid")<>"" then nclassid=cint(request("nclassid"))
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")
'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
%>
CG女孩教程
