📄 duinfw_msxf.asp
字号:
<%if session("yonghm")<>"" then%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>内部发文</title>
<LINK href="css.css" type=text/css rel=stylesheet>
<!--#include file="Global.asp" -->
</head>
<script LANGUAGE="vbscript">
sub s(nnn)
ss=msgbox(cstr(nnn))
nnn.style.display=""
end sub
</script>
<%
id=request("id")
sql="select * from duinfw where id="&id
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<script LANGUAGE="vbscript">
dim position(9) '对应相应栏目的mylist在本页中的位置，从0开始
position(1)=0
position(2)=1
position(3)=2
position(4)=3
oldind0=0
oldind1=0
sub mclick(ind,tjzs)
set aa=document.all.item("mylist")
set aa2=document.all.item("mylist1")
' response.write(ind)
'response.write(tjzs)
' response.end
ind0=ind-1
for i=0 to tjzs-1
aa2(i).style.display = "none"
next
if not(aa(ind0).style.display = "none") then
aa(oldind0).style.display = "none"
aa(ind0).style.display = "none"
'window.event.srcElement.all.item("menuitem").innerText=4
'document.all.item("menuitem",oldind0).innerText=5
'document.all.item("menuitem",ind0).innerText=5
'window.Parent.Parent.frames(0).navigate("gx_top.htm")
else
aa(oldind0).style.display = "none"
aa(ind0).style.display = ""
'window.event.srcElement.all.item("menuitem").innerText=6
'document.all.item("menuitem",oldind0).innerText=5
'document.all.item("menuitem",ind0).innerText=6
'window.Parent.Parent.frames(0).navigate("gx_top_lcgw.asp?subjname="+subjname(ind))
end if
oldind0=ind0
end sub
sub mclick1(ind)
set aa1=document.all.item("mylist1")
ind0=ind-1
if not(aa1(ind0).style.display = "none") then
aa1(oldind1).style.display = "none"
aa1(ind0).style.display = "none"
'aa.style.display = "none"
'window.event.srcElement.all.item("menuitem").innerText=4
'document.all.item("menuitem",ind0).innerText=5
'window.Parent.Parent.frames(0).navigate("gx_top.htm")
else
aa1(oldind1).style.display = "none"
aa1(ind0).style.display = ""
'aa.style.display = ""
'window.event.srcElement.all.item("menuitem").innerText=6
'document.all.item("menuitem",ind0).innerText=6
'window.Parent.Parent.frames(0).navigate("gx_top_lcgw.asp?subjname="+subjname(ind))
end if
oldind1=ind0
end sub
</script>
<body topmargin="3">
<form name="form1" action="duinfw_msxfcp.asp?id=<%=id%>" target="main" method="post">
<table BORDER=1 cellspacing=0 cellpadding=0 bordercolordark=#FFFFFF width="100%" class=12Font height="165" bgcolor="#EAEAEA" >
<tr>
<td height="35" align="right" colspan="4" background="images/topBar_bg.gif" >
<p align="center"><b><font size="3">内部发文秘书下发</font></b></td>
</tr>
<tr class="tdbg">
<td width="20%" align="right"><strong>标题：</strong></td>
<td width="80%" colspan="3">
<input type="text" name="Title" size="79" id="Title" value=<%=rs("biaot")%>>
</td>
</tr>
<tr >
<td align="right"><strong>主题词：</strong></td>
<td colspan="3">
<input type="text" name="Title1" size="79" id="Title1" value=<%=rs("zhutc")%>>
</td>
</tr>
<tr>
<td align="right"><strong>文件号：</strong></td>
<td width="31%">
<input type="text" name="Title2" size="20" id="Title2" value=<%=rs("wenjh")%>>
</td>
<td>
<p align="right"><strong>编制日期：</strong></td>
<td width="44%">
<input type="text" name="Title3" size="25" id="Title3" value=<%=rs("bianzrq")%>></td>
</tr>
<tr >
<td width="20%" align="right"><strong>发文部门：</strong></td>
<td width="31%">
<input type="text" name="Title4" size="20" id="Title4" value=<%=rs("fawbm")%>>
</td>
<td width="11%">
<p align="right"><strong>发文类别：</strong></td>
<td width="44%">
<input type="text" name="Title14" size="25" id="Title14" value=<%=rs("fawlb")%>>
</td>
</tr>
<tr >
<td width="20%" align="right"><strong>打印份数：</strong></td>
<td width="31%" >
<input type="text" name="Title6" size="20" id="Title6" value=<%=rs("dayfs")%>></td>
<td width="11%">
<p align="right"><strong>存档份数：</strong></td>
<td width="44%">
<input type="text" name="Title5" size="25" id="Title5" value=<%=rs("cundfs")%>></td>
</tr>
<tr class="tdbg">
<td align="right"><strong>发至：</strong></td>
<td colspan="3">
<textarea name="Content" cols="78" rows="4" id="Content"><%=rs("faz")%></textarea>
</td>
</tr>
<tr class="tdbg">
<td align="right"><strong>说明：</strong></td>
<td colspan="3">
<textarea name="Content1" cols="78" rows="4" id="Content1"><%=rs("shuom")%></textarea>
</td>
</tr>
<tr>
<td align="right" valign="middle"><b>附件1:</b></td>
<td align="left" valign="middle" height="23" colspan="3"><input type="file" name="File1" size="45"value=""></td>
</tr>
<tr>
<td align="right" valign="middle"><b>附件2:</b></td>
<td align="left" valign="middle" height="23" colspan="3"><input type="file" name="File2" size="45"value=""></td>
</tr>
<tr class="tdbg">
<td align="right"><strong></strong></td>
<td colspan="3">
<font color="#FF0000">
审批内容;</font></td>
</tr>
<tr>
<td width="15%" align="right"><strong>审批意见：</strong></td>
<td width="35%">
<input type="text" name="sele1" size="21" id="sele1" value=<%=rs("shyj")%>>
</td>
<td width="15%">
<p align="right"><strong>审批人：</strong></td>
<td width="35%">
<input type="text" name="Title13" size="25" id="Title13" value=<%=session("yonghm")%>></td>
</tr>
</table>
<table width="100%" border="1" cellspacing="1" cellpadding="1">
<tr>
<td><p align="center"><font color="#FF0000">集团及子公司列表</font></td>
</tr>
</table>
<table width="100%" border="1" cellspacing="1" cellpadding="1">
<%
sql="SELECT * FROM gongs order by quanz "
set jin=server.createobject("adodb.recordset")
jin.open sql,conn,1,1
sql="SELECT count(*) as tj1 FROM bum "
set jin5=server.createobject("adodb.recordset")
jin5.open sql,conn,1,1
tjzs=jin5("tj1")
%>
<%j=1
do until jin.eof
if j>5 then
k=jin("gongsmc")
%></tr><tr>
<td valign="center"><input type="checkbox" name=m<% =jin("id")%> value="ON" ><input valign="top" readonly type="text" value=<% =jin("gongsmc")%> onclick="call mclick(<%=j%>,<%=tjzs%>)" style="cursor: hand;BORDER-BOTTOM-STYLE: none; BORDER-LEFT-STYLE: none; BORDER-RIGHT-STYLE: none; BORDER-TOP-STYLE: none; WIDTH: 80px;COLOR: red;" size="20">
</td>
<%j=1
else
%><td valign="center"><input type="checkbox" name=m<% =jin("id")%> value="ON" ><input valign="top" readonly type="text" value=<% =jin("gongsmc")%> onclick="call mclick(<%=j%>,<%=tjzs%>)" style="cursor: hand;BORDER-BOTTOM-STYLE: none; BORDER-LEFT-STYLE: none; BORDER-RIGHT-STYLE: none; BORDER-TOP-STYLE: none; WIDTH: 80px;COLOR: red;" id=text1 name=text1 size="20">
</td>
<%end if
j=j+1
jin.movenext %>
<%loop
jin.close
%></table>
<% sql="SELECT * FROM gongs order by quanz "
set jin=server.createobject("adodb.recordset")
jin.open sql,conn,1,1
shu1=0
do until jin.eof
k=jin("id")
sql="SELECT * FROM bum where gongsid="& k & " order by quanz" %>
<table id="mylist" style=display:none width="100%" border="1" cellspacing="1" cellpadding="1">
<tr><td colspan=8 align="center">下面是<font color=red><%=jin("gongsmc")%></font>下的部门！</td></tr>
<%set jin1=server.createobject("adodb.recordset")
jin1.open sql,conn,1,1
j=1%>
<tr><%do until jin1.eof
shu1=shu1+1
if j>8 then%>
</tr><tr>
<td valign="center"><input type="checkbox" name=n<% =jin1("id")%> value="ON" ><input valign="top" readonly type="text" value=<% =jin1("bummc")%> onclick="call mclick1(<<%=shu1%>)" style="cursor: hand;BORDER-BOTTOM-STYLE: none; BORDER-LEFT-STYLE: none; BORDER-RIGHT-STYLE: none; BORDER-TOP-STYLE: none; WIDTH: 80px;COLOR: red;" size="20">
</td>
<%j=1
else%>
<td valign="center"><input type="checkbox" name=n<% =jin1("id")%> value="ON" ><input valign="top" readonly type="text" value=<% =jin1("bummc")%> onclick="call mclick1(<%=shu1%>)" style="cursor: hand;BORDER-BOTTOM-STYLE: none; BORDER-LEFT-STYLE: none; BORDER-RIGHT-STYLE: none; BORDER-TOP-STYLE: none; WIDTH: 80px;COLOR: red;" id=text2 name=text2 size="20">
</td>
<%end if
j=j+1%>
<%jin1.movenext
loop
jin1.close%>
</tr>
</table>
<%jin.movenext
loop
jin.close
%>
<% sql="SELECT * FROM bum order by gongsid,quanz "
set jin2=server.createobject("adodb.recordset")
jin2.open sql,conn,1,1
'jin.movefirst
shu=0
do until jin2.eof
k=jin2("id")
shu=shu+1
sql11="SELECT * FROM yuang where bumid="& k & " order by quanz" %>
<table id="mylist1" style=display:none width="100%" border="1" cellspacing="1" cellpadding="1">
<tr><td colspan=8 align="center">下面是<font color=red><%=jin2("bummc")%></font>下的用户！</td></tr>
<%set jin11=server.createobject("adodb.recordset")
jin11.open sql11,conn,1,1
j=1%>
<tr><%do until jin11.eof
if j>8 then%>
</tr><tr>
<td><input type="checkbox" name=c<% =jin11("id")%> value="ON" ><font color="#000040"><% =jin11("yuangmc")%></font></td>
<%j=1
else%>
<td><input type="checkbox" name=c<% =jin11("id")%> value="ON" ><font color="#000040"><% =jin11("yuangmc")%></font></td>
<%end if
j=j+1%>
<%jin11.movenext
loop
jin11.close%>
</tr>
</table>
<%jin2.movenext
loop
'res1.close %>
<table BORDER=1 cellspacing=0 cellpadding=0 bordercolordark=#FFFFFF width="100%" class=12Font bgcolor="#EAEAEA" >
<tr>
<td width=15% valign="top" > </td>
<td valign="top" height="25" colspan="3" >
<input name="Save" type="image" id="Save" value="提交" src=images/save.gif height="21" width="72" >
<a href="../../qunjlsgl/yewu/yewGONGNENG.asp">
<img src="images/return.gif" height="21" border="0" width="72"></a>
</td>
</tr>
</table>
</form>
<% else %>
<P><a href="Admin_Login.asp" target="_top">请登录</a> </p>
<%end if %>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -