📄 send.asp
字号:
<!--#include file="conn.asp"-->
<%if session("adminadmin")<>true then response.redirect("list.asp") end if%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>发送信息</title>
<!--#include file="css.css"-->
</head>
<body topmargin="1">
<%doing=request.querystring("doing")%>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><!--#include file="top.asp"-->
</td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="140" valign="top" bgcolor="#98a5d0">
<table width="140" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><!--#include file="left.asp"--></td>
</tr>
</table>
</td>
<td width="560" valign="top" bgcolor="98a5d0">
<table width="400" border="0" cellpadding="0" cellspacing="0" class="unnamed12">
<tr>
<td> </td>
</tr>
</table>
<table width="500" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><form name="form1" method="post" action="sendto.asp?back=list.asp<%if doing="list_user_all" then%>&see=user_all<%end if%>">
<table width="500" border="0" cellspacing="0" cellpadding="1">
<tr>
<td width="20" valign="middle" bgcolor="#FF9966" class="unnamed14"> <div align="center">接受方</div></td>
<td valign="top"><table width="100%" border="0" cellpadding="2" cellspacing="2" bgcolor="#ffcc99">
<tr>
<td height="20" class="unnamed14"> <input name="userall" type="checkbox" id="userall" value="yes">
所有人 </td>
</tr>
<tr>
<%str="select * from bumeng "
set rs=conn.execute(str)%>
<td height="20" class="unnamed14"> <%bumeng_count=1%> <%do while not rs.eof%> <input name="bumeng<%=cstr(bumeng_count)%>" type="checkbox" id="bumeng<%=cstr(bumeng_count)%>" value=<%=rs("部门")%>>
<a href=list_bumeng.asp?bumeng=<%=rs("部门")%> target="_blank"><%=rs("部门")%></a>
<%if bumeng_count mod 5=0 then response.write "<br>" end if%> <%rs.movenext
bumeng_count=bumeng_count+1
loop
session("bumeng_count")=bumeng_count%>
</td>
</tr>
<%if doing<>"list_user_all" then%> <tr>
<td height="22" class="unnamed14h20">指定人：
<input name="sele_name" type="text" id="sele_name" size="44">
<a href="send.asp?doing=list_user_all">显示所有人</a> </td>
</tr>
<tr>
<td height="20" class="unnamed14h20"> 请输入收文人单位，多人以半角的“|”符号隔开。</td>
</tr>
<%else%>
<td height="22" class="unnamed14h20">选定人： </td>
</tr>
<tr>
<td height="20" class="unnamed14h20">
<%
sender=session("user_name")
str="select 单位 from user where 用户类别<>'超级管理员' and 单位<>'"&sender&"' order by 序号 ASC"
set rs=conn.execute(str)
%>
<table width="100%" border="0">
<tr class="unnamed12">
<%user_all=1
do while not rs.eof%>
<td>
<input name="se_name<%=user_all%>" type="checkbox" id="se_name<%=user_all%>" value="<%=rs("单位")%>">
<%=rs("单位")%></td>
<%if user_all mod 5=0 then%></rd><tr class="unnamed12"><%end if%>
<% user_all=user_all+1
rs.movenext
loop%><%session("user_all")=user_all%>
</tr>
</table> </td>
</tr>
<%end if%>
</table></td>
</tr>
</table>
<br>
<table width="500" border="0" cellspacing="0" cellpadding="1">
<tr bgcolor="#FF9966">
<td width="70" height="30" class="unnamed14">文件主题：</td>
<td width="420" bgcolor="#FF9966"><input name="title" type="text" id="title" size="55"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="1">
<tr>
<td bgcolor="#ffcc99" class="unnamed14"><span class="unnamed14h20">文件内容：</span><br>
<textarea style="font-family:宋体;font-size:14px" name="text_all" cols="65" rows="20" wrap="PHYSICAL" id="text_all"></textarea> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="1">
<tr>
<%newfile=cstr(year(now))
m=month(now)
if m<10 then m="0"&cstr(m) else m=cstr(m) end if
newfile=newfile&m
d=day(now)
if d<10 then d="0"&cstr(d) else d=cstr(d) end if
newfile=newfile&d
h=hour(now)
if h<10 then h="0"&cstr(h) else h=cstr(h) end if
newfile=newfile&h
m=minute(now)
if m<10 then m="0"&cstr(m) else m=cstr(m) end if
newfile=newfile&m
%>
<td bgcolor="#ffcc99"> <a href="in_file.asp?file_name=<%=newfile%>" target="_blank"><span class="unnamed14">添加附件</span></a></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="1">
<tr>
<td bgcolor="#FF9966"><div align="center">
<input type="submit" name="Submit" value=" 发 送 ">
<input type="reset" name="Submit2" value=" 重 填 ">
</div></td>
</tr>
</table>
</form></td>
</tr>
<tr>
<td></td>
</tr>
</table></td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><!--#include file="bottom.asp"--></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -