📄 duinfw_msxfcp.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>
<%
id=request("id")
sql="select * from duinfw where id="&id
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<body topmargin="3">
<form name="form1" action="duinfw_msxfcp1.asp?id=<%=id%>" target="main" method="post">
<table BORDER=1 style=display:none 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>
<% lb1=rs("fawlb")
sql="select * from gongs order by quanz"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
fsry=""
do until rs.eof
k1=rs("id")
k2=rs("gongsmc")
string1=request("m"&k1)
if string1="ON" then
'发全部小类
sql11="SELECT * FROM yuang where gongs='"&k2&"'"
set jin11=server.createobject("adodb.recordset")
jin11.open sql11,conn,1,1
do until jin11.eof
if fsry<>"" then
fsry=fsry+","+jin11("yuangmc")
else
fsry=jin11("yuangmc")
end if
jin11.movenext
loop
jin11.close
end if
rs.movenext
loop
rs.close
sql="select * from bum order by quanz"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do until rs.eof
k1=rs("id")
k2=rs("bummc")
string1=request("n"&k1)
if string1="ON" then
'发全部小类
sql11="SELECT * FROM yuang where bumid="&k1
set jin11=server.createobject("adodb.recordset")
jin11.open sql11,conn,1,1
do until jin11.eof
if fsry<>"" then
fsry=fsry+","+jin11("yuangmc")
else
fsry=jin11("yuangmc")
end if
jin11.movenext
loop
jin11.close
end if
rs.movenext
loop
rs.close
sql="select * from yuang order by quanz"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do until rs.eof
k1=rs("id")
string1=request("c"&k1)
if string1="ON" then
'发全部小类
if fsry<>"" then
fsry=fsry+","+rs("yuangmc")
else
fsry=rs("yuangmc")
end if
end if
rs.movenext
loop
rs.close
'response.write(fsry)
%>
<table width="100%" border="1" cellspacing="1" cellpadding="1">
<tr>
<td><p align="center"><font color="#FF0000">秘书下发<%=lb1%>人员列表</font></td>
</tr>
<tr class="tdbg">
<td >
<textarea name="Content3" cols="105" rows="12" id="Content3"><%=fsry%></textarea>
</td>
</tr>
</table>
<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 + -