📄 allschedule.asp
字号:
<!--#include file="../config.ini" -->
<!--#include file="../commfunction.inc" -->
<%
dim conn
dim rs
set conn=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.recordset")
conn.Open connstring
if Request("strfield")<>"" and Request("strfield")<>"warn" and Request("strfield")<>"uncomplete" and Request("strfield")<>"today" then
if Request("strfield")<>"ScheduleDate" then
strwhere=" and (AssignedTo='"&session("loginid")&"' or Creator='"&Session("loginid")&"') and "&request("strfield")&" like '%"&request("strvalue")&"%'"
else
strwhere=" and (AssignedTo='"&session("loginid")&"' or Creator='"&Session("loginid")&"') and "&request("strfield")&"='"&request("strvalue")&"'"
end if
end if
if Request.form("strfield")<>"" and Request("strfield")<>"warn" and Request("strfield")<>"uncomplete" and Request("strfield")<>"today" then
if Request.Form("strfield")<>"ScheduleDate" then
strwhere=" and (AssignedTo='"&session("loginid")&"' or Creator='"&Session("loginid")&"') and "&request("strfield")&" like '%"&request.form("strvalue")&"%'"
else
strwhere=" and (AssignedTo='"&session("loginid")&"' or Creator='"&Session("loginid")&"') and "&request("strfield")&"='"&request.form("strvalue")&"'"
end if
end if
if Request.QueryString("orderbyfield")<>"" then
'排序字段改变返回第一页
if session("orderbyfield")<>Request.QueryString("orderbyfield") then
tofirstpage=true
else
tofirstpage=false
end if
'翻页时保持排序方式，不翻页循环改变升序/降序
if request("turnpage")="" then
if request("orderby")="" or request("orderby")="desc" then
session("orderby")="asc"
else
session("orderby")="desc"
end if
strwhere=strwhere & " order by "&Request.QueryString("orderbyfield")&" "&session("orderby")
else
if request("orderbyfield")<>"" then
strwhere=strwhere & " order by "&Request.QueryString("orderbyfield")&" "&session("orderby")
end if
end if
'保存当前排序字段
session("orderbyfield")=Request.QueryString("orderbyfield")
else
strwhere=strwhere & " order by createdate desc"
end if
rs.Open "select * from v_schedule where (creator='"&session("loginid")&"' or creator in(select userid from v_userreportto_all where reportto='"&session("loginid")&"'))"&strwhere,conn,1,1
'搜索时用
selecttablename="v_schedule where (creator='"&session("loginid")&"' or creator in(select userid from v_userreportto_all where reportto='"&session("loginid")&"'))"
if Request.QueryString("CurPage") = "" or Request("CurPage") = 0 or tofirstpage=true then
CurPage = 1
else
CurPage = cint(Request.QueryString("CurPage"))
end If
if not Rs.eof then
Rs.PageSize=session("PageSize")
Rs.AbsolutePage=CurPage
else
CurPage=0
end if
%>
<html>
<head>
<LINK href="../global.css" rel=STYLESHEET type=text/css>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>日程</title>
</head>
<SCRIPT language=JavaScript>
function relativeinput_onchange()
{
if (form1.strfield.value=='ScheduleDate'){
dateformat.style.display='block';
}
if (form1.strfield.value!='ScheduleDate'){
dateformat.style.display='none';
}
if (form1.strfield.value=="uncomplete"||form1.strfield.value=="warn"){
dispvalue1.style.display='none';
dispvalue2.style.display='none';
}
else{
dispvalue1.style.display='block';
dispvalue2.style.display='block';
}
if (form1.strfield.value=="TaskType"){
strvalue1.style.display='none';
strvalue2.style.display='block';
strvalue3.style.display='none';
form1.strvalue1.value="";
form1.strvalue3.value="";
}
if (form1.strfield.value!="TaskType"&&form1.strfield.value!="UserName"){
strvalue1.style.display='block';
strvalue2.style.display='none';
strvalue3.style.display='none';
form1.strvalue2.value="";
form1.strvalue3.value="";
}
if (form1.strfield.value=="UserName"){
strvalue1.style.display='none';
strvalue2.style.display='none';
strvalue3.style.display='block';
form1.strvalue1.value="";
form1.strvalue2.value="";
}
if (form1.strfield.value!='ScheduleDate'){
form1.submit();
}
}
function GetStrValue()
{
if (form1.strfield.value!="TaskType"&&form1.strfield.value!="UserName"){
form1.strvalue.value=form1.strvalue1.value;
}
if (form1.strfield.value=="TaskType"){
form1.strvalue.value=form1.strvalue2.value;
}
if (form1.strfield.value=="UserName"){
form1.strvalue.value=form1.strvalue3.value;
}
if (form1.strfield.value=='ScheduleDate'){
if(form1.strvalue.value==""){
alert("请输入搜索日期!");
return false;
}
if(CheckDate(document.form1.strvalue.value)){
alert("请输入正确格式的日期!");
return false;
}
}
form1.submit();
}
</SCRIPT>
<body leftmargin="10" topmargin="10">
<form name="form1" method="post" action="allschedule.asp" onsubmit="return GetStrValue();">
<table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="10%">
<select name="strfield" onchange="relativeinput_onchange();">
<option value=uncomplete <%if request("strfield")="uncomplete" or request("type")="today" then Response.Write "selected"%>>未完成日程</option>
<option value=warn <%if request("strfield")="warn" or request("type")="warn" then Response.Write "selected"%>>提醒日程</option>
<option value=schedule <%if request("strfield")="schedule" then Response.Write "selected"%>>主题</option>
<option value=TaskType <%if request("strfield")="TaskType" then Response.Write "selected"%>>类型</option>
<option value=UserName <%if request("strfield")="UserName" then Response.Write "selected"%>>待做者</option>
<option value=ScheduleDate <%if request("strfield")="ScheduleDate" then Response.Write "selected"%>>日期</option>
<option value=Account <%if request("strfield")="Account" then Response.Write "selected"%>>客户</option>
</select></td>
<td width="18%" id=dispvalue1 <%if request("strfield")<>"uncomplete" and request("strfield")<>"warn" and request("type")<>"today" and request("type")<>"warn" then response.write "style=display:block" else response.write "style=display:none" end if%>>
<div id=strvalue1 <%if request("strfield")<>"TaskType" and request("strfield")<>"UserName" or request("strfield")="" then response.write "style=display:block" else response.write "style=display:none" end if%>>
<input type="text" name="strvalue1" value="<%=request("strvalue1")%>">
</div>
<div id=strvalue2 <%if request("strfield")="TaskType" then response.write "style=display:block" else response.write "style=display:none" end if%>>
<select name="strvalue2" class="stedit">
<option value="">--请选择日程类型--</option>
<%getgrouptype selecttablename,"TaskType",request("strvalue2")%>
</select></div>
<div id=strvalue3 <%if request("strfield")="UserName" then response.write "style=display:block" else response.write "style=display:none" end if%>>
<select name="strvalue3" class="stedit">
<option value="">--请选择待做者--</option>
<%getgrouptype selecttablename,"UserName",request("strvalue3")%>
</select></div>
</td>
<td width="8%" id=dispvalue2 <%if request("strfield")<>"uncomplete" and request("strfield")<>"warn" and request("type")<>"today" and request("type")<>"warn" then response.write "style=display:block" else response.write "style=display:none" end if%>>
<input type=hidden name="strvalue" value="<%=request("strvalue")%>" >
<input type=image src="../images/button_submit.gif" style="cursor:hand" border=0>
</td>
<td>
<%
if CurPage<=1 then
Response.Write "<a href='allschedule.asp?turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage=1'><img src='../images/button_start.gif' border=0></a> "
else
Response.Write "<a href='allschedule.asp?turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage=1'><img src='../images/button_start.gif' border=0></a> "
Response.Write "<a href='allschedule.asp?turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage="&CurPage-1&"'><img src='../images/button_backward.gif' border=0></a> "
end if
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -