⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 analyse_service_list.asp

📁 Activity——活动管理模块 Analyse——分析模块 Client——客户管理系统模块 Email——E-mail管理模块 Fee——费用管理模块 Report——报表模块 Sel
💻 ASP
字号:
🔍 
<!--#include file="../conn.asp"-->
<!--#include file="../IsUser.asp"-->
<!--#include file="../scripts/openwindow.js"-->
<HTML>
<HEAD>
<TITLE>服务反馈趋势分析</TITLE>
<LINK href="../css.css" rel=stylesheet>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></HEAD>

<body bgcolor="#ffffff" text="#000000" leftmargin="8">

  <table width="751" border="0" cellspacing="0" cellpadding="0" align="center">
    <tr>
      
      <td width="85%" valign="top" align="center">

<form method="post" action="" name="fm">

<div align="right">
<table width="100%" cellpadding="0" cellspacing="0" bgcolor="#F2F2F2">
  <tr bgcolor="#FFFFFF">
    <td height="5" colspan="2"></td>
  </tr>
  <tr>
              <td width="180" bgcolor="#566CDB"><font color="#FFFFFF"><img src="../images/DispStation.gif">服务反馈趋势图信息 
                - 列表</font></td>
    <td>
	<div align="right">
	  <table border="0" cellpadding="0" cellspacing="0" class=tablebutton>
        <tr>
           <td align="right">
	      <input type="button" name="Button" value="查询" class="button_all" onClick="cmd_search()">
          <input type="button" name="Button" value="图示" class="button_all" onClick="showchart()">
		  <input type="button" name="Button" value="返回" class="button_all" onClick="gomenu()">
          </td>
       </tr>
</table>
    </div>
	</td>
  </tr>
</table>
 
        </div>
		
<table width="80%" border="0" cellpadding="1" cellspacing="1" class=tableselect>
    <tr>
      <td  class=TD_hr width="50">时间周期</td>
      <td  class="tablelist_td1" onclick="cmd_search()" colspan="3">
        <INPUT TYPE=RADIO NAME="S_time" VALUE="0" <%if request("S_time")= 0 then response.Write("checked")%>>年
        <INPUT TYPE=RADIO NAME="S_time" VALUE="1"   <%if request("S_time")= 1 or request("S_time")="" then response.Write("checked")%>>月
        <INPUT TYPE=RADIO NAME="S_time" VALUE="2"  <%if request("S_time")= 2 then response.Write("checked")%>>日
      </td>      
    </tr>
    <tr>
    <td class=TD_hr  width="50">开始时间</td>
    <td class="tablelist_td1">
      <input class=text100 type="text" name="start_time" maxlength=10   value="<%if request("start_time")<>"" then response.Write(request("start_time"))%>"><input name="Button2" type="button" class="button_dic" id="Button2" onClick="show_calendar('fm.start_time')" value="…">
    </td>
    <td class=TD_hr  width="50">结束时间</td>
    <td class="tablelist_td1">
      <input class=text100 type="text" name="end_time" maxlength=10  value="<%if request("end_time")<>"" then response.Write(request("end_time"))%>"><input name="Button3" type="button" class="button_dic" id="Button3" onClick="show_calendar('fm.end_time')" value="…">
    </td>
    </tr>
</table>
  
  
  <!-- 显示内容-->
  
<%
''判断操作参数
if request("opstatus")="query" then
''判断是否进行数据范围的选择
   if  request("start_time")<>"" and request("end_time")<>"" then
        sqlwhere=" where FeedbackDate between '"&request("start_time")&"' and '"&request("end_time")&"'"
   end if
    sql="select "
   ''根据传递过来的操作对象生成相应的查询语句
	select case request("S_time")
	  case 0
	     sql=sql&" YEAR(FeedbackDate) AS FeedbackDate, COUNT(*) AS total FROM Feedback"
		 sql=sql& sqlwhere
		 sql=sql&" GROUP BY YEAR(FeedbackDate)"
		 
	 case 1
	     sql=sql&" RTRIM(YEAR(FeedbackDate)) + '-' + RTRIM(MONTH(FeedbackDate)) AS FeedbackDate, COUNT(*) AS total , CONVERT(datetime, RTRIM(YEAR(FeedbackDate)) + '-' + RTRIM(MONTH(FeedbackDate)) + '-1') AS Feedbackoder  from Feedback"
		 sql=sql& sqlwhere
		 sql=sql&" GROUP BY RTRIM(YEAR(FeedbackDate)) + '-' + RTRIM(MONTH(FeedbackDate)), CONVERT(datetime, RTRIM(YEAR(FeedbackDate)) + '-' + RTRIM(MONTH(FeedbackDate)) + '-1') ORDER BY Feedbackoder"
	 case 2
	     sql=sql&" FeedbackDate, Count(*) as total  FROM Feedback"
		 sql=sql& sqlwhere
		 sql=sql&" GROUP BY FeedbackDate"
   end select
