汽车销售集团网站

          <tr>
            <td align="right"><span class="css">共<%= maxpage %>页当前页：<%=requestpage %></span> <a href="zhantai.asp?p=<%=requestpage-1%>">上一页</a><a href="zhantai.asp?p=<%=requestpage+1%>">下一页</a></td>
          </tr>
         </table>
车辆分类展示页面的运行结果如图9所示。

图9 车辆分类展示页面运行结果
2．车辆的详细参数页面
车辆详细参数页面，主要是根据传统的参数（本例为车辆id号，参数名为id）查找相应的记录并显示结果。查询车辆详细参数的代码如下：
set rs1=server.CreateObject("adodb.recordset")
sql1="select * from tb_Cars_s where id="&request("id")
rs1.open sql1,conn,1,1
显示数据的方法：
<%=rs1(“pinpai”)%>                       ’pinpai数据库中表的字段名,rs1为记录集名称
由于车辆的参数特别多，所以利用显示隐藏表格的方法把他们分开显示。先让他们都隐藏起来，然后再用js控制它们的显示或隐藏。脚本代码如下：
<script>
function hiddenall(objTr){// 隐藏所有相关的表
    jibenziliao.style.display = "none";
jibencanshu.style.display = "none";
waixingcanshu.style.display = "none";
dipancanshu.style.display = "none";
fadongjicanshu.style.display = "none";
qitacanshu.style.display = "none";
qitashuoming.style.display = "none";
biaozhunzhuangbei.style.display = "none";
xuanzhuangzhuangbei.style.display = "none";
}
</script>
<script>
function ShowTR(objTr)
{
if(objTr.style.display == "block"){
   objTr.style.display = "none";
}
else
{
  hiddenall(objTr);
  objTr.style.display = "";
}
}
</script>
把每个表都起上名字，例如：
<table width="550" border="0" cellpadding="0" cellspacing="0" id="jibenziliao">
调用方法：
<a href="java script:" onClick="ShowTR(jibenziliao)">基本资料| </a>
这样就可以控制要显示那个表格了，再把查询结果中的数据放在相对应的表格里。
车辆的详细参数页面运行结果如图10所示。

图10 车辆的详细参数页面运行结果
4.4 订购中心模块设计
在本例中在线订购有两种订购的方法，一种是订购者在订购中心订购，另一种是在展台中心直接订购。下面先介绍在订购中心订购的设计方法。
在线订购页面中，用户必须如实填写，如果有一条不真实，网站都不会接收客户的订购信息。在线订购页面的设计效果如图11所示。

图11    车辆在线订购页面设计效果
在添写订单时，可以选择经销商并查看其详细的信息，这就要先从数据库中读取经销商的名称，具体代码如下：
<%
set rs1=server.CreateObject("adodb.recordset")
sql1="select * from tb_Enterprise where Style='连锁销售' order by id desc" ‘获取经销商的信息
rs1.open sql1,conn,1,1
if not rs1.eof then
%>
<select name="dealer" class="wenbenkuang" id="select6">
<% for i=1 to rs1.recordcount and not rs1.eof%>
<option value="<%=rs1("Name")%>"><%=rs1("Name")%></option>
<%
  rs1.movenext
if rs1.eof then exit for
next
%>
</select>
<span class="style8">*</span> </td>
   <td width="95"><input name="Submit32" type="button" class="input" value=" 详细资料 " onClick="more()"></td>
<% else %>
没有车辆</td>
<% end if %>
其js代码如下：
<script language="java script">
unction more(){
var names=form2.dealer.value;     // 获取下拉列表中的值
window.open("lsopen.asp?dealer="+names,"","width=380,height=235,toolbar=no,location=no,
status=no,menubar=no");
}
</script>
企业详细资料页面，主要是根据传递的参数（本例是企业的名称）查找相应的记录，并显示查询结果。查询代码如下：

<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from tb_Enterprise where Name='"&request("dealer")&"'"
rs.open sql,conn,1,1
%>
通过以下代码显示企业的详细信息：
<%=rs("Name")%>                    '企业的名称
<%=rs("Address")%>                 '企业的地址
<%=rs("Phone")%>                   '企业的电话
<%=rs("Style")%>                   '企业的类别
在线订单提交之后，由dinggousave.asp页面进行处理，代码如下：

<%
if request("name")<>"" and request("counts")<>"" and request("payment")<>"" and request("color")&_
<>"" and request("enterprise")<>"" and request("address")<>"" and request("area")<>"" and &_
request("dealer")<>"" and request("linkman")<>""and request("phone")<>""and request("fax")<>""and &_
request("email")<>""and request("phost")<>""and request("remark")<>"" then
  set rs=server.CreateObject("adodb.recordset")
sql="select * from tb_dd "
rs.open sql,conn,1,3
  rs.addnew
rs("name")=request("name")
rs("counts")=request("counts")
rs("payment")=request("payment")
rs("color")=request("color")
rs("EnterpriseName")=request("enterprise")
rs("address")=request("address")
  rs("area")=request("area")
rs("dealer")=request("dealer")
rs("linkman")=request("linkman")
rs("phone")=request("phone")
rs("fax")=request("fax")
rs("email")=request("email")
rs("PhoneNumber")=request("phost")
rs("remark")=request("remark")
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>") '如果有未填写的项目，用js提示
end if
%>
在展台中心订购中，先把车辆的品牌参数传递给订购页面（ydinggou.asp）,代码如下：
<a href="zhantaiopen.asp?id=<%=rs2("id")%>">详细参数</a> <a href="java script:" onClick="window.open('ydinggou.asp?name=<%=rs2("pinpai")%>','','width=500,height=600')">在线订购</a>
在订购页面（ydinggou.asp）中，接收传过来的参数直接添入文本框中，代码如下：
<input name="name" type="text" id="name" value="<%=request("name")%>" readonly="true">
然后把表单提交到处理页面（dinggousave.asp）。
4.5 租赁中心模块设计
1．租赁帮助
租赁帮助只是简单的静态页，这里不做详细说明。
2．在线租赁
在线租赁是为了方便客户租赁汽车而设计的。在线租赁页面中，用户必须如实填写信息，如果有一条不真实，网站都不会接收客户的租赁信息。用户租赁页面设计效果如图12所示。

图12 在线租赁页面设计效果
在线租赁页面涉及到的HTML表单元素如表3所示。
表3 在线订购页面涉及的HTML表单元素
名称类型含义重要属性
form1 form 表单 method="post" action=" zzulinsave.asp "
CarsName select 车辆的类型 value="<%=rs4("name")%>"
UserName text 联系人 class="wenben"
Phone text 联系电话 class="wenben"
Hander text 手机 class="wenben"
Fax text 传真 class="wenben"
Email text 电子邮件 class="wenben" size="40"
Address text 联系地址 class="wenben" size="40"
Numbers text 身份证号码 class="wenben" size="40"
Nian select 年 value="<%=i%>"
Yue select 月 value="<%=i%>"
Ri select 日 value="<%=i%>"
Nian1 select 年 value="<%=i%>"
Yue1 select 月 value="<%=i%>"
Ri1 select 日 value="<%=i%>"
Submit2 submit 提交按钮 class="input" value="　提　交　"
Submit3 button 关闭按钮 onClick="window.close();" class="input" value="　提　交　"
租赁中心首先要选择要租车辆的类型，这些数据必须从数据库中读取，代码如下：
<%

首页上一页 1 2 3 4 5 6 下一页尾页 3/6/6

汽车销售集团网站(三)