📄 send.asp

📁 企业办公简单管理系统,可以发布信息以及论坛
💻 ASP
字号:
<!-- #include file="conn/logors.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name=description content="<%=site_title%>" >
<meta name=keyword content="<%=site_title%>">

<title><%=site_title%></title>
</head>
<%=styletext%>

<DIV class=menuskin id=popmenu 
onmouseover="clearhidemenu();highlightmenu(event,'on')" style="Z-INDEX: 100" 
onmouseout="highlightmenu(event,'off');dynamichide(event)"></DIV><!--顶部表格-->

<SCRIPT language=JavaScript src="style/main.js"></SCRIPT>
<SCRIPT LANGUAGE="JavaScript">
<!--
function select() 
{
	var values;
	with(document.creator.types) 
	{ 
		 values = options[selectedIndex].value; 
	}
	for(i = 0;i < itemarray.length;i ++) 
	{
		if (itemarray[i].value== values) 
		{
			
			loca3 = (itemarray[i].lsitems).split("#");
			for(j = 0;j < loca3.length;j++) 
			{ 
				with(document.creator.userid) 
				{ 
					length = loca3.length; 
					temparraya=loca3[j].split("@");
					options[j].text = temparraya[0]; 
					options[j].value =temparraya[1]; 
				}
			}
			break;
		}
	}
}
function init() 
{

	with(document.creator.types) 
	{
		length = itemarray.length;
		
		for(k=0;k<itemarray.length;k++) 
		{ 
			options[k].text =itemarray[k].text; 
			options[k].value =itemarray[k].value; 
		}
		selectedIndex=0;
	}
	with(document.creator.userid) 
	{
		loca3 = (itemarray[0].lsitems).split("#");
		length = loca3.length;
		for(l=0;l<length;l++) 
		{ 
			temparrayb=(loca3[0]).split("@");
			options[l].text = temparrayb[0]; 
			options[l].value = temparrayb[1]; 
		}
		selectedIndex=0;
	}	
}

function comefrom(text,value,lsitems) 
{ 
	this.text = text; 
	this.value= value;
	this.lsitems = lsitems; 
}

function OnSubmitCheck()
	{	

		if(document.creator.userid.selectedIndex==0) 
			{
				alert("请选择公文接收人!");
				return false;
			}
		return true;
	}

//-->
</SCRIPT>
<%
	set rs = Server.CreateObject("ADODB.Recordset")
	set rsitem = Server.CreateObject("ADODB.Recordset")
	
	sql="select * from cci_dept"
	rs.open sql,connObj,1,1
	sumcount=rs.recordcount
	
	i=0
	if sumcount>0 then
		response.Write "<script language=javascript>" & chr(13) & "var itemarray = new Array(" & rs.recordcount+1 & ");"& chr(13)
		response.Write "itemarray[0]=new comefrom(""请选择部门"",0,""请选择员工@0""); "& chr(13)
		i=1
	else
		response.Write "<script language=javascript>" & chr(13) & "var itemarray = new Array(2);"& chr(13)
		response.Write "itemarray[0]=new comefrom(""请选择部门"",""0"",""请选择员工@0""); "& chr(13)
		i=1	
	end if
	do while not rs.eof
		response.Write "itemarray[" & i & "]=new comefrom(""" & rs("deptname") & """," & rs("id") & ",""请选择员工@0"
		sql="select id,name from cci_user where deptid=" & rs("id")
		rsitem.open sql,connObj,1,1
		do while not rsitem.eof
			response.Write "#" & rsitem("name") & "@" & rsitem("id")
			rsitem.movenext
		loop
		i=i+1
		response.Write """);"& chr(13)
		rsitem.close
		rs.movenext
	loop
	rs.close
	response.Write "</script>"
%>
<body onload="init()">
<table width="750" height="200" align="center">
  <tr>
    <td height="97" align="center"  class=TableTitle2>
	  <!-- #include file="sitehead.asp" -->
	</td>
  </tr>
<tr>
    <td align="center" colspan="2" class="tablebody1">
		<% navigation_flag=6 %>
	<!-- #include file="func_navigationbar.asp" -->

	<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td width="20%" height="66" valign="top"> <!-- #include file="func_menulist.asp" --></td>
          <td valign="top">
		  
		  
		  
		  
<!-- #include file="func_verify.asp" -->
<%

dim sumcount,saveserial


