set rs4=server.CreateObject("adodb.recordset")
sql4="select * from tb_Cars_zl order by id desc" ’读取租赁车辆的类型
rs4.open sql4,conn,1,1
%>
<% if not rs4.eof then %>
<select name="CarsName" id="CarsName">
<% for i=1 to rs4.recordcount and not rs4.eof %>
<option value="<%=rs4("name")%>"><%=rs4("name")%></option>
<%
rs4.movenext
next
%>
</select>
<%
else
response.Write("没有车辆信息")
end if
%>
在填写租赁信息的时候，还要选择日期，如果我们要用静态的方法来添加，那实在是太麻烦了，现在介绍一种新的填写方法，非常的方便，代码如下：
<select name="nian">
<%for i=2005 to 2100%>
<option value="<%=i%>"><%=i%></option>
<%next%>
</select>
年
<select name="yue">
<%for i=1 to 12%>
<option value="<%=i%>"><%=i%></option>
<%next%>
</select>
月
<select name="ri">
<%for i=1 to 31%>
<option value="<%=i%>"><%=i%></option>
<%next%>
</select>
日
在线租赁表单提交之后由zzulinsave.asp页面进行处理，代码如下：
<!--#include file=DataBase/conn.asp-->
<%
if request("carsname")<>"" and request("UserName")<>"" and request("Phone")<>"" and request("Fax")&_
<>"" and request("Email")<>"" and request("Hander")<>"" and request("Address")<>"" and &_
request("Numbers")<>"" then '判断订单中是否有未填写的项
StartTime=request("nian")&"-"&request("yue")&"-"&request("ri") '获取租赁的开始时间
EndTime=request("nian1")&"-"&request("yue1")&"-"&request("ri1") '获取租赁的结束时间
set rs=server.CreateObject("adodb.recordset")
sql="select * from tb_Tenancy"
rs.open sql,conn,1,3
rs.addnew
rs("CarsName")=request("carsname")
rs("UserName")=request("UserName")
rs("Phone")=request("Phone")
rs("Fax")=request("Fax")
rs("Email")=request("Email")
rs("Hander")=request("Hander")
rs("Address")=request("Address")
rs("Numbers")=request("Numbers")
rs("StartTime")=StartTime
rs("EndTime")=EndTime
rs("IssueDate")=date()
rs("Whether")="未授理"
rs.update
rs.close
response.Write("<script language=java script>alert('订单提交成功');window.close()</script>")
else
response.Write("<script language=java script>alert('请把信息填写完整');location='java script:history.go(-1)'</script>")
end if
%>
4.6 客服中心模块设计
为了和客户更好的沟通，设计的客服中心模块，包括客户热线、客户投诉和备件查询三部分组成。
1．客户热线
客户热线的主要功能是方便客户查找各个地区的服务电话，页面的设计效果如图13所示。
图13 客服热线页面设计设计效果
客户热线主要是利用SQL语句的where来实现，其程序代码如下：
<%
set rs1=server.CreateObject("adodb.recordset")
sql1="select * from tb_Enterprise where Style='客户服务' order by id desc"
rs1.open sql1,conn,1,1
shum=12 '每页显示的记录数
if not rs1.eof then
tel=rs1.recordcount '获取总记录数
rs1.pagesize=shum
maxpage=rs1.pagecount '获取总共的页数
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
for i=1 to rs1.pagesize and not rs1.eof
%>
<tr>
<td height="27" bgcolor="#FFFFFF"><div align="center"><a href="java script:" onClick="window.open('lsopen.asp?dealer=<%=rs1("name")%>','','width=380,height=235')"><%=rs1("Name")%></a></div></td>
<td bgcolor="#FFFFFF"><div align="center"><%=rs1("Phone")%></div></td>
</tr>
<%
rs1.MoveNext
if rs1.eof then exit for '如果记录集为空那么跳出循环
next
Rs1.Close '关闭记录集对象
Set Rs1=Nothing '清空记录集
else
response.Write("暂无企业信息")
end if
%>
2．客户投诉
客户投诉是为用户投诉各个分公司而设置的，这样公司可以通过用户的监督来管理各个分公司，促进企业更好的发展。
客户投诉页面中，用户必须如实填写，如果有一条不真实，网站都不会接收客户的投诉。如客户投诉页面的设计效果如图14所示。
图14 客户投诉页面设计效果
客户投诉页面涉及到的HTML表单元素如表4所示。
表4 客户投诉页面涉及到的HTML表单元素
名称 类型 含义 重要属性
form1 form 表单 method="post" action="toususave.asp"
realname text 投诉人的姓名 class="wenben"
phone text 联系电话 class="wenben"
enterprise select 被投诉的单位 value="<%=rs1("name")%>"
keyname textarea 投诉项目 cols="50" rows="5" class="wenben"
season textarea 投诉理由 cols="50" rows="5" class="wenben"
result textarea 欲求结果 cols="50" rows="5" class="wenben"
Submit2 submit 提交按钮 class="input" value=" 确 认 投 诉 "
Submit3 reset 重置按钮 class="input" value=" 重 置 "
客户投诉处理页面进行数据处理的程序代码如下：
<!--#include file=DataBase/conn.asp-->
<%
if request("realname")<>"" and request("phone")<>"" and request("enterprise")<>"" and&_
request("keyname")<>"" and request("season")<>"" and request("result")<>"" then
set rs=server.CreateObject("adodb.recordset")
sql="select * from tb_Record"
rs.open sql,conn,1,3
rs.addnew
rs("RealName")=request("realname")
rs("Phone")=request("phone")
rs("Enterprise")=request("enterprise")
rs("KeyName")=request("keyname")
rs("Season")=request("season")
rs("result")=request("result")
rs("IssueDate")=date() ’date()获取当前日期
rs("Whether")="未授理"
rs.update
rs.close
response.Write("<script language=java script>alert('提交成功！');window.close()</script>")
else
response.Write("<script language=java script>alert('请把信息填写完整！');location='java script:history.go(-1)'</script>")
end if
%>
3．备件查询
备件查询为方便客户购买备件进行设计的。它的主要功能 是按备件的名称或者编号对备件信息进行模糊查询。该页面由两部分组成，一部分是查询条件输入区，另一部分是查询结果显示区，如图15所示。
图15 备件查询页面设计效果 首页 上一页 1 2 3 4 5 6 下一页 尾页 4/6/6
查询条件输入区中涉及的HTML表单元素如表5所示。
表5 查询条件输入区中涉及的HTML表单元素
名称 类型 含义 重要属性
form1 form 表单 method="post" action=""
name text 备件名称 class="wenben"
number text 备件编号 class="wenben"
Submit2 submit 提交按钮 class="input" value=" 提 交 "
Submit2 reset 重置按钮 class="input" value=" 重 置 "
按输入的关键字对备件信息进行模糊查询，并显示查询的结果，其代码如下：
<!--#include file=DataBase/conn.asp-->
<%
'显示备件信息
if request("post")<>"" then
if request("name")="" and request("number")="" then
response.Write("<script language=java script>alert('请输入条件');location='java script:history.go(-1)'</script>")
else
if request("name")<>""then ‘当备件名称不为空时获取相应的记录集
set rs1=server.CreateObject("adodb.recordset")
sql1="select * from tb_Beijian where Name like '%"&request("name")&"%' order by ID desc"
rs1.open sql1,conn,1,1
end if
if request("number")<>""then ‘当备件编号不为空时取得记录集
set rs1=server.CreateObject("adodb.recordset")
sql1="select * from tb_Beijian where Number like '%"&request("number")&"%' order by ID desc"
rs1.open sql1,conn,1,1
end if
If not rs1.eof Then
shum=10
tel=rs1.recordcount '总记录数
rs1.pagesize=shum '获取每页显示的记录数
maxpage=rs1.pagecount '获取总共的页数
