📄 document_ybgw_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") '上次查询条件
gzdbh=request("gzdbh")
Step=request("Step")
DocMod=request("DocMod")
DocFileNo=request("DocFileNo")
Subject=request("Subject")
DC_Doc_Sort=request("DC_Doc_Sort")
DC_Doc_Security=request("DC_Doc_Security")
DC_Doc_Exigence=request("DC_Doc_Exigence")
'------------------------------------------------
'------------------------------------------------取记录
'分页取记录 （返回rs对象）
'
table="vioaOffice_Document_Bl" '表名
'接受查询参数
'查寻条件
Where="Where "
Where=Where & "(BLBZ = 'Y') AND " '*流转中的可修改公文*
Where=Where & "(Step<>'CX' or (Step='CX' and cxblxh=blxh)) AND " '撤销标志为未撤销
Where=Where & "(Step<>'YG') AND " '未归档
Where=Where & "blr="&LoginID&" AND " '我办理的公文
if Search="" then
if gzdbh<>"" then Search=Search & "gzdbh='" & gzdbh & "' AND "
if Step<>"" then Search=Search & "Step='" & Step & "' AND "
if DocMod<>"" then Search=Search & "DocMod='" & DocMod & "' AND "
if DocFileNo<>"" then Search=Search & "DocFileNo='" & DocFileNo & "' AND "
if Subject<>"" then Search=Search & "Subject='" & Subject & "' AND "
if DC_Doc_Sort<>"" then Search=Search & "DC_Doc_Sort=" & DC_Doc_Sort & " AND "
if DC_Doc_Security<>"" then Search=Search & "DC_Doc_Security='" & DC_Doc_Security & "' AND "
if DC_Doc_Exigence<>"" then Search=Search & "DC_Doc_Exigence='" & DC_Doc_Exigence & "' AND "
Search=Search & "1=1"
END if
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select RecordID, Status, LockUserID, LockTime, DocType, DocMod, Subject, DocFileNo, DC_Doc_Sort, DC_Doc_Security, DC_Doc_Exigence, Step, BLXH, BLR, GZDBH, GZDXH, BLBZ from " & table & " " & Where & Search & " order by 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();
}
function DoSearch(){
k=showModalDialog("./Document_Search.asp", "", "dialogWidth:20em; dialogHeight:17em; center: Yes; scroll:No; resizable: No; status: No; help: No;")
if (k){
gotourl="?";
gotourl+="gzdbh="+k.gzdbh+"&";
gotourl+="Step="+k.Step+"&";
gotourl+="DocMod="+k.DocMod+"&";
gotourl+="DocFileNo="+k.DocFileNo+"&";
gotourl+="Subject="+k.Subject+"&";
gotourl+="DC_Doc_Sort="+k.DC_Doc_Sort+"&";
gotourl+="DC_Doc_Security="+k.DC_Doc_Security+"&";
gotourl+="DC_Doc_Exigence="+k.DC_Doc_Exigence;
this.location=gotourl;
}
}
</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=bZJ name=bZJ onclick="DoSearch();">
</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="40">收发</td>
<td align=center nowrap width="70">文号</td>
<td align=center nowrap>公文标题</td>
<td align=center nowrap>类别</td>
<td align=center nowrap width="40">密级</td>
<td align=center nowrap width="70">紧急程度</td>
<td align=center nowrap width="70">办理状态</td>
<td align=center nowrap width="70">当前状态</td>
<td colspan="3" align=center nowrap>操作</td>
</tr>
<%for i = 0 to rs.PageSize-1
If rs.EOF Then Exit For
td_class="td1"
%>
<tr>
<td nowrap class="<%=td_class%>"><%=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(GetTableValue("tbioaOffice_Document_Sort","doc_sort","id",rs("DC_Doc_Sort")))%></td>
<td nowrap class="<%=td_class%>"><%=htmlout(rs("DC_Doc_Security"))%></td>
<td nowrap class="<%=td_class%>"><%=htmlout(rs("DC_Doc_Exigence"))%></td>
<td nowrap class="<%=td_class%>">
<%
select case rs("gzdbh")
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 "YG"
Response.Write "<font color=green>完成"
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
%>
</td>
<td nowrap class="<%=td_class%>">
<%
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 "YG"
Response.Write "<font color=green>完成"
case else
set rs1 = server.CreateObject("ADODB.RecordSet")
rs1.Open "select blgzmc from tbioaOffice_Flow_Bldy where blgzbh='" & rs("step") & "'",oConn,1,1
if not rs1.EOF then
Response.Write server.HTMLEncode(rs1(0) & "")
end if
rs1.close
end select
%>
</td>
<td nowrap width="50" nowrap class="<%=td_class%>">
<img border="0" src="../images/icon_show.gif" align="left">
<a href="javascript:WindowOpen('DocumentShow.asp?RecordID=<%=rs("RecordID")%>&GZDBH=<%=rs("GZDBH")%>');">查看</a>
</td>
<td nowrap width="50" nowrap class="<%=td_class%>">
<img src="../images/icon_flow.gif" align="left" border=0 alt="查看工作点">
<a href="javascript:WindowOpen('F_Point_Show.asp?RecordID=<%=rs("RecordID")%>')">流程</a>
</td>
<td nowrap width="50" 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%>
<span title="收藏信息：
收藏人：<%=GetUserName(mRs("File_Man"))%>
收藏时间：<%=mRs("File_Date")%>
<%=flt(mRs("FLH"))%>
查询权限：<%=GetUserNames(mRs("CXQX"),",")%>" disabled>
<img border="0" src="../images/icon_sc.gif" align="left" style="filter:gray">收藏</span>
<%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 + -