''如果传递过来的操作参数没有操作内容，则将查询语句设置为默认
else
         sql="select "
	     sql=sql&" RTRIM(YEAR(FeedbackDate)) + '-' + RTRIM(MONTH(FeedbackDate)) AS FeedbackDate, COUNT(*) AS total, CONVERT(datetime, RTRIM(YEAR(FeedbackDate)) + '-' + RTRIM(MONTH(FeedbackDate)) + '-1') AS Feedbackoder  from Feedback"
		 sql=sql&" GROUP BY RTRIM(YEAR(FeedbackDate)) + '-' + RTRIM(MONTH(FeedbackDate)), CONVERT(datetime, RTRIM(YEAR(FeedbackDate)) + '-' + RTRIM(MONTH(FeedbackDate)) + '-1') ORDER BY Feedbackoder"
end if

''建立数据集对象，执行查询操作
  set rs = server.createobject("adodb.recordset")
  rs.open sql,conn,3
''获得记录的总记录数
  total=rs.recordcount
''设置页面的记录数
  rs.pagesize=20
''获得总页面数
  pcount = rs.pagecount  
  
   '获取到达的页面   
  if  request("move")<>"" and request("page")<>"" then  
     select case request("move")
	 	case "0"
			page=1
		case "1"
			page=cint(request("page")) -1
			if page<1 then page=1
		case "2"
			page=cint(request("page")) +1
			if page>pcount then page=cint(pcount)
		case "3"
			page=cint(pcount)
	end select
else
  page=1
 end if
%>
  <input type="Hidden" name="page" value=<%=page%>>


<table width="100%"  border="0" cellspacing="0" cellpadding="0">
  <tr align="right">
	<td >
		<%if page<>1 and pcount>1 then%>
		<a href="JavaScript:cmd_firstpage()">首页</a>
		<%end if%>
		
		<%if page<>1 and pcount>1 then%>
		<a href="JavaScript:cmd_prevpage()">上一页</a>
		<%end if%>

		<%if page< pcount and pcount<>1 then%>
		<a href="JavaScript:cmd_nextpage()">下一页</a>
		<%end if%>

		<%if pcount>1 and pcount<>page then%>
		<a href="JavaScript:cmd_endpage()">末页</a>
		<%end if%>

		当前页数:<%=page%>   ,总共页数: <%=pcount%>,记录总数: <%=total%>         
  </td>
  </tr>
</table>
<table class=tablelist border="0" cellspacing="1" cellpadding="1">
          <tr class=tablelist_tr> 
            <td height="20" class="list_white"> <% if request("s_time")<>"" then 
         select case  request("s_time")
	  		case 0	response.Write("年")			
			case 1 	response.Write("月")
			case 2 	response.Write("日")
	     end select
	  else
	      response.Write("月")		
	 end if
%> </td>
            <td height="20" class="list_white"><div align="right">服务次数</div></td>
          </tr>
          <%
   if not rs.eof then
      rs.AbsolutePage=page
      for i=1 to rs.pagesize
       if rs.eof then exit for
%>
          <tr> 
            <td height="20" class="tablelist_td1"><%=rs("FeedBackDate")%></td>
            <td height="20" class="tablelist_td1"><div align="right"><%=rs("total")%></div></td>
          </tr>
          <%
   rs.movenext
   if rs.eof then exit for
 next
end if
%>
</table>
  <input type="hidden" name="opstatus" value="ok">
    <input type="hidden" name="type_kind" value="">
</form>
  </td>
</table>
</body>
 <script language="JavaScript">
 function showchart()
   {
      fm.opstatus.value="query";
	  fm.type_kind.value="list";
      fm.action="show_service.asp";
	  fm.target="_blank"
      fm.submit();
  }
  
function cmd_search()
  {
      window.document.fm.target="_self"
      window.document.fm.opstatus.value="query";
      window.document.fm.action="analyse_service_list.asp";
      window.document.fm.submit();
  }
function gomenu()
  {
window.location="../menu.asp";
  }
  

function cmd_firstpage()
  {
      window.document.fm.opstatus.value="query";
      window.document.fm.action="analyse_service_list.asp?move=0";
	  window.document.fm.target="_self"
      window.document.fm.submit();
  }
function cmd_prevpage()
  {
      window.document.fm.opstatus.value="query";
      window.document.fm.action="analyse_service_list.asp?move=1";
	  window.document.fm.target="_self"
      window.document.fm.submit();
  }
function cmd_nextpage()
  {
      window.document.fm.opstatus.value="query";
      window.document.fm.action="analyse_service_list.asp?move=2";
	  window.document.fm.target="_self"
      window.document.fm.submit();
  }
function cmd_endpage()
  {
      window.document.fm.opstatus.value="query";
      window.document.fm.action="analyse_service_list.asp?move=3";
	  window.document.fm.target="_self"
      window.document.fm.submit();
  }
</script>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -