<td><%=rs("ClientEmail")%></td>
</tr>
<%
rs.movenext
if rs.eof then exit for
next
else
response.Write("<span class='style2'>没有找到相关信息</span>")
end if
%>
客户报表打印页面运行结果如图25所示。
图25 客户报表打印页面的运行结果
7.2 联系人报表模块
1．联系报表查询
联系人报表查询页面涉及的HTML表单元素如表6所示。
表6 联系人报表查询页面涉及的HTML表单元素
名称 类型 含义 重要属性
form1 Form 表单 method="post" action=""
eeeet hidden 判断表单如何处理
LinkmanDept select 国家/地区 <option value="<%=rsg("ClientCountry")%>">
<%=rsg("ClientCountry")%></option>
LinkmanDuty select 城市 <option value="<%=rsc("ClientCity")%>">
<%=rsc("ClientCity")%></option>
select2 select 创建者 <option value="<%=rss("SetName")%>">
<%=rss("SetName")%></option
Submit submit 导入Execul class="input" value="导入Excul" onClick="form1.eeeet.value='excul'"
Submit submit 直接打印 class="input" value="打印报表" onClick="form1.eeeet.value='print_c'"
用户可以在报表管理页面中的联系人报表查询部分，输入一定的查询条件，进行联系人信息的查询。
2．导入Excul
用户在查询部分输入查询条件后，单击【导入Excul】按钮，用户所添加的查询条件将被提交给数据处理页，处理页用select case判断隐藏域的值，进而确定怎样处理，传值的程序代码如下：
<%
sql="dbo.tb_Linkman.id is not null"
if request("LinkmanDept")<>"全部" then
sql=sql&" and dbo.tb_Linkman.LinkmanDept='"&request("LinkmanDept")&"'"
end if
if request("LinkmanDuty")<>"全部" then
sql=sql&" and dbo.tb_Linkman.LinkmanDuty='"&request("LinkmanDuty")&"'"
end if
if request("select2")<>"全部" then
sql=sql&" and dbo.tb_Linkman.SetName='"&request("SetName")&"'"
end if
sql="SELECT dbo.tb_Linkman.LinkmanName, dbo.tb_Client.ClientName,dbo.tb_Linkman.LinkmanDept,dbo.tb_Linkman.LinkmanDuty,dbo.tb_Linkman.LinkmanTel, dbo.tb_Linkman.LinkmanHander, dbo.tb_Linkman.LinkmanEmail FROM dbo.tb_Client INNER JOIN dbo.tb_Linkman ON dbo.tb_Client.ID= dbo.tb_Linkman.LinkmanClient where "&sql
response.Redirect("Table_print_kh.asp?sql="&sql)
%>
由于查询和导入的实现方法和客户报表的实现方法相似，在此不再详细介绍，请读者参考7.1节中介绍的导入Excel的程序代码。
3．用web打印
用户在查询部分输入查询条件后，单击【打印报表】按钮，用户所添加的查询条件将被提交给数据处理页，处理页用select case判断隐藏域的值，进而确定怎样处理。传值程序代码如下：
<%
sql="dbo.tb_Linkman.id is not null"
if request("LinkmanDept")<>"全部" then
sql=sql&" and dbo.tb_Linkman.LinkmanDept='"&request("LinkmanDept")&"'"
end if
if request("LinkmanDuty")<>"全部" then
sql=sql&" and dbo.tb_Linkman.LinkmanDuty='"&request("LinkmanDuty")&"'"
end if
if request("select2")&
首页 上一页 5 6 7 8 9 10 11 下一页 尾页 8/11/11
ASP客户关系管理系统(八)由毕业论文网（www.huoyuandh.com）会员上传。
