📄 diary_inspect_option.asp

📁 北京华信东方网络办公系统
💻 ASP
字号:
<%@ Language=VBScript %>
<!--#include file= "../dbase.asp"-->
<!--#include file= "../function.asp"-->
<!--#include file= "../department/department_function.asp"-->
<!--#include file= "../employee/employee_function.asp"-->
<!--#include file= "diary_function.asp"-->
<html>
<head>
<meta name=vs_targetSchema content="http://schemas.microsoft.com/intellisense/ie5">
<meta name="GENERATOR" Content="Microsoft Visual Studio.NET 7.0">
<link href="../MSTYLE.CSS" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
INPUT{BORDER-TOP-WIDTH: 1px; PADDING-RIGHT: 1px; PADDING-LEFT: 1px; BORDER-LEFT-WIDTH: 1px; FONT-SIZE: 9pt; BORDER-LEFT-COLOR: #cccccc; BORDER-BOTTOM-WIDTH: 1px; BORDER-BOTTOM-COLOR: #cccccc; PADDING-BOTTOM: 1px; BORDER-TOP-COLOR: #cccccc; PADDING-TOP: 1px; HEIGHT: 18px; BORDER-RIGHT-WIDTH: 1px; BORDER-RIGHT-COLOR: #cccccc; font-family: "宋体"; font-size: 12px}
textarea {border-width: 1; border-color: #000000; background-color: #efefef; font-family: "宋体"; font-size: 12px; font-style: bold;}
select {border-width: 1; border-color: #000000; background-color: #eeeeee; font-family: "宋体"; font-size: 12px; font-style: bold;}
OPTION{FONT-FAMILY: "宋体"; FONT-SIZE: 12px}
-->
</style>
</head>
<body>
<%
DepartmentRight=userRight("t_Department",Session("UID"))'得到用户的管理部门数组，调用函数在../function.asp
DRstr="'"&replace(DepartmentRight(0,0),",","','")&"'"
abc=inspectDepartment(DRstr)'得到所能统计的部门数组,该函数调用../department/department_function.asp
efg=DepartmentNameEmployee(DRstr)
'得到所辖部门的员工信息，调用函数../employee/employee_function.asp
'c_UserID, v_UserTrueName, v_DepartmentName
YearWeekArray=YearWeek()'得到年和周的唯一性数组，该函数调用diary_function.asp
%>
日记汇总
  <form name="Form1" action="diary_inspect_view.asp" method="post" target="_self">
  <table width="320" height="300" border="1" cellpadding="0" cellspacing="0" bordercolor="#CCCCCC" align="center">
    <tr> 
      <td width="160" valign=top>
	  <table width="100%" border="0" cellspacing="0" cellpadding="2">
	  <tr><td><strong>汇总范围</strong><br>
（多选Ctrl+鼠标左键）</td></tr>
  <tr>
            <td>
			<input name="rank" type="radio" value="department" onClick="ShowHid(Employee,Department);" checked>
              部门
			<input type="radio" name="rank" value="employee" onClick="ShowHid(Department,Employee);">
              人员 </td>
  </tr>
  <tr id="Employee" style="display: none">
    <td> <select name="EmployeeContent" multiple style="width: 160px; height: 290px;" >
              <%
if not isnull(efg) then
for i= 0 to ubound(efg,2)
response.Write ("<option value='"& efg(1,i) &"' selected>")
response.Write (efg(2,i)&"-"&efg(1,i))
response.Write ("</option>")
next
end if
%>
        </select></td>
  </tr>
  <tr id="Department">
  	<td> <select name="DepartmentContent" multiple style="width: 160px; height: 290px;" >
              <%
if not isnull(abc) then
for i= 0 to ubound(abc,2)
if abc(5,i)="selected" then
response.Write ("<option value='"& abc(1,i) &"' "& abc(5,i) &">")
end if
s=string(len(abc(0,i))/2-1,"　")
response.Write (s & "┣" & abc(1,i))
response.Write ("</option>")
next
end if
%>
        </select>
  </td></tr>
</table>
</td>
      <td width="180" align="center" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="2">
          <tr> 
            <td height="20"><strong>时间方式</strong><br>
（多选Ctrl+鼠标左键）</td>
          </tr>
          <tr> 
            <td><input type="radio"  name="TimeWay" value="yearweek" onClick="ShowHid(TimePart,YearWeek);" checked>
              周 <input type="radio" name="TimeWay" value="timepart" onClick="ShowHid(YearWeek,TimePart);">
              时间段</td>
          </tr>
          <tr id="TimePart" style="display: none"> 
            <td nowrap>起<input name="BeginDate" type="text" readonly="true"><input type="button" value="选" onClick="ChoiceDate('calendar.asp?form=Form1&field=BeginDate')"><br>
			终<input name="EndDate" type="text" readonly="true"><input value="选" type="button" onClick="ChoiceDate('calendar.asp?form=Form1&field=EndDate')"></td>
          </tr>
          <tr id="YearWeek">
            <td align="center" valign="top" style="">
			<select name="YearContent" style="width: 160px; " onChange="redirect(this.options.selectedIndex)">
                <%call YearContent(YearWeekArray)%>
              </select><br>
			  <select name="WeekContent" style="width: 160px; height: 270px;" size=2 >
                <%call WeekContent(YearWeekArray)%>
              </select>
</td>
          </tr>
        </table></td>
      <td width="173" style="display: none">&nbsp;</td>
    </tr>
  </table>
  <p align=center><INPUT type="submit" value="开始汇总"></p>
</form>

</body>
</html>
<script language=javascript>
<!--
function ShowHid(oldid,newid){
oldid.style.display="none";
newid.style.display="";
}
function ChoiceDate(url){
window.open(url,'rili','directorys=no,toolbar=no,status=no,menubar=no,scrollbars=no,resizable=no,width=190,height=140,top=' + window.event.screenY + ',left='+window.event.screenX );
}
//切换年与周的函数
var groups=document.Form1.YearContent.options.length  
var group=new Array(groups)  
for (i=0; i<groups; i++)  
 group[i]=new Array() ; 
 <%call MakeYearWeek(YearWeekArray)'产生客户端的年与周的对应表%> 
var temp=document.Form1.WeekContent  
function redirect(x){  
  for (m=temp.options.length-1;m>0;m--)  
  temp.options[m]=null  
  for (i=0;i<group[x].length;i++){  
  temp.options[i]=new Option(group[x][i].text,group[x][i].value)  
  }  
  temp.options[0].selected=true  
  }  
function go(){  
  location=temp.options[temp.selectedIndex].value  
  }  
//-->
</script>
⌨️ 快捷键说明

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