📄 document_gwbl_list.asp
字号:
<%
'功能：公文办理列表
'作者：展亮
'日期：2004-6-5 11:05
%>
<!--#include file="../inc/NoCatch.asp"-->
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<%
'------------------------------------------------设置参数
LoginID=trim(session("LoginID")) : if LoginID="" then LoginID=0 '当前用户ID
maxmessage=15 '每页显示记录数
currentpage=request("page") '当前页码
Search=request("Search") '上次查询条件
'------------------------------------------------
'------------------------------------------------取记录
'分页取记录 （返回rs对象）
'
table="vioaOffice_Document_Bl" '表名
'接受查询参数
'查寻条件
if Search="" then
Search="WHERE "
Search=Search & "((BLBZ = 'N') OR ((BLBZ = 'Y') AND (XGBZ <> '0'))) AND " '*流转中的可修改公文*
Search=Search & "(EXISTS(SELECT UserID FROM tbioaOffice_Bldlr WHERE SortID = DC_Doc_Sort AND UserID = blr AND DlrID ="&LoginID&") OR (blr ="&LoginID&" and DC_Doc_Sort not in (select SortID from tbioaOffice_Bldlr WHERE UserID ="&LoginID&"))) AND " '判断不显示指定代理人的公文 '判断显示别人指定我为代理人的公文
Search=Search & "(Step<>'CX' or (Step='CX' and cxblxh=blxh)) AND " '撤销标志为未撤销
Search=Search & "Step<>'GD' AND " '不是待归档
Search=Search & "Step<>'YG'" '未归档
END if
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select documentid, RecordID, Status, LockUserID, LockTime, Author, PSend_Dept, FileDate, DocMod, Subject, DocFileNo, DC_Doc_Sort, DC_Doc_Security, DC_Doc_Exigence, Step, BLXH, BLR, GZDBH, GZDXH, BLBZ from " & table & " " & Search & " order by BLBZ asc, DocumentID desc, BLXH desc"
'response.write sql
rs.open sql,oConn,1,1
Showpage=Paging(rs,maxmessage,currentpage,"Search="&Server.URLEncode(Search))
'------------------------------------------------
%>
<html>
<head>
<title>公文办理列表</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel='stylesheet' type='text/css' href='../css/main.css'>
<style type="text/css">
<!--
.style1 {color: #FF0000}
-->
</style>
<SCRIPT language=javascript>
function WindowOpen(strURL){
DocumentWin = window.open(strURL,"","toolbar=no,menubar=no,scrollbars=yes,resizable=yes,location=no,status=no");
DocumentWin.focus();
}
</SCRIPT>
</head>
<body topmargin="10" leftmargin="10">
<table width=98% class=tabletoolbar border=0 align=center>
<tr valign=center><td align=left nowrap><img src="../images/icon_title.gif" align="absmiddle"> 公文办理 <span class="style1">(在打开本页面的弹出窗口时,选择[是]按钮,才能正常运行。)</span></td>
<td align=right valign=bottom nowrap>
<input type=button class="button0" onmouseout=className="button0" onmouseover=className="button1" value="指定代理人" id=button1 name=button1 onclick="javascript:location.href='Document_Gwbl_Dlr_List.asp';">
</td></tr>
</table>
<hr width="100%" size=1 color="#000000">
<br>
<OBJECT style="display:none" id="WebOffice" width="100%" height="24" classid="clsid:23739A7E-5741-4D1C-88D5-D50B18F7C347" codebase="iWebOffice2003.ocx#version=6,4,0,4" ></OBJECT>
<%=Showpage%>
<br>
<%
if rs.RecordCount=0 then
response.write "<BR><BR>暂时为空！"
else
%>
<table border=0 cellspacing='1' cellpadding='2' width=100% align=center class=tab>
<tr class="tdTop">
<td align=center nowrap width="55">收发</td>
<td align=center nowrap width="30">文号</td>
<td align=center nowrap>公文标题</td>
<td align=center nowrap>拟稿人</td>
<td align=center nowrap>发文单位</td>
<td align=center nowrap width="70">拟制日期</td>
<td align=center nowrap>当前工作</td>
<td colspan="4" align=center nowrap>操作</td>
</tr>
<%for i = 0 to rs.PageSize-1
If rs.EOF Then Exit For
td_class="td1"
if rs("BLBZ") = "Y" then td_class="td3"
%>
<tr>
<td nowrap class="<%=td_class%>">
<%if rs("Status")="EDIT" then%>
<%if rs("LockUserID")=int(LoginID) then%>
<a href="DocumentUnLock.asp?unlock=true&RecordID=<%=rs("RecordID")%>" target="hidframe" title="<%=getusername(rs("LockUserID"))&" 于 "&rs("LockTime")&"锁定"%>">
<img src="../images/lockself.gif" border="0" align="left">
<%else%>
<a href="#" onclick="alert('对不起，你没有解锁权限！'); return false" title="<%=getusername(rs("LockUserID"))&" 于 "&rs("LockTime")&"锁定"%>">
<img src="../images/lock.gif" border="0" align="left">
<%end if%>
<%else%>
<a href="DocumentLock.asp?lock=true&RecordID=<%=rs("RecordID")%>" target="hidframe" title="未锁定">
<img src="../images/unlock.gif" border="0" align="left">
<%end if%>
<%=rs("DocMod")%>
</td>
<td nowrap class="<%=td_class%>"><%=htmlout(rs("DocFileNo"))%></td>
<td nowrap class="<%=td_class%>"><%=htmlout(rs("Subject"))%></td>
<td nowrap class="<%=td_class%>"><%=htmlout(GetUserName(rs("Author")))%></td>
<td nowrap class="<%=td_class%>"><%=htmlout(rs("PSend_Dept"))%></td>
<td nowrap class="<%=td_class%>"><%=CDate(rs("FileDate"))%></td>
<td nowrap class="<%=td_class%>" title="<%
'set rs1=oConn.execute("SELECT GZDMC FROM tbioaOffice_FlowPoint where RecordID='"&rs("RecordID")&"' and GZDXH='"&rs("BLXH")&"'")
'if not rs1.eof then response.write htmlout(rs1("GZDMC"))
'rs1.close
%>">
<%
'select case rs("step")
'case "FW"
'Response.Write "发文拟制"
'case "SW"
'Response.Write "收文登记"
'case "GD"
'Response.Write "<font color=blue>待归档"
'case "XH"
'Response.Write "<font color=#888888>销毁"
'case "CX"
'Response.Write "<font color=red>撤销"
'case else
'set rs1 = server.CreateObject("ADODB.RecordSet")
'rs1.Open "select blgzmc from tbioaOffice_Flow_Bldy where blgzbh='" & rs("GZDBH") & "'",oConn,1,1
'if not rs1.EOF then
'Response.Write server.HTMLEncode(rs1(0) & "")
'end if
'rs1.close
'end select
'select case cstr(oConn.execute ("select ZCBZ from tbioaOffice_Flow_Blqk where RecordID='"&rs("RecordID")&"' and BLXH="&rs("BLXH"))(0))
'case "0"
'Response.Write "(开始)"
'case "1"
'Response.Write "(正常)"
'case "2"
'Response.Write "(加签)"
'case "3"
'Response.Write "(退签)"
'case "4"
'Response.Write "(跳签)"
'case "5"
'Response.Write "(撤销)"
'end select
%>
<%
set rs1=oConn.execute("SELECT GZDMC FROM tbioaOffice_FlowPoint where RecordID='"&rs("RecordID")&"' and GZDXH='"&rs("BLXH")&"'")
if not rs1.eof then response.write htmlout(rs1("GZDMC"))
rs1.close
%>
</td>
<td nowrap width="10" nowrap class="<%=td_class%>">
<a href="javascript:WindowOpen('DocumentShow.asp?RecordID=<%=rs("RecordID")%>&BLXH=<%=rs("BLXH")%>&GZDBH=<%=rs("GZDBH")%>');">
<img border="0" src="../images/icon_show.gif" align="left" title="查看">
</a>
</td>
<td nowrap width="10" nowrap class="<%=td_class%>">
<a href="javascript:WindowOpen('DocumentEdit.asp?RecordID=<%=rs("RecordID")%>&BLXH=<%=rs("BLXH")%>&GZDBH=<%=rs("GZDBH")%>');">
<%if rs("BLBZ") = "Y" then%><img border="0" src="../images/icon_edit.gif" align="left" title="重办" style="filter:gray">
<%else%><img border="0" src="../images/icon_edit.gif" align="left" title="办理"><%end if%>
</a>
</td>
<td nowrap width="10" nowrap class="<%=td_class%>">
<a href="javascript:WindowOpen('F_Point_Show.asp?RecordID=<%=rs("RecordID")%>')">
<img src="../images/icon_flow.gif" align="left" border=0 alt="流程">
</a>
</td>
<td nowrap width="10" nowrap class="<%=td_class%>">
<%
mSql="Select FLH,File_Man,File_Date,CXQX From tbioaDocument_File_Dep where RecordID='"& rs("RecordID") & "' and DEPID="&Session("DepID")
Set mRs=Server.CreateObject("ADODB.RecordSet")
mRs.Open mSql,oConn,1,1
if mRs.eof then
%>
<a href="Document_File_Sc.asp?RecordID=<%=rs("RecordID")%>">
<img border="0" src="../images/icon_sc.gif" align="left" alt="收藏">
</a>
<%else%>
<img border="0" src="../images/icon_sc.gif" align="left" alt="收藏信息：
收藏人：<%=GetUserName(mRs("File_Man"))%>
收藏时间：<%=mRs("File_Date")%>
<%=flt(mRs("FLH"))%>
查询权限：<%=GetUserNames(mRs("CXQX"),",")%>" style="filter:gray">
<%end if
mRs.close
%>
</td>
</tr>
<%
rs.MoveNext
next
%>
</table>
<%
end if
rs.close
%>
</body>
</html>
<%'释放对象变量
oConn.close
set oConn=nothing
%>
<%
private function flt(flh)
dim i,j,rs,sql,flh_temp
if flh="" then
flh_temp="00"
else
flh_temp=flh
end if
Response.Write "收藏夹：文档分类"
if flh_temp="00" then
i=0
else
i=len(flh_temp)
end if
for j=0 to i step 2
sql="select * from tbioaDocument_Sort_Dep where flh='"&left(flh_temp,j)&"' and DEPID="&Session("DepID")
set rs=oConn.execute(sql)
if not rs.eof and not rs.bof then
Response.Write "/"
response.write server.HTMLEncode(rs("lmmc"))
end if
next
end function
%> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -