求助ASP的相关问题

<%
Dim Rs,Sql,info,tatalrecord,tatalpages,nowpage,n
Set rs = Server.CreateObject("ADODB.RecordSet")
sql="Select * From product order by id desc"
rs.Open Sql,Conn,1,1
if rs.eof or rs.bof then
Response.Write("<div algin=center>没有"&ntypeNames&"的相关信息</div>")

end if

rs.pagesize=8 '定义一页显示的记录数目
tatalrecord=rs.recordcount '获取记录总数目
tatalpages=rs.pagecount '获取分页的数目
rs.movefirst

nowpage=request("page") '用request获取当前页数，注意page是自己定义的变量并非函数

if nowpage=0 then '处理页码为空时的情况
nowpage=1
else
nowpage=cint(nowpage) '将页码转换成数字型
end if

rs.absolutepage=nowpage '将指针移动到当前显示页的第一条记录
n=1
while not rs.eof and n<=rs.pagesize

%>
<table width="170" height="180&q

<table width="170" height="180" border="0" cellpadding="0" cellspacing="0">

<%
Dim Rs,Sql,info,tatalrecord,tatalpages,nowpage,n
Set rs = Server.CreateObject("ADODB.RecordSet")
sql="Select * From product order by id desc"
rs.Open Sql,Conn,1,1
if rs.eof or rs.bof then
Response.Write("<div algin=center>没有"&ntypeNames&"的相关信息</div>")

end if

rs.pagesize=8 '定义一页显示的记录数目
tatalrecord=rs.recordcount '获取记录总数目
tatalpages=rs.pagecount '获取分页的数目
rs.movefirst

nowpage=request("page") '用request获取当前页数，注意page是自己定义的变量并非函数

if nowpage=0 then '处理页码为空时的情况
nowpage=1
else
nowpage=cint(nowpage) '将页码转换成数字型
end if

rs.absolutepage=nowpage '将指针移动到当前显示页的第一条记录
n=1
while not rs.eof and n<=rs.pagesize