if request("saveflag")<>"" then
	dim msg
	saveserial=1
	msg=""

	if trim(request("theName"))="" then
		msg=msg & saveserial & "、请输入名片姓名!<br>"
		saveserial=saveserial+1
	end if
	if trim(request("Mobile"))="" then
		msg=msg & saveserial & "、请输入手机号码!<br>"
		saveserial=saveserial+1
	end if
	if trim(request("Email"))="" then
		msg=msg & saveserial & "、请输入邮件地址!<br>"
		saveserial=saveserial+1
	end if
	if trim(request("Offtel"))="" then
		msg=msg & saveserial & "、请输入办公电话!<br>"
		saveserial=saveserial+1
	end if

	
	if trim(request("content"))="" then
		msg=msg & saveserial & "、请输入名片内容!<br>"
		saveserial=saveserial+1
	end if
	
	if saveserial<=1 then
		sql="select * from cci_oa_card"
		rs.open sql,connobj,3,3
		rs.addnew

		rs("userid")=session("userid")
		rs("deptid")=session("deptid")
		rs("stationid")=session("stationid")
		
		rs("theName")=trim(request("theName"))
		rs("StationID")=trim(request("StationID"))
		rs("Mobile")=trim(request("Mobile"))
		rs("Email")=trim(request("Email"))
		rs("Offtel")=trim(request("Offtel"))
		
		rs("content")=trim(request("content"))
		rs("memo")=trim(request("memo"))
		
		rs("indate")=now
		
		
		rs.update
		rs.close

		response.redirect "message.asp?rediurl=defaultA.asp&msgurl=首页&msginfo=名片申印操作成功！请耐心等待领导审批!"
	end if
	response.Write("<div align=center><font color=#FF0000>" &msg & "</font></div>")
end if





%>

  
<table width="100%" align="center" cellpadding="1" cellspacing="1" class=tableborder1>
  <form name="creator" method="post" action="upfile.asp" onSubmit="return OnSubmitCheck()" enctype="multipart/form-data">
  <input type=hidden name=saveflag value=1>
    <tr > 
      <th height="25" colspan="6" align="center" class=TopLighNav>公文发送</th>
    </tr>
    <tr>
      <td width="90" align="center" class=TopLighNav><b>部门</b></td>
      <td width="100" align="center" class=TopLighNav><%
	  
	  sql="select deptname from cci_dept where id=" & session("deptid")
	  rs.open sql,connobj,1,1
	  if not rs.eof then
	  	response.Write rs("deptname")
	  end if
	  rs.close
	  
	  %></td>
	  <td width="80" align="center" class=TopLighNav><b>发件人</b></td>
      <td width="80" align="center" class=TopLighNav><%=session("name")%></td>
	  <td width="80" align="center" class=TopLighNav><b>职务</b></td>
      <td align="center" class=TopLighNav><%
	  
	  sql="select stationname from cci_station where id=" & session("stationid")
	  rs.open sql,connobj,1,1
	  if not rs.eof then
	  	response.Write rs("stationname")
	  end if
	  rs.close
	  
	  %></td>
    </tr>
	
	 <tr>
      <td align="center" class=tablebody1>收件人</td>
	    <td class=tablebody1 valign="top" colspan="5"><select name=types onChange = "select()"></select>
		<select name="userid"></select>
                  </td>
		
    </tr>
	 <tr>
	            <td align="center" class=tablebody1>标题</td>
      <td class=tablebody1 colspan="5"><input name="title" type="text" size="90"></td>
  
    </tr>
    <tr >
                <td class=tablebody1 align="center">正文</td>
      <td colspan="5" class=tablebody1><textarea name="memo" cols="90" rows="8"></textarea></td>
    </tr>
    <tr >
                <td class=tablebody1 align="center">附件</td>
      <td colspan="5" class=tablebody1 align="left"><input type="file" name="file" size="40"></td>
    </tr>
	
	
    <tr>
      <td colspan="6" align="center" class=tablebody1><input type="submit" name="Submit" value=" 发 送 "></td>
    </tr>	
	
	
  </form>
</table>
		  
		  
		  
		  
		  
		  
		  
		  
		  
		  
		  
		  
		  
		  </td>
        </tr>
      </table>
	
	
	 </td>
</tr> 

  <tr>
    <td class="tablebody1"> 
      <!-- #include file="sitefloor.asp" -->    </td>
  </tr>
</table>

</body>
</html>
⌨️ 快捷键说明

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