📄 oa_add_1.asp
字号:
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/config.asp"-->
<%
if CheckUserLogined()=False then
response.Redirect "../index.asp"
end if%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>公文发布</title>
<link href="../inc/main.css" rel="stylesheet" type="text/css">
</head>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
<SCRIPT LANGUAGE="vbscript">
function addfile()
dim str
str="<table>"
if not IsNumeric (window.myform.filenum.value) then window.myform.filenum.value =1
if (window.myform.filenum.value>8) then window.myform.filenum.value =8
for i=1 to window.myform.filenum.value
str=str&"<tr><td valign='middle'>文件"&i&":</td><td><input type='file' name='file"&i&"' class='tx1' value size='30'></td></tr>"
next
window.uptd.innerHTML =str&"</table>"
end function
</SCRIPT>
<body onLoad="addfile()">
<FORM ACTION="oa_upfile.asp" METHOD="post" ENCTYPE="multipart/form-data" NAME="myform" id="myform" >
<table width="700" border="0" cellspacing="3" cellpadding="2">
<tr>
<td colspan="2"><font color="#CC0000">公文文件发布</font></td>
</tr>
<tr>
<td width="20%">公文标题：</td>
<td><input name="title" type="text" id="title" size="40"></td>
</tr>
<tr>
<td>公文录入：</td>
<td><input name="author" type="text" id="author" value="<%=Trim(Request.Cookies("ye51")("School"))%>" size="40"></td>
</tr>
<tr>
<td>公文附件：</td>
<td><TABLE width="486" BORDER="0" ALIGN="center" CELLPADDING="0" CELLSPACING="0">
<TR>
<TD width="469"><TABLE WIDTH="98%" BORDER="0" ALIGN="center" CELLPADDING="0" CELLSPACING="0" STYLE="BORDER-COLLAPSE: collapse">
<TR>
<TD HEIGHT="27" COLSPAN="2">上传
<select name="filenum" onchange="vbscript:addfile()">
<option value="0">0</option>
<option value="1" selected>1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="4">4</option>
<option value="5">5</option>
</select>
个公文附件 （<font color="#FF3300">rar;zip;doc;wps，总大小5M以内</font>）
</TD>
</TR>
<TR>
<TD> <DIV ID="uptd"> </DIV></TD>
</TR>
</TABLE></TD>
</TR>
</TABLE></td>
</tr>
<tr>
<td>公文备注：</td>
<td><textarea name="content" cols="60" rows="10" id="content"></textarea></td>
</tr>
<tr>
<td>指定对象：</td>
<td width="61%"> <table width="48%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="150">
<select name="school" size="13" multiple id="school">
<% dim school_rs,school_sql
set school_rs=Server.CreateObject("ADODB.RECORDSET")
school_sql="Select * from [school_data] where UserLevel=0"
school_rs.open school_sql,conn,1,3
%>
<%while not school_rs.eof %>
<option value="<%=school_rs("school")%>" name="school" size=16><%=school_rs("school")%></option>
<%school_rs.movenext
wend
school_rs.close
set school_rs=nothing
%>
</select>
</td>
<td width="67%"><div align="center">
<select name="school" size="13" multiple id="school">
<% dim school_rs1,school_sql1
set school_rs1=Server.CreateObject("ADODB.RECORDSET")
school_sql1="Select * from [school_data] where UserLevel=1"
school_rs1.open school_sql1,conn,1,3
%>
<%while not school_rs1.eof %>
<option value="<%=school_rs1("school")%>" name="school" size=16><%=school_rs1("school")%></option>
<%school_rs1.movenext
wend
school_rs1.close
set school_rs1=nothing
%>
</select>
</div></td>
</tr>
</table></td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
</table>
<div align="center">
<INPUT TYPE="submit" NAME="Button" VALUE="发布提交" onClick="UpdateSubmit();">
</div>
</form>
<div id="LableArea" style="position:absolute; visibility:hidden; width:200px; height:64px; z-index:1; left: 434px; top: 219px; background-color: #3A6EA5; layer-background-color: #3A6EA5; border: 1px none #000000;">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="middle">
<div align="center" id="ShowArea"><marquee align="middle" behavior="alternate" scrollamount="5" style="font-size:9pt"><font color=#FFFFFF>...请稍等,数据上传中...</font></marquee></div></td>
</tr>
</table>
</div>
</body>
</html>
<script language="JavaScript">
function UpdateSubmit()
{
var ErrorStr='',TempStr='';
var ForVar,i;
var Str = '请稍等,数据上传中...';
{
LableArea.style.visibility='visible';
}
}
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -