高分求看看下面这段分页代码?急!在线等?

[果果]

二个表:类别表和物品表
类别表中:id |assortid| assortname
物品表中:id| goodsname| price| assortid
类别表中的类别全部显示出来之后,我想点击其中的一个类别会显示属于此类别的所有物品,但是当物品太多的时候怎么实现分页显示.???
<%
Dim t
t="玩具"
t=" where assortname='"&t&"'"
Set rs = conn.Execute ("SELECT * FROM 类别表"&t)
If rs.EOF Or rs.BOF Then
Response.Write "此类别新闻不存在！"
else
i=0
response.write "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
do while not rs.eof
assortid=rs("assortid")
assortname=rs("assortname")
strNews=" and Assortid=" & Assortid
if i mod 2 =0 then response.write "<tr>"
response.write"<td valign=""top"">"
response.write"<table border=""0"" width=""100%"" cellpadding=""1"" cellspacing=""2"" align=""center"">"
response.write"<tr> "
response.write"<td bgcolor=""#ffffff"" height=""18"" valign=""top"">"
Set rs1 = conn.Execute ("SELECT id,goodsname,price FROM 物品表where " & strNews
If rs1.EOF Or rs1.BOF Then
Response.Write "对不起，暂时还没有此类物品！"
else
do while not rs1.eof
response.write rs("goodsname")&rs("price")
rs1.MoveNext
Loop
end if
rs1.close
set rs1=nothing
response.write "</td></tr></table></td>"
i=i+1
if i mod 2 =0 then response.write "</tr>"
rs.MoveNext
Loop
end if
response.write "</table>"
%>

[Primer2002cn]

留下MAIL，我给你代码

[cngis]

不知道知道

[果果]

大哥哥是我

[Primer2002cn]

我知道是你啊

[果果]

我加了一段分页代码.不能分页,显示记录总数为-1,分页的时候有问题?大家麻烦看看了.


<%
Dim t
t="工作动态"
t=" where assort_name='"&t&"'"
Set rs = conn.Execute ("SELECT * FROM N_assort"&t)
If rs.EOF Or rs.BOF Then
Response.Write "此类别新闻不存在！"
else

response.write "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
do while not rs.eof
assortid=rs("assort_id")
assortname=ChkString(rs("assort_name"),"unhtml")
strNews=" where Assort_id=" &assortid
response.write "<tr>"
response.write"<td valign=""top"">"
response.write"<table border=""0"" width=""100%"" cellpadding=""1"" cellspacing=""2"" align=""center"">"
response.write"<tr> "
response.write"<td bgcolor=""#ffffff"" height=""18"" valign=""top"">"
Set rs1 = conn.Execute ("SELECT Artcle_id,Artcle_setup,Artcle_link,Artcle_title,Artcle_date FROM N_artcle " & strNews & " Order By Artcle_ID Desc")
If rs1.EOF Or rs1.BOF Then
Response.Write "对不起，暂时还没有此类新闻！"
else%>




<%rs1.pagesize=4
page=cint(request("page"))
allpages=rs1.pagecount
if isEmpty(page) or Cint(page)< 1 then
page=1
elseif Cint(page) > allPages then
page=cint(allPages)
end if
'rs1.AbsolutePage=1
rowcount=rs1.pagesize%>




<%do while not rs1.eof and rowcount>0
str=rs1("Artcle_title")
if len(str)>30 then
str=left(rs1("Artcle_title"),30)
else
str=rs1("Artcle_title")
end if

Artcle_setup=rs1("Artcle_setup")
Artcle_date=rs1("Artcle_date")
Response.Write "·"
str1="<a href=""/rsj/News/newshtml/" & rs1("Artcle_link") & """ target=""_blank"">" & ChkString(str,"unhtml")&"..." & "</a> <font color=""#999999"">[" & year(Artcle_date) & "-" & month(Artcle_date) & "-" & day(Artcle_date) & "]</font><br>"
response.write str1
rowcount=rowcount-1
rs1.MoveNext
Loop
end if
%>








<form name="form1" method="post" action="index.asp">
<TABLE>
<TR> <td > 共计<%=rs1.recordcount %>条记录
<% k=page
n=rs1.pagecount
if k<>1 then
response.write"<a href='index.asp?page=1'>|首页|</a>"
response.write"<a href='index.asp?page="+cstr(k-1)+"'>|上一页|</a>"
else
response.write"|首页||上一页|"
end if
if k<>n then
response.write"<a href='index.asp?page="+cstr(k+1)+"'>|下一页|</a>"
response.write"<a href='index.asp?page="+cstr(n)+"'>|尾页|</a>"
else
response.write"|下一页||尾页|"
end if
response.write"转：<input size=5 maxlength=4 type=text name=page value="&page&">"
response.write "<input alt=页面跳转 name='query' type='submit' value='GO' >"
%> </td></tr>
</table>
</form>




















<%
rs1.close
response.write "</td></tr></table></td>"

response.write "</tr>"
rs.MoveNext
Loop
response.write "</table>"
end if
%>

[Primer2002cn]

rs.open SELECT * FROM N_assort"&t,conn,3,1

[Primer2002cn]

将Set rs = conn.Execute ("SELECT * FROM N_assort"&t)替换成:
rs.open SELECT * FROM N_assort"&t,conn,3,1
试试看

[果果]

不行呀.显示总页数为-1

[colee]

Set rs1 = conn.Execute ("SELECT Artcle_id,Artcle_setup,Artcle_link,Artcle_title,Artcle_date FROM N_artcle " & strNews & " Order By Artcle_ID Desc")

改成：
Set rs1=server.CreateObject("Adodb.Recordset")
rs1.open "SELECT Artcle_id,Artcle_setup,Artcle_link,Artcle_title,Artcle_date FROM N_artcle " & strNews & " Order By Artcle_ID Desc",conn,3,2

[果果]

楼上说的,可以正确显示有几条记录了.

[果果]

但是在文本框中输入页码就不对了

[果果]

谢谢大哥哥了

[Primer2002cn]

提示什么错误？