📄 f_point_index_tz.asp
字号:
<%
'功能：公文工作流程跳转－工作点列表
'作者：展亮
'时间：2003-12-27 23:15
%>
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/Conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<%
'------------------------------------------------设置参数
sRecordID=Request("RecordID")
'------------------------------------------------
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
'------------------------------------------------赋值
slcmc=rs("Subject")
'------------------------------------------------
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css/main.css">
<title>公文跳转</title>
<script language=vbscript>
sub doshowblqk(sgzdxh)
window.location.href="F_Point_Blgk.asp?F_Url=<%=Request("url")%>&RecordID=<%=sRecordID%>&gzdxh=" & sgzdxh
end sub
function dojump()
dim e,sign
sign=false
for i=0 to frmcz.elements.length-1
set e=frmcz.elements(i)
if e.checked=true then
sign=true
end if
next
if sign=false then
alert("没有选中跳转节点，无法跳转")
exit function
end if
frmcz.action="F_Point_Tz_Save.asp"
frmcz.submit
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(slcmc)%>】</td>
<td align=right valign=bottom>
<input type=button class="button0" value="跳转" id=btz name=btz onclick='vbscript:dojump()'>
<input type=button class="button0" value="公文办理情况" id=bblqk name=bblqk onclick='vbscript:doshowblqk("")'>
<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>
<table width=98% border=0 align=center>
<tr valign=center><td align=center>
<b>公文流转情况
</td>
</tr>
</table>
<form id=frmcz method=post>
<input type=hidden id=RecordID name=RecordID value=<%=sRecordID%>>
<input type=hidden id=gzdxh name=gzdxh>
<input type=hidden id=prev name=prev>
<input type=hidden id=prevtype name=prevtype>
<input type=hidden id=nexttype name=nexttype>
<%
set rs=server.CreateObject("ADODB.recordset")
'取得入度为0的工作点（只可能有一个）
sql = "select a.*,b.blgzmc from tbioaOffice_FlowPoint a,tbioaOffice_Flow_Bldy b " _
& "where a.RecordID='" & sRecordID & "' " _
& "and a.gzdxh not in(" _
& "select zgzdxh as gzdxh from tbioaOffice_Flow " _
& "where RecordID='" & sRecordID & "') " _
& "and a.blgzbh=b.blgzbh "
rs.Open sql,oConn,1,1
lfirst=-1
bend=true
if not rs.EOF then
lfirst=rs("gzdxh") & ""
bend=false
end if
if not bend then '不是一个都没有
%>
<table align=center cellspacing=0 cellpadding=0 border=0 width="400">
<tr>
<td>
<table width=100% border=0 cellspacing=1 cellpadding=2 class=tab>
<tr><td nowrap align=center class=tdtop>公文办理开始</td></tr>
</table>
</td>
</tr>
<tr>
<td>
<table width=100% border=0 cellspacing=0 cellpadding=2>
<tr>
<td align=right width=50%><b>↓</b></td>
<td align=left width=50% nowrap></td>
</tr>
</table>
</td>
</tr>
<%
do while not rs.EOF
'判断该节点当前处理情况
set rs1=server.CreateObject("ADODB.recordset")
rs1.Open "Select blbz from tbioaOffice_Flow_Blqk " _
& "where RecordID='" & sRecordID & "' " _
& "and gzdxh=" & rs("gzdxh") & " " _
,oConn,1,1
if rs1.EOF then
if rs("blrylb")="" then disabled="disabled"
sstate="未办理<input type='radio' name='tzjd' value="&rs("gzdxh")&" "&disabled&">"
sclass="td1"
else
do while not rs1.EOF
if rs1(0)="N" then
sstate="<a class=linktext href='javascript:doshowblqk(""" & rs("gzdxh") &""")'><font color=#000080>办理中</a>"
sclass="td2"
exit do
end if
rs1.Movenext
loop
if rs1.EOF then
sstate="<a class=linktext href='javascript:doshowblqk(""" & rs("gzdxh") &""")'><font color=#008080>已办理</a><input type='radio' name='tzjd' value="&rs("gzdxh")&">"
sclass="tdBottom"
end if
end if
rs1.Close
%>
<tr>
<td>
<table width=100% border=0 cellspacing=1 cellpadding=2 class=tab>
<tr>
<td nowrap width=120 class=<%=sclass%>><%=server.HTMLEncode(rs("blgzmc"))%></td>
<td nowrap width=230 class=<%=sclass%>><%=server.HTMLEncode(rs("gzdmc"))%></td>
<td width=70 nowrap class=<%=sclass%> align=center><%=sstate%></td>
</tr>
<td nowrap colspan=3 class=<%=sclass%>><a style="cursor:default" title=<%=Server.HTMLEncode(GetUserNames(rs("blrylb") & "",","))%>>办理人员:
<%if rs("blrysm")="" then response.write GetUserNames(rs("blrylb"),",")%>
<%=server.HTMLEncode(rs("blrysm"))%>
</td>
<tr>
<td nowrap colspan=1 class=tdbottom>
<%if rs("lzbz") & ""="1" then Response.Write "全部完成继续" else Response.Write "一人完成继续"%>
</td>
<td nowrap colspan=2 class=tdbottom>
<%if rs("tqqx") & ""="1" then Response.Write "<font color='green'>√退签</font>" else Response.Write "<font color='red'>×退签</font>"%>
<%if rs("jqqx") & ""="1" then Response.Write "<font color='green'>√加签</font>" else Response.Write "<font color='red'>×加签</font>"%>
<%if rs("cxqx") & ""="1" then Response.Write "<font color='green'>√撤销</font>" else Response.Write "<font color='red'>×撤销</font>"%>
</td>
</tr>
</table>
<table width=100% border=0 cellspacing=0 cellpadding=2>
<tr>
<td align=right width=50%><b>↓</b></td>
<td align=left width=50% nowrap> <td>
</tr>
</table>
</td>
</tr>
<%
'取得下一点的信息
lfirst=rs("gzdxh")
rs.Close
rs.Open "select a.*,c.blgzmc from tbioaOffice_FlowPoint a,tbioaOffice_Flow b,tbioaOffice_Flow_Bldy c " _
& "where a.RecordID='" & sRecordID & "' " _
& "and a.RecordID=b.RecordID " _
& "and b.sgzdxh=" & lfirst & " " _
& "and b.zgzdxh=a.gzdxh " _
& "and a.blgzbh=c.blgzbh " _
,oConn,1,1
loop
%>
<tr>
<td>
<table width=100% border=0 cellspacing=1 cellpadding=2 class=tab>
<tr><td nowrap align=center class=tdtop>公文待归档</td></tr>
</table>
</td>
</tr>
</table>
</form>
<br>
<%
end if
rs.Close
set rs=nothing
set rs1=nothing
%>
</body>
</html>
<%'释放对象变量
oConn.close
%> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -