requestpage=clng(request("p")) '获取接收页码
if requestpage="" or requestpage=0 then '当接收页码的值为空或者0时使其等于1
requestpage=1
end if
if requestpage>maxpage then '在接收页码的值大于最大页码时，使其等于最大页码
requestpage=maxpage
end if
if not requestpage=1 then '向上或向下移动相应的记录
rs1.move (requestpage-1)*rs1.pagesize
end if
%>
<table width="500" border="0" align="center" cellspacing="1" bgcolor="#999999">
<tr bgcolor="#595859">
<td height="29"><div align="center"><span class="style3">标号</span></div></td>
<td><div align="center"><span class="style3">名称</span></div></td>
<td><div align="center"><span class="style3">匹配车型</span></div></td>
<td><div align="center"><span class="style3">价格</span></div></td>
</tr>
<%for i=1 to rs1.pagesize and not rs1.eof %>
<tr>
<td height="23" bgcolor="#FFFFFF"><div align="center"><%=rs1("Number")%></div></td>
<td bgcolor="#FFFFFF"><div align="center"><%=rs1("Name")%></div></td>
<td bgcolor="#FFFFFF"><div align="center"><%=rs1("Type")%></div></td>
<td bgcolor="#FFFFFF"><div align="center"><%=rs1("Price")%></div></td>
</tr>
<%
rs1.movenext
if rs1.eof then exit for
next
%>
</table>
<table width="500" border="0" align="center">
<tr>
<td align="right"> </td>
</tr>
</table><p>
<%
else
response.Write("<div align=center>没有您想要查找的信息</div>")
end if
End If
end if
%>
备件查询模块的运行结果如图16所示。
