📄 fbfile.asp
字号:
<html>
<head>
<title>∷公文传输系统|电子公文交换系统|文件传输系统|办公自动化系统|公文管理系统|文档管理软件|公文上报系统|政务信息上报系统 ——智元软件</title>
<META name="keywords" content="公文传输系统 电子公文交换系统 企业文档传输系统 文件传输系统 办公自动化系统 公文管理系统 企业文档管理软件 公文上报系统 政务信息上报系统 智元软件">
<META content="智元软件公文传输系统实现党政机关企事业单位部门与部门之间，单位与单位之间公文上报和下发。我们致力于为您提供操作简便、直观实用、价格便宜的公文交换软件，可直接在线或下载试用，每套系统仅售1200元。上百家成功应用客户案例和我们诚信专业完善的售后服务，是您信任我们的基础。" name="description">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="asp/opendb.asp"-->
<!--#include file="asp/top.asp"-->
<!--#include file="asp/checkuser.asp"-->
<script Language="JavaScript">
function form_check(){
if(document.form2.joinman.value==""){window.alert("接收单位不能为空");document.form2.joinman.focus();return (false);}
if(document.form2.title.value==""){window.alert("文件标题不能为空");document.form2.title.focus();return (false);}
if(document.form2.fbdw.value==""){window.alert("发文单位不能为空");document.form2.fbdw.focus();return (false);}
if(document.form2.filename.value=="没有类型"){window.alert("文件类型不能没有");document.form2.filename.focus();return (false);}
}
</script>
<%
if request("nid")<>"" then
count=0
condition=""
for each idno in request("nid")
count=count+1
condition=condition+"|" & idno
next
end if
set conn=opendb("oabusy","conn","accessdsn")
%>
<link rel="stylesheet" href="css/css.css">
</head>
<body topmargin="5" leftmargin="0">
<center><br>
<b>发布文件</b> "<font color=red>*</font>"号的表示必须填写
</center>
<center>
<hr width="90%" size="1" noshade color="ff6633">
<form method=post name=form2 action="sendfileindb.asp" enctype="multipart/form-data">
<table width="90%" border="0" cellpadding="1" cellspacing="0" align="center">
<tr>
<td>
<table width="100%" border="0" bgcolor="#cccccc" cellpadding="1" cellspacing="1">
<tr>
<td width="150">
<div align="center"></div>
</td>
<td valign="top" align="left" colspan="2"> </td>
</tr>
<tr bgcolor="#eeeeee">
<td width="150">
<div align="right">文件接收单位：</div> </td>
<td colspan="2" align="left" valign="top">
<textarea name="joinman" cols="60" readonly=" " rows="4" style="border:1 solid #000000;background:#ffffff"><%=condition%></textarea>
<font color=red>*</font> <a href="USERLIST.ASP?opper=fbfile.asp" >接收单位列表</a></td>
</tr>
<tr bgcolor="#eeeeee">
<td width="150">
<div align="right">文件标题：</div>
</td>
<td width="498">
<input type=text name="title" size=60 style="border:1 solid #000000;background:#ffffff">
<font color=red>*</font> </td>
<td width="234">
<%
set rs1=server.createobject("ADODB.recordset")
sql1="select * from fbgtype order by id asc"
rs1.open sql1,conn,1,3
%>
<div align="left">文件类型：
<select name="filename" size="1" style="border:1 solid #000000;background:#ffffff">
<%
if not rs1.eof and not rs1.bof then
i=0
do while not rs1.EOF
if instr(rs1("username"),oabusyusername)>1 or instr(1,"||supermanage||chksuper|",oabusyuserpower)>1 or instr(rs1("fbuser"),oabusyusername)>1 then
i=i+1
%>
<option value="<%=rs1("typename")%>"><%=rs1("typename")%></option>
<%
end if
rs1.Movenext
loop
if i=0 then Response.Write "<option value='没有类型'>无权发布或没有类型</option>"
else
%>
<option value="没有类型">没有类型</option>
<% end if
rs1.Close
set rs1=nothing
conn.close
set conn=nothing%>
</select>
</div>
</td>
</tr>
<tr bgcolor="#eeeeee">
<td width="150" height="30">
<div align="right">发文单位：</div> </td>
<td height="30" colspan="2">
<input type="text" name="fbdw" size="60" value="" style="border:1 solid #000000;background:#ffffff">
<font color=red>*</font>
<div align="center"></div> </td>
</tr>
<tr bgcolor="#eeeeee">
<td width="150">
<div align="right">上传文件：</div>
</td>
<td colspan="2">
<input type="file" name="file1" size=60 style="border:1 solid #000000;background:#ffffff">
(PDF文档)</td>
</tr>
<tr valign="top" bgcolor="#eeeeee">
<td colspan="3"> </td>
</tr>
<%if false then%>
<tr valign="top" bgcolor="#eeeeee">
<td width="150"> </td>
<td colspan="2" height="26">
<% if instr(1,"||supermanage||chksuper|",oabusyuserpower)>1 then%>
<input type="text" name="dfdw" readonly="1" value="" style="border:1 solid #000000;background:#ffffff">
<a href="#" onClick="MM_openBrWindow('dfUSERLIST.ASP?opper=fbfile.asp','','scrollbars=yes,width=450,height=600')"></a>
<input type="text" name="df" value="" readonly="1" style="border:1 solid #000000;background:#ffffff" >
<%end if%></td>
</tr><%end if%>
</table>
</table></table>
<br>
<input type="submit" name="submit" value="发布" onclick="return form_check();" style="border:1 solid #000000;background:#cc6600">
<input type="reset" name="Reset" value="重填" style="border:1 solid #000000;background:#cc6600">
</form>
</center>
</body>
</html><!--#include file="footer.htm"-->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -