📄 bldyedit.asp
字号:
<%
'功能：公文办理定义编辑/增加
'作者：展亮
'时间：2004-2-6 20:18
%>
<!--#include file="../inc/NoCatch.asp"-->
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/Conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<%
'------------------------------------------------设置参数
gzbh=Request.QueryString("bh") '编辑的记录编号
'------------------------------------------------
mbthdg=0
bodymod=0
dyzwbb=1
accessory=1
xyblr=0
'------------------------------------------------取记录
if trim(gzbh)="" then
xgbz="add"
csstr=" class='input' "
sql=""
else
xgbz="edit"
csstr=" class='inputreadonly' readonly"
sql="select * from tbioaOffice_Flow_Bldy where blgzbh='"& gzbh &"'"
end if
if sql<>"" then
set rs=createobject("adodb.recordset")
rs.Open sql,oConn,1,1
if not rs.EOF and not rs.BOF then
gzmc=rs("blgzmc")
qtgzbh=rs("qtgzbh")
lcxgbz=rs("dzlcqx")
mbthdg=rs("mbthdg")
bodymod=rs("zwzt")
dyzwbb=rs("dyzwbb")
accessory=rs("fjzt")
xyblr=rs("xyblr")
dtcs1=rs("dtcs1")
dtcs2=rs("dtcs2")
dtcs3=rs("dtcs3")
dtcs4=rs("dtcs4")
qtgzmc= listqtgzd(qtgzbh)
end if
rs.Close
set rs=nothing
end if
'------------------------------------------------
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"; charset=gb2312">
<link rel="stylesheet" href="../css/main.css" type="text/css">
<title>公文办理定义编辑</title>
<script src="../js/front_chec.js"></script>
<script language="javascript">
function doCX(){
var k;
var bh,mc
var s = new Object();
s.bh = tjform.qtgzbh.value;
k=showModalDialog("BldySelectqt.asp",s,"dialogWidth:428px;status:no;dialogHeight:270px");
if (k.stype!=""){
bh=k.bh;
mc=k.mc;
tjform.qtgzbh.value=bh;
tjform.qtgzmc.value=mc;
}
}
function dosave(form){
if (!checlength(form.gzbh,"请填入两位数字编号",2)) return false
if (!/^\d{1,}\.{0,1}\d{0,}$/.test(form.gzbh.value)){alert("请填入两位数字编号"); return false}
if (!checnull(form.gzmc,"请填写工作名称")) return false
}
//-->
</script>
<script language="vbscript">
function doclick()
dim bhName,bhId
dim objtemp,obj
chbh=window.event.srcElement.id
bhName=left(chbh,(len(chbh)-1))
bhId=right(chbh,1)
set obj=document.getElementById(chbh)
if bhId < 3 then
if (obj.checked=false) then
for i=bhid+1 to 3
'alert (bhName&i)
set objtemp=document.getElementById(bhName&i)
'alert("ok")
if objtemp is nothing then
'alert(i)
else
objtemp.disabled=true
end if
set objtemp=nothing
next
else
call dgenable(bhName,bhId)
end if
end if
end function
function dgenable(bhName,bhId)
dim obj
if bhid<2 then
set obj=document.getElementById(bhname&(bhId+1))
obj.disabled=false
if obj.checked=true then
call dgenable(bhName,bhId+1)
end if
set obj=nothing
else
set obj=document.getElementById(bhname&bhid+1)
obj.disabled=false
set obj=nothing
end if
end function
</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"> 公文办理工作列表</td>
</tr>
</table>
<hr width="100%" size=1 color="#000000">
<br>
<table align="center" width="600" cellspacing="1" cellpadding="2" class="tab">
<tr class=td1><td align=center>
<form name="tjform" method="post" action="BldySave.asp" onsubmit="return dosave(this)">
<input type="hidden" name="qtgzbh" value="<%=qtgzbh%>">
<input type="hidden" name="xgbz" value="<%=xgbz%>">
<table align="center" width="600" cellspacing="1" cellpadding="2" class="tab">
<tr class=td2>
<td width="80" align=right><nobr>编号</nobr></td>
<td width=40>
<input type="input" name="gzbh" value="<%=gzbh%>" size=2 maxlength=2 <%Response.Write csstr%>>
</td>
<td width=80 align=right><nobr>工作名称</nobr></td>
<td width=370>
<input type="input" class="input" name=gzmc maxlength="20" value="<%=server.HTMLEncode(gzmc)%>" style="width:100%" maxlength=20>
</td>
</tr>
<tr class=td2>
<td align=right><nobr>允许改变流程</nobr>
</td>
<td>
<input type="checkbox" name="lcbgbz" value="1" <%if lcxgbz="1" then Response.Write "checked"%>>
</td>
<td align=right>
<a href="#" onclick="javascript:doCX()">前提工作→</a>
</td>
<td width=370>
<input type="input" class="inputreadonly" name="qtgzmc" value="<%=server.HTMLEncode(qtgzmc)%>" style="width:100%" readonly>
</td>
</tr>
<tr class=td2>
<td align=right><nobr>允许模板套红定稿</nobr>
</td>
<td>
<input type="checkbox" name="mbthdg" value="1" <%if mbthdg="1" then Response.Write "checked"%>>
</td>
<td align=right><nobr>正文状态</nobr>
</td>
<td>
<input type="radio" name="bodymod" value="0" <%if bodymod="0" then Response.Write "checked"%>>查阅
<input type="radio" name="bodymod" value="1" <%if bodymod="1" then Response.Write "checked"%>>起草
<input type="radio" name="bodymod" value="2" <%if bodymod="2" then Response.Write "checked"%>>修改
<input type="radio" name="bodymod" value="3" <%if bodymod="3" then Response.Write "checked"%>>审核
</td>
</tr>
<tr class=td2>
<td align=right><nobr>允许调用正文版本</nobr>
</td>
<td>
<input type="checkbox" name="dyzwbb" value="1" <%if dyzwbb="1" then Response.Write "checked"%>>
</td>
<td align=right><nobr>附件状态</nobr>
</td>
<td>
<input type="radio" name="accessory" value="0" <%if accessory="0" then Response.Write "checked"%>>隐藏
<input type="radio" name="accessory" value="1" <%if accessory="1" then Response.Write "checked"%>>查看
<input type="radio" name="accessory" value="2" <%if accessory="2" then Response.Write "checked"%>>管理
</td>
</tr>
<tr class=td2>
<td align=right><nobr>流程办理者</nobr>
</td>
<td colspan=3>
<input type="radio" name="xyblr" value="0" <%if xyblr="0" then Response.Write "checked"%>>在流程中定义
<input type="radio" name="xyblr" value="1" <%if xyblr="1" then Response.Write "checked"%>>固定为公文拟制人
</td>
</tr>
<tr class=td1>
<td colspan=4 align=center>
<table width="100%" align="center" cellspacing="1" cellpadding="2" class="tab">
<tr align=center>
<td class=tdTop width=60 align=center><nobr>属性类别</nobr></td>
<td class=tdTop width=60 align=center><nobr>是否显示</nobr></td>
<td class=tdTop width=60 align=center><nobr>是否编辑</nobr></td>
<td class=tdTop width=60 align=center><nobr>是否必填</nobr></td>
<td class=tdTop width=60 align=center><nobr>是否有初值</nobr></td>
<td class=tdTop align=center><nobr>相关公文属性</nobr></td>
</tr>
<tr align=left>
<td class=td1 nowrap align=left>文号</td>
<td class=td1 nowrap align=center><input type="checkbox" value="1" id=chwh1 name=chwh1 checked onclick="vbscript:doclick()"></td>
<td class=td1 nowrap align=center><input type="checkbox" value="1" id=chwh2 name=chwh2 onclick="vbscript:doclick()"></td>
<td class=td1 nowrap align=center><input type="checkbox" value="1" id=chwh3 name=chwh3 disabled onclick="vbscript:doclick()"></td>
<td class=td1 nowrap align=center> </td>
<td class=td1 nowrap align=left>文号</td>
</tr>
<tr align=left>
<td class=td1 nowrap align=left>类别</td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -