📄 schedulesearch.asp
字号:
<!--#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='#115F8F'><tr><td colspan='2' bgcolor=ffffff 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=f1f1f1><tr bgcolor='A1BBE0'><td width='7%' height='23'><div align='center'><font color='#FFFFFF'>编号</font></div></td><td width='8%' height='23'><div align='center'><font color='#FFFFFF'>撰写</font></div></td><td width='19%' height='23'><div align='center'><font color='#FFFFFF'>开始时间</font></div></td><td width='21%' height='23'><div align='center'><font color='#FFFFFF'>结束时间</font></div></td><td width='31%' height='23'><div align='center'><font color='#FFFFFF'>任务主题</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=ffffff 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='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'><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)&"' > <a href='SchEduleModify.asp?WS_SMID="&rs("WS_SMID")&"'><font color='#00319C'>"&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='#115F8F'><tr><td colspan='2' bgcolor=ffffff 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=f1f1f1><form name='form1' method='get' action='SchEduleSearch.asp?action=search'><tr bgcolor='#ffffff'><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=ffffff><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=ffffff><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=ffffff><td width='14%'>任务主题</td><td width='86%' height='30'><input name='title' type='text' size='45'></td></tr><tr bgcolor=ffffff><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=ffffff><td width='14%'> </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%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -