急啊!100分!礼拜一就要交工了,大家帮忙看看?分页显示在重复定义rs后不能正常显示!!!

在以下代码中我运用了分页显示,程序本身没有语法错误,但是如果我的数据库记录超过10笔,也就是超过了rs.pagesize=10的定义范围,就不能再现实10笔后的记录了?

表:shichang_sanjian 存放散件的详细信息
表:shichang_sanjian_sort 存放散件的分类信息

请问大家为什么会产生这种现象,用什么方法可以解决??

1<html>
2<head>
3<meta content="text/html; charset=utf-8" http-equiv="Content-Type"/>
4<title>无标题文档</title>
5<link href="cortorl1.css" rel="stylesheet" type="text/css"/>   
6######   
7代码段1:根据上层页面提交的数据,我读取shichang_sanjian_sort表的散件分类信息所代表的编号   
8####################   

a=request("leibie")
leibie=request("leibie")
sql="select * from shichang_sanjian_sort where bh_number='"&amp;a&amp;"'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql,Conn,3,2
if not rs.eof then
leibie=rs("fl_sort")
end if
rs.close
set rs=nothing

 1######   
 2代码段1结束   
 3####################   
 4</head>
 5<body>
 6<table bgcolor="#4A69AD" border="0" cellpadding="2" cellspacing="1" width="600">
 7<tr>
 8<td height="30"> <div align="center"><font color="#FFFFFF" size="3">散 件 报   
 9价 信 息</font></div>
10<div align="center"></div></td>
11</tr>
12<tr bgcolor="#FFFFFF">
13<td>
14<table bgcolor="#4A69AD" border="0" cellpadding="0" cellspacing="0" height="34" width="100%">   
15######   
16代码段2:读取shichang_sanjian_sort表的散件分类信息并显示在页面中   
17####################   

sql="select * from shichang_sanjian_sort"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql,Conn,3,2
if not rs.eof then
num=rs.recordcount mod 8
if num&lt;&gt;0 then
num=rs.recordcount/8+1
else
num=rs.recordcount/8
end if
for j=1 to num
response.Write"<tr>"
for i=1 to 8
response.Write"<td><div align="center"><a ```="" href='master_shichang_sanjian_sort.asp?leibie="' response.write"="">"

=rs("fl_sort")

response.write"

"
m=m+1
if m=rs.recordcount then
exit for
end if
rs.movenext
next
response.write""
next
end if

1######   
2代码段2结束   
3####################   
4&lt;/table&gt;
5&lt;table bgcolor="#4A69AD" border="0" cellpadding="0" cellspacing="0" width="594"&gt;
6&lt;tr&gt;
7&lt;form action="master_shichang_sanjian_search.asp" method="post" name="form2"&gt;
8&lt;td height="21" width="588"&gt;&lt;font color="#FFFFFF"&gt;&lt;font color="#FFDB4A" size="3"&gt;
9&lt;strong&gt;   

response.write(leibie)

 1&lt;/strong&gt;&lt;/font&gt;搜索:&lt;/font&gt;
 2&lt;input id="sousuo" maxlength="100" name="sousuo" size="30" style="BACKGROUND-COLOR: #F2F2F2; BORDER-BOTTOM: 1px double; BORDER-LEFT: 1px double; BORDER-RIGHT: 1px double; BORDER-TOP: 1px double; COLOR: #000000" type="text"/&gt;
 3&lt;input name="Submit3" onmouseout="this.style.color='#FFFFFF'" onmouseover="this.style.color='#FFFFFF'" style="BACKGROUND-COLOR: #4A69AD; BORDER-BOTTOM: 1px double; BORDER-LEFT: 1px double; BORDER-RIGHT: 1px double; BORDER-TOP: 1px double; COLOR: #FFFFFF; TEXT-ALIGN: center" type="submit" value="提 交"/&gt;
 4&lt;input =response.write(a)="" ```="" name="leibie" type="hidden" value="```"/&gt;
 5&lt;/td&gt;
 6&lt;/form&gt;
 7&lt;/tr&gt;
 8&lt;/table&gt; &lt;/td&gt;
 9&lt;/tr&gt;
10&lt;/table&gt;
11&lt;table bgcolor="#4A69AD" border="0" cellpadding="2" cellspacing="1" width="600"&gt;
12&lt;tr&gt;
13&lt;td width="245"&gt; &lt;div align="center"&gt;&lt;strong&gt;&lt;font color="#FFFFFF" size="2"&gt;名称&lt;/font&gt;&lt;/strong&gt;&lt;/div&gt;&lt;/td&gt;
14&lt;td width="92"&gt; &lt;div align="center"&gt;&lt;strong&gt;&lt;font color="#FFFFFF" size="2"&gt;价格&lt;/font&gt;&lt;/strong&gt;&lt;/div&gt;&lt;/td&gt;
15&lt;td width="111"&gt; &lt;div align="center"&gt;&lt;strong&gt;&lt;font color="#FFFFFF" size="2"&gt;更新日期&lt;/font&gt;&lt;/strong&gt;&lt;/div&gt;&lt;/td&gt;
16&lt;td width="131"&gt; &lt;div align="center"&gt;&lt;strong&gt;&lt;font color="#FFFFFF" size="2"&gt;相   
17关 操 作&lt;/font&gt;&lt;/strong&gt;&lt;/div&gt;&lt;/td&gt;
18&lt;/tr&gt;   
19  
20\---------------------------------------------------------------   
21  
22好长,粗略看了一下。你把第三段代码开始的那个rs找换成rs1或其它变量试一下   
23\---------------------------------------------------------------   
24  
25同意楼上的说法,能更详细地说说你点“下一页”这个链接,会有什么现象发生?&lt;/table&gt;&lt;/body&gt;&lt;/html&gt;
Published At
Categories with Web编程
Tagged with
comments powered by Disqus