📄 plandepartments.inc
字号:
<%
'************************************************************************************************
' 函数名 : TableSearch()
' 输 入 :
' 输 出 : 一张用于查询工作计划的表单，包括查询的条件和查询按钮
' 功能描述:
' 调用模块: plandepartments.asp
' 作 者 : 蔡晓燕
' 日 期 : 2002-06-14
' 版 本 :
'************************************************************************************************
Function TableSearch()
'' 计划分类，1为月度计划表，2为季度计划表，3为年度计划表
'' 年份从2002到2102年，缺省值为当年
'' 月份从1到12月，缺省值为当月
'' 季度从1到4
TableSearch = _
TableTitle("设置查询条件", 600, "", "") & _
"<table cellspacing=0 cellpadding=0 width=600 align=center border=0>" & _
"<form name=""frmSearchPlan"" method=post action=""plandepartments.asp"">" & _
"<tr height=30>" & _
" <td width=200>类型：<select name=""type"" style=""width:86px"">" & _
" <option value=1>月度</option>" & _
" <option value=2>季度</option>" & _
" <option value=3>年度</option>" & _
" </select>" & _
" <script language=""javascript"">document.all.type.selectedIndex=" & (iType-1)& "</script>" & _
" </td>" & _
" <td width=200>年份：<select name=""of_year"" style=""width:86px"">" & _
" <option value=2002>2002年</option>" & _
" <option value=2003>2003年</option>" & _
" <option value=2004>2004年</option>" & _
" <option value=2005>2005年</option>" & _
" <option value=2006>2006年</option>" & _
" <option value=2007>2007年</option>" & _
" <option value=2008>2008年</option>" & _
" <option value=2009>2009年</option>" & _
" <option value=2010>2010年</option>" & _
" </select>" & _
" <script language=""javascript"">document.all.of_year.selectedIndex=" & (iOf_year-2002) & "</script>" & _
" </td>" & _
" <td width=200>部门：<select name=""node"" style=""width:86px"">"
'第一次进入本页面的时候，iDepartmentId = 0(缺省值)，使部门下拉列表选项选中值为空
if iDepartmentId = 0 then TableSearch = TableSearch & "<option value=0 selected>请选择部门 </option>"
TableSearch = TableSearch & OwnerLevel2DepartmentSelectOptions(iDepartmentId) & _
" </select>" & _
" </td>" & _
"<tr height=30>" & _
" <td width=200>季度：<select name=""of_season"" "
if iType <> 2 then
TableSearch = TableSearch & "disabled=true"
else
TableSearch = TableSearch & "enabled=true"
end if
TableSearch = TableSearch & " style=""width:86px"">" & _
" <option value=1>第1季度</option>" & _
" <option value=2>第2季度</option>" & _
" <option value=3>第3季度</option>" & _
" <option value=4>第4季度</option>" & _
" </select>" & _
" <script language=""javascript"">document.all.of_season.selectedIndex=" & (iOf_season-1) & _
" </script>" & _
" </td>" & _
" <td width=200>月份：<select name=""of_month"" "
if iType <> 1 then
TableSearch = TableSearch & "disabled=true"
else
TableSearch = TableSearch & "enabled=true"
end if
TableSearch = TableSearch & "style=""width:86px"">" & _
" <option value=1>1月份</option>" & _
" <option value=2>2月份</option>" & _
" <option value=3>3月份</option>" & _
" <option value=4>4月份</option>" & _
" <option value=5>5月份</option>" & _
" <option value=6>6月份</option>" & _
" <option value=7>7月份</option>" & _
" <option value=8>8月份</option>" & _
" <option value=9>9月份</option>" & _
" <option value=10>10月份</option>" & _
" <option value=11>11月份</option>" & _
" <option value=12>12月份</option>" & _
" </select>" & _
" <script language=""javascript"">document.all.of_month.selectedIndex=" & (iOf_month-1) & "</script>" & _
" <input type=hidden name=formAction value=""quetype"">" & _
" </td>" & _
" <td width=200><span id=btnSearch style=""cursor:hand"" title=""设置查询条件，然后点击查询按钮进行查询""><img border=0 src=""../images/search.gif"" style=""vertical-align:middle"">查询</span></td></tr>" & _
"<tr height=10><td colspan=3 width=600> </td></tr>" & _
"</form>" & _
"</table>"
End Function
'************************************************************************************************
' 函数名 : MonthTableHeader()
' 输 入 :
' 输 出 : 月度工作计划表的表头显示
' 功能描述:
' 调用模块: plandepartments.asp
' 作 者 : 蔡晓燕
' 日 期 : 2002-06-14
' 版 本 :
'************************************************************************************************
Function MonthTableHeader()
'-----------------------------------------------------------------------------
'月度工作计划表的表头
'------------------------------------------------------------------------------
Response.Write TableTitle(iOf_year & "年" & iOf_month & "月" &"的月度工作计划表", 600, "", "#0040a0")
MonthTableHeader = _
"<table cellspacing=0 cellpadding=0 width=600 align=center class=tablelist>" & _
"<tr>" & _
"<td class=tdHead width=40 align =center>序号</td>" & _
"<td class=tdHead width=180> " & TableHeaderField(sFileName, "content", "本月计划完成的主要工作", sFormParams, iSort, iSorted) & "</td>" & _
"<td class=tdHead width=160> " & TableHeaderField(sFileName, "target", "实施目标和措施", sFormParams, iSort, iSorted) & "</td>" & _
"<td class=tdHead width=80 > " & TableHeaderField(sFileName, "progress", "完成进度", sFormParams, iSort, iSorted) & "</td>" & _
"<td class=tdHead width=80 valign=middle > " & TableHeaderField(sFileName, "handler", "责任人", sFormParams, iSort, iSorted) & "</td>" & _
"<td class=tdHead width=60> " & TableHeaderField(sFileName, "memo", "备注", sFormParams, iSort, iSorted) & "</td>" & _
"</tr>"
End Function
'************************************************************************************************
' 函数名 : YearTableHeader()
' 输 入 :
' 输 出 : 年度工作计划表的表头显示
' 功能描述:
' 调用模块: plandepartments.asp
' 作 者 : 蔡晓燕
' 日 期 : 2002-06-14
' 版 本 :
'************************************************************************************************
Function YearTableHeader()
'-----------------------------------------------------------------------------
'年度工作计划表的表头
'------------------------------------------------------------------------------
Response.Write TableTitle(iOf_year & "年" &"的年度工作计划表", 600, "", "#0040a0")
YearTableHeader = _
"<table cellspacing=0 cellpadding=0 width=600 align=center class=tablelist>" & _
"<tr>" & _
"<td class=tdHead width=40 align =center>序号</td>" & _
"<td class=tdHead width=180> " & TableHeaderField(sFileName, "content", "本年度计划完成的主要工作", sFormParams, iSort, iSorted) & "</td>" & _
"<td class=tdHead width=160> " & TableHeaderField(sFileName, "target", "实施目标和措施", sFormParams, iSort, iSorted) & "</td>" & _
"<td class=tdHead width=80 > " & TableHeaderField(sFileName, "progress", "完成进度", sFormParams, iSort, iSorted) & "</td>" & _
"<td class=tdHead width=80 valign=middle > " & TableHeaderField(sFileName, "handler", "责任人", sFormParams, iSort, iSorted) & "</td>" & _
"<td class=tdHead width=60> " & TableHeaderField(sFileName, "memo", "备注", sFormParams, iSort, iSorted) & "</td>" & _
"</tr>"
End Function
'************************************************************************************************
' 函数名 : SeasonTableHeader()
' 输 入 :
' 输 出 : 季度工作计划表的表头显示
' 功能描述:
' 调用模块: plandepartments.asp
' 作 者 : 蔡晓燕
' 日 期 : 2002-06-14
' 版 本 :
'************************************************************************************************
Function SeasonTableHeader()
'-----------------------------------------------------------------------------
'季度工作计划表的表头
'------------------------------------------------------------------------------
Response.Write TableTitle(iOf_year & "年第" & iOf_season & "季度" &"的季度工作计划表", 600, "", "#0040a0")
SeasonTableHeader = _
"<table cellspacing=0 cellpadding=0 width=600 align=center class=tablelist>" & _
"<tr>" & _
"<td class=tdHead width=40 align =center>序号</td>" & _
"<td class=tdHead width=180> " & TableHeaderField(sFileName, "content", "本季度计划完成的主要工作", sFormParams, iSort, iSorted) & "</td>" & _
"<td class=tdHead width=160> " & TableHeaderField(sFileName, "target", "实施目标和措施", sFormParams, iSort, iSorted) & "</td>" & _
"<td class=tdHead width=80 > " & TableHeaderField(sFileName, "progress", "完成进度", sFormParams, iSort, iSorted) & "</td>" & _
"<td class=tdHead width=80 valign=middle > " & TableHeaderField(sFileName, "handler", "责任人", sFormParams, iSort, iSorted) & "</td>" & _
"<td class=tdHead width=60> " & TableHeaderField(sFileName, "memo", "备注", sFormParams, iSort, iSorted) & "</td>" & _
"</tr>"
End Function
'************************************************************************************************
' 函数名 : TableRecords(sSQL, iCols, iRecordsPerPage, iTotalRecords, iCurrentPage, iTotalPages,
' sFileName, sFormParams, sSortParams)
' 输 入 : 查询语句，栏目数量，每页记录条数，总记录条数，当前页码，总页数，文件名，查询表单参数，排序参数
' 输 出 : 一张工作计划表的内容部分
' 功能描述:
' 调用模块: plandepartments.asp
' 作 者 : 蔡晓燕
' 日 期 : 2002-06-14
' 版 本 :
'************************************************************************************************
Function TableRecords(sSQL, iCols, iRecordsPerPage, iTotalRecords, iCurrentPage, iTotalPages, sFileName, sFormParams, sSortParams)
dim sTemp : sTemp = "" ' 临时字符串变量
dim j ' 临时循环变量
'------------------------------------
' 分页所需的变量定义
'------------------------------------
Dim iCounter : iCounter = 1
Dim iPrevPage, iNextPage
'------------------------------------
' 获取数据库连接
'------------------------------------
dim crs : set crs = New CRecordset
dim rs : set rs = crs.open(dbLocal,sSQL)
dim sContent, sTarget, sProgress, sHandler, sMemo, iSerial, iPlanSerial
dim iTemp : iTemp = 0
' 如果未到记录尾，将记录定位到你翻到的页面的第一个记录，否则显示空行
if Not rs.EOF then
' response.write iCurrentPage & "*" & iRecordsPerPage & "<br>" : response.end
rs.Move (iCurrentPage - 1) * iRecordsPerPage
iTemp = (iCurrentPage - 1) * iRecordsPerPage
end if
while not rs.EOF and iCounter <= iRecordsPerPage
sContent = crs.GetValue("content")
sTarget = crs.GetValue("target")
sProgress = crs.GetValue("progress")
sHandler = crs.GetValue("handler")
sMemo = crs.GetValue("memo")
iSerial = crs.GetValue("serial")
iPlanSerial = crs.GetValue("plan_serial")
iTemp = iTemp + 1
sTemp = sTemp & "<tr>" & _
"<td class=tdlist width=40 align=center> " & iTemp & "</td>" & _
"<td class=tdlist width=180> " & ToHTML(sContent) & " </td>" & _
"<td class=tdlist width=160> " & ToHTML(sTarget) & " </td>" & _
"<td class=tdlist width=80 > " & ToHTML(sProgress) & "</td>" & _
"<td class=tdlist width=80 > " & ToHTML(sHandler)& " </td>" & _
"<td class=tdlist width=60 > " & ToHTML(sMemo) & " </td>" & _
"</tr>"
iCounter = iCounter + 1
rs.movenext
wend
crs.Close()
' 填补空白行
sTemp = sTemp & WhiteRows(iCols, iCounter, iRecordsPerPage)
' 首页、前页、后页、尾页等分页信息
sTemp = sTemp & "<tr><td class=tdlist colspan=" & iCols & " align=right>" & _
Paginate(sFileName, sFormParams, sSortParams, iCurrentPage, iTotalPages) & _
" </td></tr>"
TableRecords = sTemp&"</table>"
End Function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -