用户在查询部分输入查询条件后，单击【查询】按钮，用户所添加的查询条件将被提交给本页，本页将根据用户提交的表单信息对数据库进行检索，并将结果集通过操作区输出到浏览器中。
合同信息查询程序代码如下：
<%
if request("post")<>"" then
if request("tiao")="模糊查询" then‘模糊查询合同信息
set rs=server.CreateObject("adodb.recordset")
sql="select * from tb_Pact where "&request("sel")&" like '%"&request("search")&"%' order by id desc"
rs.open sql,conn,1,1
else’精确查询合同信息
set rs=server.CreateObject("adodb.recordset")
sql="select * from tb_Pact where "&request("sel")&"='"&request("search")&"' order by id desc"
rs.open sql,conn,1,1
end if
else’ 默认状态下显示的合同信息
set rs=server.CreateObject("adodb.recordset")
sql="select * from tb_Pact order by id desc"
rs.open sql,conn,1,1
end if
%>
合同信息显示/查询页面运行结果如图11所示。
图11 合同信息显示/查询页面运行结果
也可在查看客户的详细信息中，单击“合同信息”，就会产生此客户的合同列表，传参代码如下：
<a href="KeHu_Pact.asp?post=true&sel=PactClient&search=<%=rsx("id")%>&dd=dd" >合同信息</a>
2．合同信息添加
合同信息添加的主要功能是用户添加客户的合同信息。
在查询页面中单击【添加】按钮，在展示区中会显示添加页面，其运行结果如图17（上）所示；也可在客户的详细信息页面单击“新建”，在展示区中会显示添加页面，然后进行合同信息添加。合同信息添加页面的运行结果如图12（下）所示。
图12 合同信息添加页面运行结果
3．合同信息修改
合同信息修改的主要功能是用户修改合同信息。
在显示合同详细信息页面，用户可以更改其合同的信息。合同信息修改页面运行结果如图13所示。
图13 合同信息修改页面运行结果
4．合同信息的删除
合同信息删除的主要功能是删除合同信息，其代码如下：
<%
kid=Split(Request("del"),",")
response.Write("正在删除...")
for i=0 to ubound(kid)
sqld="delete from tb_Pact where id="&clng(kid(i))
conn.execute(sqld)
next
%>
5 服务管理
服务管理设计的主要功能包括反馈信息的显示/查询、添加、修改和删除4个部分。用户可以通过功能导航进入服务管理页面，页面设计效果如图20所示。
图20 服务管理页面的设计效果
5.1 反馈信息添加
反馈信息添加的主要功能是用户添加客户的反馈信息。在查询页面中单击【添加】按钮，在展示区中会显示添加页面。反馈信息添加页面的设计效果如图21所示。
图21 反馈信息添加页面的设计效果
反馈信息添加页面涉及的HTML表单元素如表3所示。
表3 反馈信息信息添加页面涉及的HTML表单元素
名称 类型 含义 重要属性
form1 Form 表单 method="post" action=""
post hidden 判断表单是否提交 value="true"
FeedbackTitle text 反馈主题 class="in" size="30"
FeedbackFulfill radio 是否完成 value="未完成" value="已完成"
year select 年 <option value="<%=i%>"><%=i%></option>
month select 月 <option value="<%=i%>"><%=i%></option>
day select 日 <option value="<%=i%>"><%=i%></option>
FeedbackClient select 相关客户 <option value="<%=rsc("id")%>">
<%=rsc("ClientName")%>&
首页 上一页 1 2 3 4 5 6 7 下一页 尾页 4/11/11
ASP客户关系管理系统(四)由毕业论文网（www.huoyuandh.com）会员上传。
