displaycheckfile.asp

来自「OFFICE办公自动化」· ASP 代码 · 共 145 行

ASP
145 行
字号 
<%
'文件名：displaycheckfile.asp
'作者：展亮
'功能：待办公文列表
'参数：
'开发时间：2003-11-2 20:53
%>
<!--#include file="../inc/Secure.asp"-->
<!--#include File ="../workflow/doflow.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<%
oabusyusername=Session("LoginName")
'-----------------------------------------------------
%>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css/main.css" type=text/css>
<title>main</title>
</head>
<center>
<table>
<tr>
<td><b><font color="#3F608F">待办公文清单</font></b></td>
<td>
<font color="#3F608F">
<input type="button" name="printit" value="打印" onclick="window.print();">
</font>
</td>
</tr>
</table>
</center>

<br>
<center>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from workflow_check_rec where checkusername='" & cString(oabusyusername) & "' order by id desc"
'Response.Write sql
rs.open sql,oConn,1
if not rs.eof and not rs.bof then
%>
<table width="90%" cellspacing="1" cellpadding="2" class="tab">
<tr class="tdTop">
<td align=center>表单名称</td>
<td align=center>申请人</td>
<td align=center>申请时间</td>
<td align=center>流程名称</td>
<td align=center>状态</td>
</tr>
<%
rs.pagesize=30
page=clng(request("page"))
if page<1 then page=1
if page>rs.pagecount then page=rs.pagecount
href="displaycheckfile.asp"
rs.absolutepage=page

for ipage=1 to rs.pagesize
  id=rs("id")
  date_id=rs("date_id")
  flow_name=rs("flow_name")
  flow_no=rs("flow_no")
  ifcheck=rs("ifcheck")
  ifagree=rs("ifagree")
  if ifcheck="yes" then
    if ifagree="yes" then
      checkstate="同意"
    else
      checkstate="不同意"
    end if
  else
    checkstate="待处理"
  end if
  ifsee=rs("ifsee")
  newword=""
  if ifsee="no" then
    newword="(<font color=red>新</font>)"
  end if
  set rs1=server.createobject("adodb.recordset")
  sql="select * from workflow_date_id where date_id=" & date_id
  rs1.open sql,oConn,1
  if not rs1.eof and not rs1.bof then
    form_name=rs1("form_name")
    name=rs1("name")
    inputdate=rs1("inputdate")
  end if
  if ipage mod 2 = 0 then td_class="td1" else td_class="td2"
%>
  <tr>
  <td class="<%=td_class%>" align="center"><%=newword%><a href="displaydate_id_check.asp?id=<%=id%>&date_id=<%=date_id%>&flow_name=<%=flow_name%>&flow_no=<%=flow_no%>&page=<%=page%>"><%=form_name%></a>　</td>
  <td class="<%=td_class%>" align="center"><%=name%>　</td>
  <td class="<%=td_class%>" align="center"><%=inputdate%>　</td>
  <td class="<%=td_class%>" align="center"><%=flow_name%>　</td>
  <td class="<%=td_class%>" align="center"><%=checkstate%>　</td>
  </tr>
  <%
  rs.movenext
  if rs.eof then exit for
next
%>
</table>
<table border=0 width="90%">
<tr><form action=<%=href%> method=get>
<td align="center">
<%
response.write "<a href=" & href & "?page=1>第一页</a>"
%>
</td>
<td align="center">
<%
response.write "<a href=" & href & "?page=" & (page-1) & ">上一页</a>"
%>
</td>
<td align="center">
<%
response.write "<a href=" & href & "?page=" & (page+1) & ">下一页</a>"
%>
</td>
<td align="center">
<%
response.write "<a href=" & href & "?page=" & rs.pagecount & ">最后一页</a>"
%>
</td>
<td align="center">
<font color="#3F608F">
去第<input type=text name=page size=3>页</font></td>
<td align="center"><font color="#3F608F">第<%=page%>/<%=rs.pagecount%>页</font></td></form></tr></table><br>

<%
else
%>
<br><br><br>
<font color=red size=3>没有记录！</font>
<% 
end if 
rs.close 
set rs=nothing 
set conn=nothing 
%> 
 
 
</center>

displaycheckfile.asp - 源码说明

本页面展示了「OFFICE办公自动化」中的 displaycheckfile.asp 源码文件，采用 ASP 编程语言编写，共 145 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与Office自动化相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?