📄 report_service.asp
字号:
<!--#INCLUDE FILE="../conn.asp"-->
<!--#INCLUDE FILE="../isuser.asp"-->
<!--#include file="../pub_fun.asp"-->
<HEAD>
<META NAME="Keywords" CONTENT="FastReport"/>
<META NAME="Description" CONTENT="The FastReport report"/>
<LINK href="../css.css" rel="stylesheet" type="text/css" media="all">
<TITLE>服务反馈报表</TITLE></head>
<script language="VBScript">
sub print_onclick()
fm1.txturl.value="show"
fm1.submit
end sub
sub down_onclick()
fm1.txturl.value="down"
fm1.submit
end sub
</script>
<%
if request("txturl")<>"" then
''生成查询条件
textsql="select * from Feedback where (FeedbackCreatorID="&session("Session_User")&"or Feedbackopenflag=1 )"
''将时间范围加入到条件中
if request("S_time")<>"0" then
textsql=textsql & " and FeedBackdate between '"&trim(request("start_time"))&"' and '"&trim(request("end_time"))&"'"
end if
''将操作者字段加入到查询条件中
if request("s_operator")<>"0" then
textsql=textsql & " and FeedBackCreatorID="&trim(request("s_operator"))
end if
''根据排序字段的选择组和相应的排序
select case trim(request("S_order"))
case "0"
textsql=textsql& " order by FeedbackDate"
case "1"
textsql=textsql& " order by FeedbackClientID "
case "2"
textsql=textsql& " order by Feedbackover "
case "3"
textsql=textsql& " order by FeedbackSort "
end select
''查询条件加密
textsql=encrypt(textsql)
''根据具体的txturl的值显示相应的页面
if trim(request("txturl"))="show" then
%>
<script language="javaScript">
window.open("show_report_service.asp?sql=<%=textsql%>","show","resizable,scrollbars=no,dependent,status=yes,width=725,height=680");
</script>
<%
else
%>
<script language="javaScript">
window.open("down_report_service.asp?sql=<%=textsql%>","down","resizable,scrollbars=no,dependent,status=yes,width=400,height=240");
</script>
<%
end if
end if
%>
<body >
<form method="post" name="fm1" >
<input type="hidden" name="txturl">
<table width="751" border="0" cellpadding="0" cellspacing="0" align="center">
<tr>
<td>
<table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="2"> </td>
</tr>
<tr>
<td colspan="2"><div align="right">
<table width="100%" cellpadding="0" cellspacing="0" bgcolor="#F2F2F2">
<tr>
<td width="180" bgcolor="#566CDB"><font color="#FFFFFF"><img src="../images/DispStation.gif">报表-服务反聩报表
</font></td>
<td width="300"></td>
<td align="right"><input onclick="javascript:location.href='../menu.asp';" name="BackButton" type="button" class="button_all" value="返回"></td>
</tr>
</table>
</div></td>
</tr>
<tr bgcolor="#FFFFFF">
<td valign="middle" bgcolor="#FFFFFF"><table width="96%" border="0" align="center" cellpadding="0"
cellspacing="0">
<tr>
<td> </td>
</tr>
<tr>
<td><table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><fieldset>
<legend>范围选择</legend>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="21%"><div align="right">日期范围: </div></td>
<td width="79%">
<select name="S_time" class="text120" >
<option value="0" selected>全部</option>
<option value="1">自定义</option>
</select>
</td>
</tr>
<tr>
<td><div align="right">开始时间: </div></td>
<td><input name="start_time" type="text" class="text120" size="15" maxlength=10 >
</td>
</tr>
<tr>
<td><div align="right">结束时间: </div></td>
<td><input name="end_time" type="text" class=text120 size="15" maxlength=10 >
</td>
</tr>
<tr>
<td><div align="right">创建者: </div>
<div align="right"></div></td>
<td>
<select name="s_operator" class=text120>
<option value="0" selected >全部</option>
<%
set rs_s = server.createobject("adodb.recordset")
sql_s= "select distinct username,userid from [user] order by userid "
rs_s.open sql_s,conn,3
if not rs_s.eof then
for i=1 to rs_s.recordcount
%>
<option value=<%=rs_s("userid")%>> <%=rs_s("username")%></option>
<%
rs_s.movenext
next
end if
set rs_s=nothing
%>
</select>
</td>
</tr>
<tr>
<td><div align="right">排序形式: </div></td>
<td>
<select name="s_order" class=text120>
<option value="0" selected >反馈日期</option>
<option value="1">反馈客户</option>
<option value="2">是否解决</option>
<option value="3" >服务反馈类型 </option>
</select>
</td>
</tr>
</table>
<br>
<br>
</fieldset></td>
</tr>
</table></td>
</tr>
<tr>
<td> </td>
</tr>
</table></td>
</tr>
<tr bgcolor="#FFFFFF">
<td>
<table width="100%">
<tr>
<td width="80%"> <div align="right">
<input type="button" name="Button" value="下载结果" class="button_all" onClick="down_onclick()"
style="width:100px"></div></td>
<td ><div align="right">
<input type="button" name="Button" value="打印报表" class="button_all" onClick="print_onclick()"
style="width:100px">
</div>
</td>
</tr>
</table>
</td>
</tr>
</table></td>
</tr>
</table>
</form>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -