set rs=server.CreateObject("adodb.recordset")
sql="select * from tb_Feedback where id="&request("id")
rs.open sql,conn,1,3
rs("FeedbackFulfill")=request("FeedbackFulfill")
rs("FeedbackResult")=request("FeedbackResult")
rs.update
rs.close
response.Write("<script language=java script>alert('反馈信息修改成功');location='Feedback_ed.asp?id="&request("id")&"</script>")
end if
%>
7 报表管理
报表管理的主要功能是打印各种类型的报表，包括客户报表打印、联系人报表打印、反馈报表打印和库存报表打印4个部分。报表管理页面设计效果如图23所示。
图23 报表管理页面设计效果
7.1 客户报表模块
客户报表模块的主要功能包括客户报表查询、导入Excel和用web打印3个部分。
1．客户报表查询
客户报表查询页面涉及的HTML表单元素如表5所示。
表5 客户报表查询页面涉及的HTML表单元素
名称 类型 含义 重要属性
form1 Form 表单 method="post" action=""
eeeet Hidden 判断表单如何处理
ClientCountry Select 国家/地区 <option value="<%=rsg("ClientCountry")%>">
<%=rsg("ClientCountry")%></option>
ClientCity Select 城市 <option value="<%=rsc("ClientCity")%>">
<%=rsc("ClientCity")%></option>
SetName Select 创建者 <option value="<%=rss("SetName")%>">
<%=rss("SetName")%></option
searchtype 类别 <option value="ClientName">公司名称</option>
……
<option value="ClientAddress">公司地址</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．导入Excel
当用户在查询部分输入条件，并单击【导入Excel】按钮后，用户添加的查询条件将被提交给数据处理页，处理页用select case判断隐藏域的值，进而确定怎样处理。
数据处理页对查询条件经过处理，产生相应的SQL查询语句，其代码如下：
<%
sql="id is not null"
if request("ClientCountry")<>"全部" then '国家/地区不为全部时
sql=sql&" and ClientCountry='"&request("ClientCountry")&"'"
end if
if request("ClientCity")<>"全部" then '城市不为全部时
sql=sql&" and ClientCity='"&request("ClientCity")&"'"
end if
if request("SetName")<>"全部" then '客户名称不为全部时
sql=sql&" and SetName='"&request("SetName")&"'"
end if
if trim(request("search"))<>"" then '当关键字不为空时
sql=sql&" and "&request("searchtype")&" like '%"&request("search")&"%'"
end if
sql="select ClientName,ClientCountry,ClientCity,ClientTel,ClientFax,ClientEmail from tb_Client where "&sql
response.Redirect("Table_print_Cd.asp?sql="&sql&"&tt=excu