📄 work_daiban.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../../config.asp"-->
<!--#include file="../checklogin.asp"-->
<!--#include file="../../inc/navigate.asp"-->
<%
dim sPageNavigate '分页表格
dim iRecordCount,iMaxPageCount,iPageCount,iCurrentPageIndex,i,sTMP '分页
iMaxPageCount=20 '一页多少行记录
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>我的待办任务</title>
<link href="../img/css1.css" type=text/css rel=stylesheet>
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
.style1 {color: #FFFFFF}
.style3 {color: #FFFFFF; font-weight: bold; }
-->
</style>
</head>
<body>
<form name="form1" method="post" action="work_daiban.asp">
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#F2F2F2" class="tabel1">
<tr align="right">
<td width="11%" height="25" align="left" bgcolor="#CC0000"><span class="style3">我的待办任务 </span></td>
<td height="25" colspan="5" bgcolor="#CC0000"> </td>
</tr>
<tr bgcolor="#F9F9F9">
<td colspan="6" align="left" bgcolor="#F2F2F2"> </td>
</tr>
<tr bgcolor="#CC6633">
<td height="25" align="center"><span class="style1"></span> <span class="style3">重要度 </span></td>
<td width="32%" height="25" align="center"><span class="style3">任务标题</span><span class="style3"></span></td>
<td width="14%" align="center"><span class="style1"><strong>任务分派人</strong></span></td>
<td align="center"><span class="style3"> 分派日期 </span></td>
<td align="center"> <span class="style3"> 任务结束日期</span></td>
<td align="center"><span class="style1"><strong>点击完成</strong></span></td>
</tr>
<tr >
<td height="5" colspan="6" bgcolor="#666666"></td>
</tr>
<%
'我的代办任务
Sql="select id,uid,uname,work_title,work_import,work_time,work_time1,work_time2 from oa_work where work_name="&session("adminid")&" order by id desc"
Call GetCurrentPageIndex() '取得当前页码
set my_rs=server.CreateObject("adodb.recordset")
my_rs.open Sql,conn,1,3
my_rs.PageSize=iMaxPageCount
my_rs.CacheSize =iMaxPageCount
if my_rs.recordCount <> 0 then my_rs.Absolutepage=iCurrentPageIndex
iRecordCount=my_rs.RecordCount '所有查询出来的记录数
iPageCount=my_rs.PageCount '最终多少页
if iCurrentPageIndex>iPageCount then iCurrentPageIndex=iPageCount '控制当前页不得超出范围
sPageNavigate=GetNavigate("work_daiban.asp",iRecordCount,iMaxPageCount,iCurrentPageIndex,true,true,"项") '取得分页表格
if Not my_rs.Eof then
For i = 1 to iMaxPageCount '利用for next 循环依次读出当前页的记录
if my_rs.EOF then Exit For
bgColor="#F8F8F8"
if i mod 2=0 then bgColor="#DFEFFF"
%>
<tr bgcolor="<%=bgColor%>">
<td height="25" align="center"><%=my_rs(4)%> </td>
<td height="25" align="center"><a href="view_work.asp?id=<%=my_rs(0)%>"><%=my_rs(3)%></a> </td>
<td height="25" align="center"><%=my_rs(2)%></td>
<td width="18%" align="center"><%=my_rs(5)%></td>
<td width="16%" align="center"><%=my_rs(7)%></td>
<td width="9%" align="center"><a href="view_work.asp?id=<%=my_rs(0)%>">完成</a></td>
</tr>
<%
my_rs.MoveNext()
Next
End if
my_rs.close
set my_rs=nothing
%>
</table>
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="20"> </td>
</tr>
<tr>
<td height="20"><%=sPageNavigate%></td>
</tr>
</table>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -