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所示。
图16 备件查询页面运行结果
附录A 参考文献
1．JSP数据库系统开发完全手册 人民邮电出版社 2006年3月
2．Delphi数据库系统开发完全手册 人民邮电出版社 2006年3月
3．Visual Basic数据库系统开发完全手册 人民邮电出版社 2006年3月
4．Visual C++数据库系统开发完全手册 人民邮电出版社 2006年3月
5．JSP 信息系统开发实例精选 机械工业出版社 王国辉、牛强、李南南等 2005年7月
6．Visual Basic信息系统开发实例精选 机械工业出版社 宋坤、赵智勇、刘强等 2005年7月
7．SQL Server数据库开发实例解析 机械工业出版社 宋昆、李严等 2006年1月
8．Access数据库开发实例解析 机械工业出版社 李俊民、高春燕等 2006年1月
9．Visual Basic精彩编程200例 机械工业出版社 赛奎春、高春艳等 2003年1月
10．ASP数据库开发实例解析 机械工业出版社 李严、于亚芳、王国辉 2004年12月
11．Delphi工程应用与项目实践 机械工业出版社 宋坤、赵智勇等 2005年1月
12．Visual Basic工程应用与项目实践 机械工业出版社 高春艳、李俊民等 2005年1月
13．Visual C＋＋工程应用与项目实践 机械工业出版社 张雨、阮伟良等 5005年1月
14．JSP工程应用与项目实践 机械工业出版社 陈威、白伟明、李楠 2005年2月
15．ASP工程应用与项目实践 机械工业出版社 王国辉、牛强、李南南 2005年4月
16．Visual Basic 信息系统开发实例精选 机械工业出版社 高春艳、李俊民、张耀庭等
2005年7月
17．ASP 信息系统开发实例精选 机械工业出版社 王国辉、牛强、李南南等 2005年7月
18．Delphi 信息系统开发实例精选 机械工业出版社 宋坤、赵智勇、刘强等 2005年7月
19．Visual foxpro数据库开发关键技术与实例应用 人民邮电出版社 周桓、张雨、王国辉 2004年5月
20．PoweBuilder数据库开发关键技术与实例应用 人民邮电出版社 刘志铭 张振坤 冯文萃 2004年5月
21．Delphi数据库开发关键技术与实例应用 人民邮电出版社 赛奎春 陈紫鸿 宋昆
2004年5月
22．Visual basic数据库开发关键技术与实例应用 人民邮电出版社 高春艳、李艳
2004年5月
23．Visual C++ 管理信息系统完整项目实例剖析 人民邮电出版社 明日科技 2005年7月
24．Visual Basic 管理信息系统完整项目实例剖析 人民邮电出版社 明日科技 2005年7月
25．PowerBuilder 管理信息系统完整项目实例剖析 人民邮电出版社 明日科技 2005年7月
26．Visual FoxPro管理信息系统完整项目实例剖析 人民邮电出版社 明日科技 2005年7月
27．Delphi数据库开发实例解析 机械工业出版社 赛奎春、郑骁鹏等 2004年2月
28．Visual Basic数据库开发实例解析 机械工业出版社 刘志铭、高春艳等 2003年8月
29．Visual FoxPro数据库开发实例解析 机械工业出版社 王晶莹、王国辉等 2003年9月
30．Power Builder数据库开发实例解析 机械工业出版社 华传铭、张振坤等 2003年9月
31．PowerBuilder 精彩编程200例 机械工业出版社 张振坤、李文立等 2004年9月
32．Visual FoxPro 精彩编程200例 机械工业出版社 王国辉、董韶华等 2004年9月
附录B 数据表
（1）admin（用户列表）
用户列表主要用于用户信息，该表结构如表B.1所示。
表B.1 表admin的结构
字段名 数据类型 长度 描述
id int 4 自动编号
username varchar 50 用户名
userpwd varchar 50 用户密码
（2）tb_Tenancy（在线租赁订单）
在线租赁订单表主要用于保存租赁订单信息，该表结构如表B.2所示。
表B.2 表tb_Tenancy的结构
字段名 数据类型 长度 描述
ID int 4 自动编号
UserName varchar 30 联系人
Phone varchar 30 联系电话
Fax varchar 30 传真
Email varchar 150 电子邮件地址
Hander varchar 30 手机
Address varchar 300 联系地址
Numbers varchar 50 身份证号码
CarsName varchar 150 车辆的名称
StartTime datetime 8 租赁的开始时间
EndTime datetime 8 租赁的结束时间
IssueDate datetime 8 发布日期
Whether varchar 50 是否授理
（3）tb_Record（客户投诉表）
客户投诉表主要用于保存客户投诉信息，该表结构如表B.3所示。
表B.3 表tb_Record的结构
字段名 数据类型 长度 描述
ID int 4 自动编号
RealName varchar 50 投诉人姓名
Phone varchar 50 联系电话
Enterprise varchar 500 投诉单位
KeyName varchar 5000 投诉项目
Season varchar 5000 投诉理由
Result varchar 5000 欲求结果
IssueDate datetime 8 发布日期
Whether varchar 50 是否授理
（4）tb_Permute（置换申请表）
置换申请表主要用于保存客户置换申请信息，该表结构如表B.4所示。
表B.4 表tb_Permute的结构
字段名 数据类型 长度 描述
ID int 4 自动编号
Name varchar 50 真实姓名
Phone varchar 50 联系电话
Hander varchar 50 手机
Email varchar 50 电子邮件地址
Address varchar 50 联系地址
CarName varchar 50 持有车的名称
Times varchar 50 购买时间
Bad varchar 50 是否有损
YearCheck varchar 50 是否车检
ChangeCar varchar 50 欲置换车辆名称
IssueDate datetime 8 发布日期
Whether varchar 50 是否授理
（5）tb_dd（在线订单表）
在线订单表主要用于保存客户在线订购汽车的详细信息，该表结构如表B.5所示。
表B.5 表tb_dd的结构
字段名 数据类型 长度 描述
ID Int 4 自动编号
Name varchar 50 订购车辆的名称
Counts Int 4 订购数量
Color varchar 50 车辆的颜色
Payment varchar 50 支付方式
EnterpriseName varchar 200 公司名称
Address varchar 200 详细地址
Area varchar 50 所在区
Dealer varchar 200 经销商
Linkman varchar 100 联系人
Phone varchar 20 联系电话
Fax varchar 20 传真
Email varchar 100 电子邮件地址
PhoneNumber varchar 20 邮政编码
Remark varchar 500 备注信息
IssueDate datetime 8 发布日期
Whether varchar 10 是否授理