图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  备件查询页面设计效果
 查询条件输入区中涉及的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 '获取总共的页数

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

以上为本篇毕业论文范文汽车销售集团网站(四)的介绍部分。

本论文在计算机论文栏目，由论文网(www.zjwd.net)整理,更多论文,请点论文范文查找

相关论文