📄 ft_point_edit.asp
字号:
<%
'功能：公文工作流程模板设置-工作点编辑
'作者：展亮
'时间：2003-12-12 15:37
%>
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/Conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<%
'------------------------------------------------设置参数
slcbh=Request.form("lcbh")
sPrev=Request.form("Prev")
sPrevType=Request.form("PrevType")
sNextType=Request.form("NextType")
'------------------------------------------------
if slcbh="" or not IsNumeric(sprev) then
call MsgOut("没有指定工作流模板","javascript:history.back()",1)
Response.End
end if
'------------------------------------------------取记录
set rs=server.CreateObject("ADODB.recordset")
rs.open "Select lcmc from tbioaOffice_Flow_TemplateName where lcbh=" & slcbh ,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("lcmc") & ""
rs.Close
dim ssql
dim sblgzbh,sgzdxh,sgzdmc,sblrylb,sblryxmlb,sblrysm,stqqx,sjqqx,scxqx,slzbz,sgzsx
dim sgqbz
sblgzbh=""
sgzdxh=""
sgzdmc=""
sblrylb=""
sblryxmlb=""
sblrysm=""
stqqx="1"
sjqqx="1"
scxqx="1"
slzbz="1"
sgzsx=1
sgzdxh=Request.Form("gzdxh")
if sgzdxh<>"" then
rs.open "Select * from tbioaOffice_FlowPoint_Template " _
& "where lcbh=" & slcbh & " " _
& "and gzdxh=" & sgzdxh & " " _
,oConn,1,1
if not rs.EOF then
sblgzbh=rs("blgzbh") & ""
sgzdmc=rs("gzdmc") & ""
sblrylb=rs("blrylb") & ""
sblrysm=rs("blrysm") & ""
stqqx=rs("tqqx") & ""
sjqqx=rs("jqqx") & ""
scxqx=rs("cxqx") & ""
slzbz=rs("lzbz") & ""
sgzsx=rs("gzsx") & ""
sblryxmlb=GetUserNames(sblrylb,",")
sxyblr=GetTableValue("tbioaOffice_Flow_Bldy","xyblr","blgzbh",sblgzbh)
else
sgzdxh=""
sxyblr=0
end if
rs.Close
end if
'------------------------------------------------
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css/main.css">
<script src="../js/front_chec.js"></script>
<script src="../js/user_select.js"></script>
<title>编辑工作流程模板工作点信息</title>
<SCRIPT LANGUAGE=javascript>
function doselry(){
strtmpusers = SelectUsers(frmxx.blrylb.value);
if (strtmpusers != "") {
strtmpusers=strtmpusers.split("_")
frmxx.blrylb.value=strtmpusers[0]
frmxx.blryxmlb.value=strtmpusers[1]
}
}
xyblr=new Array()
function checkxyblr(){
if (xyblr[frmxx.blgzbh.value] == 1) {
selectblry.style.display='none';
}else{selectblry.style.display='';}
}
</SCRIPT>
<SCRIPT LANGUAGE=vbscript>
<!--
sub doSave
frmxx.gzdmc.value=trim(frmxx.gzdmc.value)
frmxx.blrysm.value=trim(frmxx.blrysm.value)
frmxx.gzsx.value=trim(frmxx.gzsx.value)
if frmxx.gzdmc.value="" then
msgbox "请输入工作点名称！",vbinformation,"提示"
frmxx.gzdmc.focus
exit sub
end if
if not isnumeric(frmxx.gzsx.value) then
msgbox "工作时限应输入合法数字！",vbinformation,"提示"
frmxx.gzsx.focus
exit sub
end if
if cdbl(frmxx.gzsx.value)<0 or cdbl(frmxx.gzsx.value)>9999 then
msgbox "工作时限应输入0-9999之间数字！",vbinformation,"提示"
frmxx.gzsx.focus
exit sub
end if
frmxx.gzsx.value=clng(frmxx.gzsx.value)
frmxx.submit
end sub
//-->
</SCRIPT>
</head>
<body topmargin="10" leftmargin="10">
<table width=98% class=tabletoolbar border=0 align=center>
<tr valign=center>
<td align=left><img src="../images/icon_title.gif" align="absmiddle"> 编辑工作流程模版工作点信息－<%=server.HTMLEncode(slcmc)%></td>
</tr>
</table>
<hr width="100%" size=1 color="#000000">
<br>
<table align="center" width="500">
<tr>
<td align=center>
<table align="center" width="500" cellspacing="1" cellpadding="2" class="tab">
<form name="frmxx" method="post" action="FT_Point_Save.asp" >
<input type="hidden" name="lcbh" id="lcbh" value=<%=slcbh%>>
<input type="hidden" name="gzdxh" id="gzdxh" value=<%=sgzdxh%>>
<input type="hidden" name="PrevType" id="PrevType" value=<%=sPrevType%>>
<input type="hidden" name="Prev" id="Prev" value=<%=sPrev%>>
<tr class=td2>
<td width=120 nowrap>办理类别</td>
<td>
<%if sgzdxh="" then '新增%>
<select size="1" name=blgzbh id=blgzbh onchange="checkxyblr()">
<%
dim sprevlists,snextlists,sgqbzlist
sprevlists=""
snextlists=""
sgqbzlist=""
if sNextType<>"" then '表示有后续节点，取出后续节点可能的前驱
'Response.Write "#"&"<br>"
rs.Open "select qtgzbh from tbioaOffice_Flow_Bldy where blgzbh='" & sNextType & "'",oConn,1,1
if not rs.EOF then
sprevlists=rs(0) & ""
end if
rs.Close
end if
'取出前驱可能的后续节点
if sPrevType<>"" then
rs.Open "select blgzbh,blgzmc,xyblr from tbioaOffice_Flow_Bldy " _
& "where ','+qtgzbh+',' like '%," & sPrevType & ",%'",oConn,1,1
else '无前驱点则去前驱点为空或等于自己的
rs.Open "select blgzbh,blgzmc,xyblr from tbioaOffice_Flow_Bldy " _
& "where qtgzbh='' or qtgzbh is null or qtgzbh=blgzbh",oConn,1,1
end if
'Response.Write sprevlists
do while not rs.EOF
if sprevlists="" or instr("," & sprevlists & ",","," & rs(0) & ",")<>0 then
Response.Write "<option value=" & rs("blgzbh") & ">" & server.HTMLEncode(rs("blgzmc") & "") & "</option>"
Response.Write "<script language='javascript'>xyblr[" & rs("blgzbh") & "]=" & rs("xyblr") & "</script>"
snextlists=snextlists & "," & rs("blgzbh")
end if
rs.MoveNext
loop
rs.Close
if snextlists="" then
call MsgOut("不能在当前位置插入新工作点","javascript:history.back()",1)
rs.close
set rs=nothing
oConn.close
set oConn=nothing
Response.End
end if
%>
</select>
<%
else
%>
<input type="hidden" name="blgzbh" id="blgzbh" value=<%=sblgzbh%>>
<%
rs.Open "Select * from tbioaOffice_Flow_Bldy where blgzbh='" & sblgzbh & "' ",oConn,1,1
if not rs.EOF then
Response.Write server.HTMLEncode(rs("blgzmc") & "")
Response.Write "<script language='javascript'>xyblr[" & rs("blgzbh") & "]=" & rs("xyblr") & "</script>"
else
call MsgOut("工作点信息丢失","javascript:history.back()",1)
rs.close
set rs=nothing
oConn.close
set oConn=nothing
Response.End
end if
end if
%>
</td>
</tr>
<tr>
<td width=120 class="td2">工作点名称</td>
<td class="td2">
<input type="text" id=gzdmc name=gzdmc style="width:350" class="input" value="<%=server.HTMLEncode(sgzdmc)%>" maxlength=50>
</td>
</tr>
<tr>
<td width=120 class="td2">工作时限(天)</td>
<td class="td2">
<input type="text" id=gzsx name=gzsx width=20 class="input" value="<%=server.HTMLEncode(sgzsx)%>" maxlength=14>
</td>
</tr>
<tr id="selectblry" <%if sxyblr=1 then%>style="display:none"<%end if%>>
<td width=120 class="td2">办理人员[<img src="../images/selectman.gif" style="cursor:hand" onclick="doselry()">]</td>
<td class="td2">
<input type=hidden id=blrylb name=blrylb value="<%=server.HTMLEncode(sblrylb)%>">
<input type="text" readonly id=blryxmlb name=blryxmlb style="width:350" class="input" value="<%=server.HTMLEncode(sblryxmlb)%>">
</td>
</tr>
<SCRIPT LANGUAGE=javascript>checkxyblr()</script>
<tr>
<td width=120 class="td2">办理人员说明</td>
<td class="td2">
<input type="text" id=blrysm name=blrysm style="width:350" class="input" value="<%=server.HTMLEncode(sblrysm)%>" maxlength=200>
</td>
</tr>
<%if sPrevType<>"" then%>
<tr>
<td width=120 class="td2">可否退签</td>
<td class="td2">
<select id=tqqx name=tqqx>
<option <%if cstr(stqqx)="1" then Response.Write "selected"%> value="1">可以退签</option>
<option <%if cstr(stqqx)="0" then Response.Write "selected"%> value="0">不可以退签</option>
</select>
</td>
</tr>
<%else%>
<input type=hidden id=tqqx name=tqqx value="0">
<%end if%>
<tr>
<td width=120 class="td2">可否加签</td>
<td class="td2">
<select id=jqqx name=jqqx>
<option <%if cstr(sjqqx)="1" then Response.Write "selected"%> value="1">可以加签</option>
<option <%if cstr(sjqqx)="0" then Response.Write "selected"%> value="0">不可以加签</option>
</select>
</td>
</tr>
<tr>
<td width=120 class="td2">可否撤销</td>
<td class="td2">
<select id=cxqx name=cxqx>
<option <%if cstr(scxqx)="1" then Response.Write "selected"%> value="1">可以撤销</option>
<option <%if cstr(scxqx)="0" then Response.Write "selected"%> value="0">不可以撤销</option>
</select>
</td>
</tr>
<tr>
<td width=120 class="td2">工作点流转方式</td>
<td class="td2">
<select id=lzbz name=lzbz>
<option <%if cstr(slzbz)="1" then Response.Write "selected"%> value="1">全部完成继续</option>
<option <%if cstr(slzbz)="0" then Response.Write "selected"%> value="0">任何一人完成继续</option>
</select>
</td>
</tr>
<tr class='tdbottom'>
<td align='center' colspan=2 nowrap>
<input type=button class="button0" onmouseout=className="button0" onmouseover=className="button1" value=保存 name="bBC" id="bBC" onclick="vbscript:doSave">
<input type=button class="button0" onmouseout=className="button0" onmouseover=className="button1" value=返回 name="bFQ" id="bFQ" onclick="vbscript:history.back">
</td>
</tr>
</table>
</form>
</td></tr></table>
<%
set rs=nothing
oConn.close
set oConn=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -