⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 oa_add.asp

📁 一个比较完整的企业erp系统
💻 ASP
字号:
<%@language="vbscript" codepage="936" %>
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/config.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>常州新北学区公文流转-公文撰写</title>
<link href="../inc/setup.css" rel="stylesheet" type="text/css">
<link href="../inc/textbox.css" rel="stylesheet" type="text/css">
</head>
<%
if CheckUserLogined()=False then
	response.Redirect "../login.asp"
end if%>

<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&"' value size='30' class='textbox' ></td></tr>"
next
window.uptd.innerHTML =str&"</table>"
end function
</SCRIPT>
<body leftmargin="0" topmargin="0" onLoad="addfile()">
<table cellpadding="6" cellspacing="1" border="0" width="100%"  align=center>
    <tr bgcolor=ffffff> 
      <th width="100%" height=12 align="center" bgcolor="ffffff">公文文件撰写</th>
    </tr>
</table>
<table width="776" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 


    <td width="792" valign="top" >
<FORM ACTION="oa_upfile.asp" METHOD="post" ENCTYPE="multipart/form-data" NAME="myform" id="myform" >
        <table width="95%" border="0" align="center" cellpadding="2" cellspacing="1">
          <tr> 
            <td height="33" colspan="2"><font color="#CC0000">公文文件撰写</font></td>
          </tr>
          <tr> 
            <td width="17%">公文标题:</td>
            <td><input name="title" type="text" id="title" size="40" class="textbox">
              <font color="#FF3300">*</font></td>
          </tr>
          <tr> 
            <td>公文录入:</td>
            <td><input name="author" type="text" id="author" value="<%=Trim(Session("ManageName"))%>" size="40" class="textbox" readonly>
              <font color="#FF3300"> *</font></td>
          </tr>
          <tr> 
            <td>公文附件:</td>
            <td><TABLE width="449" BORDER="0" ALIGN="center" CELLPADDING="0" CELLSPACING="0">
                <TR> 
                  <TD width="469"><TABLE WIDTH="94%" BORDER="0" ALIGN="center" CELLPADDING="0" CELLSPACING="0" STYLE="BORDER-COLLAPSE: collapse">
                      <TR> 
                        <TD HEIGHT="27" COLSPAN="2">上传 
                          <select name="filenum" onchange="vbscript:addfile()" class="textbox">
                            <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;xls,总大小5M以内</font>) 
                        </TD>
                      </TR>
                      <TR> 
                        <TD> <DIV ID="uptd"> </DIV></TD>
                      </TR>
                    </TABLE></TD>
                </TR>
              </TABLE></td>
          </tr>
          <tr> 
            <td>公文备注:</td>
            <td>
            	
<INPUT type="hidden" name="content"> <iframe ID="content" src="../../html2/ewebeditor.htm?id=content&style=coolblue" frameborder="0" scrolling="no" width="550" HEIGHT="350"></iframe>             	
            	</td>
          </tr>
          <tr> 
            <td valign="top"><strong>指定对象:</strong></td>
            <td width="83%"> <table width="100%" border="0" cellpadding="0" cellspacing="0">
                <tr> 
                  <td height="37" colspan="4"> <script language="javaSCRIPT">
function cloneOption(aOption)
{return new Option(aOption.text,aOption.value,aOption.defaultselected,aOption.selected);
}
function onAdd()
{var aCurrentOptions=document.myform.City.options;
var aNewOptions=document.myform.selectRight.options;
while(aNewOptions.selectedIndex>-1){
 var aOption=cloneOption(aNewOptions[aNewOptions.selectedIndex]);
 aNewOptions[aNewOptions.selectedIndex]=null;
 aCurrentOptions[aCurrentOptions.length]=aOption;
 aCurrentOptions.selectedIndex=aCurrentOptions.length;}
}
function onRemove()
{
var aCurrentOptions=document.myform.City.options;
var aNewOptions=document.myform.selectRight.options;
 while(aCurrentOptions.selectedIndex>-1){
 var aOption=cloneOption(aCurrentOptions[aCurrentOptions.selectedIndex]);
 aCurrentOptions[aCurrentOptions.selectedIndex]=null;
 aNewOptions[aNewOptions.length]=aOption;
 aNewOptions.selectedIndex=aNewOptions.length;}
}
</script> <script language=javascript>
cities = new Object();
cities['学校用户']=new Array('中心小学','西浦小学','浦头小学','埭头小学','吕厝小学','丙州小学','官浔小学','潘涂小学','洪塘头小学','后田小学','美星小学' );
cities['学区用户']=new Array('学区书记室', '学区校长室', '学区副校长室', '学区教导处', '学区办公室', '幼教室','陈沙波','学区工会');
function set_City(Province, City)
{
  var pv, cv;
  var i, ii;
   
  pv=Province.value;
  cv=City.value;

  City.length=0;

  if(pv=='0') return;
  if(typeof(cities[pv])=='undefined') return;
  for(i=0; i<cities[pv].length; i++)
  {
     ii = i;

     City.options[ii] = new Option();
     City.options[ii].text = cities[pv][i];
     City.options[ii].value = cities[pv][i];
  }

}

</script> 
                  <td width="2%" rowspan="2" valign="middle">&nbsp; </td>
                  <td width="14%" valign="middle">&nbsp;</td>
                  <td width="17%" rowspan="2" valign="middle"> <input type="button" value="添加发布对象" name="B2" onClick=onRemove()> 
                    <br> <input type="button" value="删除发布对象" name="B1" onClick=javascript:onAdd()></td>
                  <td width="67%" valign="middle"><font color="#FF0000">接收用户</font></td>
                </tr>
                <tr>
                  <td width="14%" valign="middle">

                    
<select name=City size="11"  ondblclick=onRemove() multiple  id="select">
                <% dim school_rs,school_sql
				    set school_rs=Server.CreateObject("ADODB.RECORDSET")
                    school_sql="Select * from [HQ_User]"
                    school_rs.open school_sql,conn,1,3 
                  	%>
                <%while not school_rs.eof %>
                <option value="<%=school_rs("User_Name")%>" name="school" size=16><%=school_rs("User_Name")%></option>
                <%school_rs.movenext
                       wend
  
					school_rs.close
					set school_rs=nothing
				  %>
              </select>                    
                    
                    </td>
                  <td valign="middle"><select name="selectRight" size="11" ondblclick=onAdd() multiple id="selectRight">
                    </select> <input name="Action" type="hidden" id="Action2" value=","></td>
                </tr>
              </table></td>
          </tr>
          <tr> 
            <td>&nbsp;</td>
            <td>&nbsp;</td>
          </tr>
          <tr> 
            <td>&nbsp;</td>
            <td>&nbsp;</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: 281px; top: 254px; 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>
	  
	  </td>
  </tr>
</table>

</body>
</html>
<script language="JavaScript">
function UpdateSubmit()
{
  document.myform.Action.value='';
    for(var i=0;i<document.myform.selectRight.length;i++){
      if (document.myform.Action.value=='') document.myform.Action.value=document.myform.selectRight.options[i].value;
      else document.myform.Action.value+=','+document.myform.selectRight.options[i].value;
    }
} 


</script>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -