<!--#INCLUDE FILE="../HXINCLUDE/HXINCLUDEHEAD.ASP"-->
<%ColumnName="":Tablename1="HX_SchEduleMain":Tablename="HX_SchEduleSort":action=request("submit")
response.Write "<head><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><title>日程检索</title><link rel=stylesheet type=text/css href='../HXinclude/HX_Style.css'><script src='../HXinclude/HX_Function.js'></script></head><body topmargin='20' leftmargin='0' bottommargin='0'>"
select case action
case " 搜 索 "
  response.write "<table width='700'  border='0' cellspacing='1' cellpadding='0' align=center bgcolor='#613c25'><tr><td colspan='2' bgcolor=FFFBE8 background='../hximages/titlelinebg.gif'><table width='580'  border='0' cellspacing='0' cellpadding='0'><tr><td height='25' background='../hximages/titleline.gif'><font class='fontmenu'>日程检索</font>"&msg&"</td></tr></table><table width='100%'  border='0' cellspacing='1' cellpadding='3' bgcolor=FFFBE8><tr bgcolor='BF9B73'><td width='7%' height='23'><div align='center'><font color='#FFFBE8'>编号</font></div></td><td width='8%' height='23'><div align='center'><font color='#FFFBE8'>撰写</font></div></td><td width='19%' height='23'><div align='center'><font color='#FFFBE8'>开始时间</font></div></td><td width='21%' height='23'><div align='center'><font color='#FFFBE8'>结束时间</font></div></td><td width='31%' height='23'><div align='center'><font color='#FFFBE8'>任务主题</font></div></td></tr>"
    yy1=cint(request("yy1")):mm1=cint(request("mm1")):dd1=cint(request("dd1")):yy2=cint(request("yy2")):mm2=cint(request("mm2")):dd2=cint(request("dd2")):Orderby=" where 1=1" 
    if request("selectDate")<>"" then
       Orderby=Orderby&" and(year(WS_SchEduleMainFirstTime)>"&yy1&" or (year(WS_SchEduleMainFirstTime)="&yy1&" and month(WS_SchEduleMainFirstTime)>"&mm1&") or (year(WS_SchEduleMainFirstTime)="&yy1&" and month(WS_SchEduleMainFirstTime)="&mm1&" and day(WS_SchEduleMainFirstTime)>='"&dd1&"'))"
       Orderby=Orderby&" and (year(WS_SchEduleMainLastTime)<"&yy2&" or (year(WS_SchEduleMainLastTime)="&yy2&" and month(WS_SchEduleMainLastTime)<"&mm2&") or (year(WS_SchEduleMainLastTime)="&yy2&" and month(WS_SchEduleMainLastTime)="&mm2&" and day(WS_SchEduleMainLastTime)<='"&dd2&"'))"
    end if
    if request("name")<>"" then
         if request("name")=Loginuid then
              Orderby=Orderby&" and WS_SchEduleMainMan="&request("name")
         else
              Orderby=Orderby&" and WS_SchEduleMainMan="&request("name")&" and WS_SchEduleMainexpose='公开'"
         end if
      end if
    if request("important")<>"" then
       Orderby=Orderby&" and WS_SchEduleMainImportant='"&request("important")&"'"
    end if
    if request("sort")<>"" then
       Orderby=Orderby&" and WS_SSID="&request("sort")
    end if
   if request("title")<>"" then
       Orderby=Orderby&" and WS_SchEduleMainTitle like '%"&request("title")&"%'"
    end if
set rs=WS_S.HX_SetRSD(ColumnName,Tablename1,Orderby)
if rs.recordcount<=0 then
response.Write "<tr><td colspan=5 bgcolor=FFFBE8 height=25 align=center>暂无记录！</td></tr>"
else
 rs.PageSize =15 '每页记录条数
	iCount=rs.RecordCount '记录总数
	iPageSize=rs.PageSize
    	maxpage=rs.PageCount 
    	page=request("page")
    
    if Not IsNumeric(page) or page="" then
        page=1
    else
        page=cint(page)
    end if
    if page<1 then
        page=1
    elseif  page>maxpage then
        page=maxpage
    end if
    rs.AbsolutePage=Page
	if page=maxpage then
		x=iCount-(maxpage-1)*iPageSize
	else
		x=iPageSize
	end if
	ii=0
	do while not rs.EOF
	response.write "<tr bgcolor='#FFFBE8' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#FFFBE8'><td width='7%' height='23'>"
	if WS_S.HX_IsNum(rs("WS_SMID")) then response.write rs("WS_SMID")
	response.write "</td><td width='8%' height='23'>"
	Call WS_S.HX_OutUserInfo(rs("WS_SchEduleMainman")):response.Write OutName&"</td><td width='19%' height='23'>"&formatdatetime(rs("WS_SchEduleMainFirstTime"),2)&"</td><td width='21%' height='23' >"&formatdatetime(rs("WS_SchEduleMainLastTime"),2)&"</td><td width='31%' height='23' ><font title='内容预览："&left(rs("WS_SchEduleMainMemo"),100)&"' >&nbsp;<a href='SchEduleModify.asp?WS_SMID="&rs("WS_SMID")&"'><font color='#431E07'>"&left(rs("WS_SchEduleMainTitle"),30)&"</font></a></font>"
	Orderby=" where WS_SMID="&rs("WS_SMID")
     set prs=WS_S.HX_SetRSD(ColumnName,Tablename1,Orderby)
     if prs.recordcount>0 then response.Write "<img src='../HXimages/add.gif' width='9' height='9' alt='有追加内容'>" 
     response.write "<font color=red>("&rs("WS_SchEduleMainSituation")&")</font></td></tr>"
	 ii=ii+1
   if ii>=rs.PageSize then Exit Do
   rs.movenext
   loop
   call WS_S.PageControl(iCount,maxpage,page,"border=0 align=right","<p align=right>",5)
  end if
  call WS_S.HX_RSClose(prs):call WS_S.HX_RSClose(rs)
  response.write "</table></td></tr></table>"
case else
  response.write "<table width='500'  border='0' cellspacing='1' cellpadding='0' align=center bgcolor='#613c25'><tr><td colspan='2' bgcolor=FFFBE8 background='../hximages/titlelinebg.gif'><table width='580'  border='0' cellspacing='0' cellpadding='0'><tr><td height='25' background='../hximages/titleline.gif'><font class='fontmenu'>日程检索</font></td></tr></table><table width='100%'  border='0' cellspacing='1' cellpadding='3' bgcolor=FFFBE8><form name='form1' method='get' action='SchEduleSearch.asp?action=search'><tr bgcolor='#FFFBE8'><td width='14%'>开始时间</td><td width='86%' height='30'><input type='checkbox' name='selectdate' value='ON' class='radio' id='selectdate'><label for='selectdate'>选择</font></label><select name='yy1' classname='5'  size='1'>"
    for i=year(date)-5 to year(date)
     response.write "<option value='"&i&"'"
      if i=year(date) then response.write " selected"
      response.write ">"&i&"</option>"
    next
      response.write "</select>年<select name='mm1' classname='5' size='1'>"
   for i=1 to 12
   response.write "<option value='"&i&"'"
   if i=month(date) then response.write " selected"
   response.write ">"&i&"</option>"
   next
   response.write "</select>月<select name='dd1' classname='5' size='1'>"
   for i=1 to 31
    response.write "<option value='"&i&"'"
     if i=day(date) then response.write " selected"
     response.write ">"&i&"</option>"
   next
   response.write "</select>日-<select name='yy2' classname='5' size='1'>"
  for i=year(date) to year(date)+5 
   response.write "<option value='"&i&"'"
  if i=year(date) then response.write " selected"
   response.write ">"&i&"</option>"
  next
 response.write "</select>年<select name='mm2' classname='5'  size='1'>"
 for i=1 to 12
 response.write "<option value='"&i&"'"
 if i=month(date) then response.write " selected"
   response.write ">"&i&"</option>"
  next
 response.write "</select>月<select name='dd2' classname='5'  size='1'>"
 for i=1 to 31
 response.write "<option value='"&i&"'"
 if i=day(date) then response.write " selected"
   response.write ">"&i&"</option>"
 next
 response.write "</select>日 </td></tr><tr bgcolor=FFFBE8><td width='14%'>重 要 度</td><td width='86%' height='30'><select name='important'><option value=''>未选</option><option value='未指定'>未指定</option><option value='高'>高</option><option value='中'>中</option><option value='低'>低</option></select></td></tr><tr bgcolor=FFFBE8><td width='14%' height='29'>类　　别</td><td width='86%' height='29'><select name='sort'><option value=''>未选</option>"
Orderby=" order by WS_OrderBy asc"
set rs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)
if rs.recordcount>0 then
do until rs.eof
response.write "<option value='"&rs("WS_SEID")&"'>"&rs("WS_SchEduleSortName")&"</option>"
rs.movenext
loop
end if
call WS_S.HX_RSClose(rs) 
response.write "</select></td></tr><tr bgcolor=FFFBE8><td width='14%'>任务主题</td><td width='86%' height='30'><input name='title' type='text' size='45'></td></tr><tr bgcolor=FFFBE8><td width='14%'> 撰 写 人</td><td width='86%' height='30'>"
set rs=WS_S.HX_SetRSD("distinct WS_SchEduleMainman",Tablename1,"")
response.Write "<select name='name'><option value=''>未选</option>"
 if rs.recordcount>0 then
 do until rs.eof 
response.write "<option value='"&rs(0)&"'>"
Call WS_S.HX_OutUserInfo(rs(0)):response.Write OutName&"</option>"
rs.movenext
loop
end if
response.write "</select></td></tr><tr bgcolor=FFFBE8><td width='14%'>&nbsp;</td><td width='86%' height='30'><input type='submit' name='Submit' value=' 搜 索 '></td></tr></form>"
call WS_S.HX_RSClose(rs)
response.Write "</table></td></tr></table>"
end select%>