基于ASP汽车销售集团网站的设计与实现

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="javascript">

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>

企业详细资料页面，主要是根据传递的参数（本例是企业的名称）查找相应的记录，并显示查询结果。查询代码如下：

<!--#include file=DataBase/conn.asp-->

<%

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页面进行处理，代码如下：

<!--#include file=DataBase/conn.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=javascript>alert(''订单提交成功'');window.close()</script>")

else

      response.Write("<script language=javascript>alert(''请把信息填写完整'');location=''javascript:history.go(-1)''</script>") ''如果有未填写的项目，用js提示

end if

%>

在展台中心订购中，先把车辆的品牌参数传递给订购页面（ydinggou.asp）,代码如下：

<a href="zhantaiopen.asp?id=<%=rs2("id")%>">详细参数</a> <a href="javascript:" 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）。

本文选自计算机毕业设计http://myeducs.cn
论文文章部分只是部分简介，如需了解更多详情请咨询本站客服！QQ3710167