📄 f_point_blgk.asp

📁 OFFICE办公自动化
💻 ASP
字号:
<%
'功能：公文工作流程查看-工作点列表
'作者：展亮
'时间：2003-12-13 17:10
%>
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/Conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<%
'------------------------------------------------设置参数
maxmessage=20 '每页显示记录数
currentpage=request("page") '当前页码
sRecordID=Request("RecordID")
sgzdxh=Request("gzdxh")
sF_Point_Url=Request("F_Url") : if sF_Point_Url="" then sF_Point_Url="F_Point_Show.asp"
'------------------------------------------------
if sRecordID="" then
	call MsgOut("没有指定公文号","javascript:history.back()",1)
	oConn.close
	set oConn=nothing
	Response.End
end if

'------------------------------------------------取记录
set rs=server.CreateObject("ADODB.recordset")
rs.open "Select Subject from tbioaOffice_Document where RecordID='" & sRecordID & "'" ,oConn,1,1
if rs.eof then
	call MsgOut("指定的公文不存在","javascript:history.back()",1)
	rs.close
	set rs=nothing
	oConn.close
	set oConn=nothing
	Response.End
end if
'------------------------------------------------赋值
sgwbt=rs("Subject")'公文标题
rs.Close
'------------------------------------------------

'------------------------------------------------取记录
'分页取公文办理定义记录 （返回rs对象）
'rs.recordcount 为记录总数
'rs.PageSize 为本页记录数
ssql="select a.*,b.blgzmc " _
		& "from tbioaOffice_Flow_Blqk a,tbioaOffice_Flow_Bldy b " _
		& "where a.gzdbh=b.blgzbh " _
		& "and a.RecordID='" & sRecordID & "' "
if sgzdxh<>"" then
	ssql=ssql & "and a.gzdxh='" & sgzdxh & "' "
end if
ssql=ssql & "order by blxh "
'Response.Write ssql
rs.Open ssql,oConn,1,1
Showpage=Paging(rs,maxmessage,currentpage,"F_Url="&sF_Point_Url&"&RecordID="&sRecordID&"&gzdxh="&sgzdxh)
'------------------------------------------------
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css/main.css">
<title>公文办理过程</title>
<script LANGUAGE="vbscript">
	function bb(obj)
		if document.getElementById(obj) is nothing then
			exit function
		end if
		if document.getElementById(obj).style.display="none" then
			document.getElementById(obj).style.display="block"
			document.getElementById("img" & mid(obj,3)).src="../images/menu_open.gif"
		else
			document.getElementById(obj).style.display="none"
			document.getElementById("img" & mid(obj,3)).src="../images/menu_close.gif"
		end if
	end function
</script>
</head>

<body topmargin="10" leftmargin="10">

<table width=98% border=0 align=center>
	<tr valign=center><td align=left><img src="../images/icon_title.gif" align="absmiddle"> 公文办理过程【<%=server.HTMLEncode(sgwbt)%>】</td>
	<td align=right valign=bottom>
	    <input type=button class="button0" value="公文流转流程" id=bQuery name=del_button onclick="javascript:window.location='<%=sF_Point_Url%>?RecordID=<%=sRecordID%>'">
	    <input type=button class="button0" value="关闭" id=bQuery name=del_button onclick="javascript:window.close()">
	</td></tr>
</table>
<hr width="100%" size=1 color="#000000">
<br>
<%=Showpage%>
<table width="100%" cellspacing="1" cellpadding="2" class="tab">
	<tr align=center class=Listtitle>
		<td class=tdTop width="60"><nobr>序号</nobr></td>
		<td class=tdTop><nobr>工作点名称</nobr></td>
		<td class=tdTop width="40"><nobr>来源</nobr></td>
		<td class=tdTop><nobr>上级</nobr></td>
		<td class=tdTop><nobr>办理</nobr></td>
		<td class=tdTop width="100"><nobr>进入流转日期</nobr></td>
		<td class=tdTop width="100"><nobr>办理时限</nobr></td>
		<td class=tdTop width="100"><nobr>办理日期</nobr></td>
		<td class=tdTop><nobr>办理人</nobr></td>
	</tr>

