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的程序代码。