<%for i = 0 to rs.PageSize-1 '循环
   If rs.EOF Then%>
   	<tr>
		<td class="tdbottom" align="left"><nobr>&nbsp;</nobr></td>
		<td class="tdbottom" align="left"><nobr>&nbsp;</nobr></td>
		<td class="tdbottom" align="left"><nobr>&nbsp;</nobr></td>
		<td class="tdbottom" align="left"><nobr>&nbsp;</nobr></td>
		<td class="tdbottom" align="left"><nobr>&nbsp;</nobr></td>
		<td class="tdbottom" align="left"><nobr>&nbsp;</nobr></td>
		<td class="tdbottom" align="left"><nobr>&nbsp;</nobr></td>
		<td class="tdbottom" align="left"><nobr>&nbsp;</nobr></td>
		<td class="tdbottom" align="left"><nobr>&nbsp;</nobr></td>
	</tr>
<%
   else
	td_class="td1"
	if cstr(rs("blbz"))="Y" then td_class="td2"
	'''''''''''''判断当前办理记录所对应的工作点是否存在
	sql_gzd="select gzdxh from tbioaOffice_FlowPoint where gzdxh="&rs("gzdxh")&" and RecordID='"&rs("RecordID")&"'"
	set rs_gzd=createobject("adodb.recordset")
	rs_gzd.Open sql_gzd,oConn,1,1
	if not (rs_gzd.EOF and rs_gzd.BOF) then
	   gzdSign=true
	else
	   gzdSign=false
	end if
	''''''''''''''
%>
	<tr>
		<td class="<%=td_class%>" align="left"><nobr>
		   <%if (not gzdsign) then Response.write "<FONT color=red><b>×</b></font>" else Response.write "&nbsp;&nbsp;"%><img align="absmiddle" src="../images/menu_close.gif" id="img<%=rs("blxh")%>" onclick="vbscript:bb('bz<%=rs("blxh")%>')"><%=server.HTMLEncode(rs("blxh") & "")%></nobr>
		</td>
		<td class="<%=td_class%>" align="left"><nobr><%=server.HTMLEncode(rs("blgzmc") & "")%></nobr></td>
		<td class="<%=td_class%>" align="left"><nobr>
		    <%
			select case cstr(rs("zcbz"))
				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
		    %></nobr>
		</td>
		<td class="<%=td_class%>" align="left"><nobr><%=server.HTMLEncode(rs("lyblxh") & "")%></nobr></td>
		<td class="<%=td_class%>" align="left"><nobr>
		    <%if cstr(rs("blbz"))="Y" then Response.Write "已办理" else Response.Write "未办理"%></nobr>
		</td>
		<td class="<%=td_class%>" align="left"><nobr><%=server.HTMLEncode(rs("clsj") & "")%></nobr></td>
		<td class="<%=td_class%>" align="left"><nobr><%=server.HTMLEncode(rs("clsx") & "")%></nobr></td>
		<td class="<%=td_class%>" align="left"><nobr><%=server.HTMLEncode(rs("blrq") & "")%></nobr></td>
		<td class="<%=td_class%>" align="left" title="<%if rs("dlr") and rs("dlr")<>rs("blr") then response.write htmlout(getusername(rs("dlr")))&"(代)"%>"><nobr><%if rs("dlr") and rs("dlr")<>rs("blr") then response.write "<font color=blue>"%><%=htmlout(getusername(rs("blr")))%></nobr></td>
	</tr>
	<tr align=left id="BZ<%=rs("blxh")%>" name="BZ<%=rs("blxh")%>" style="display:none" class=listrow2>
		<td class=<%=td_class%> colspan=9 style="padding-left:20px;padding-bottom:5px" >
		<table width="98%" align=center cellspacing="1" cellpadding="2" class="tab">
		<tr align=left class=<%=td_class%>>
			<td class=tdbottom nowrap width=70 align=right>附注内容：</td>
			<td class=<%=td_class%> nowrap><%=htmlout(rs("blyj"))%></td>
		</tr>
		</table>
		</td>
	</tr>
<%
	rs.MoveNext
   end if
next
rs.Close
set rs = nothing
%>

</table>
</body>
</html>

<%'释放对象变量
oConn.close
%>
💿 文件大小 12029 K
👤 上传用户 qx19860213
📂 所属分类其他
🏷️ 相关标签

#OFFICE #办公自动化
⌨️ 快捷键说明

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