📄 sendsmg.asp
字号:
<!--#include file="conn.asp" -->
<%
if request.Form("submit")="发送" then
sql="select * from [send]"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
receiver=request("receiver")
if instr(receiver,",")>1 then
receiver=left(receiver,len(receiver)-1)
end if
rs.addnew()
rs("title")=request("title")
rs("receiver")=receiver
rs("content")=request("content")
rs("sender")=session("loginID")
rs("senderIP")=getIP()
rs("sendTime")=now()
rs.update
rs.close
sql="select * from [receive]"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
ppp=split(receiver,",")
for i=0 to ubound(ppp)
rs.addnew()
rs("title")=request("title")
rs("receiver")=ppp(i)
rs("content")=request("content")
rs("sender")=session("loginID")
if ubound(ppp)>1 then
rs("ismany")=true
else
rs("ismany")=false
end if
rs("receivers")=receiver
rs("senderIP")=getIP()
rs("sendTime")=now()
rs.update
next
rs.close
%>
<script>
alert("发送成功");
location.href="sendsmg.asp";
</script>
<%
response.end
end if
%>
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=gb2312" />
<TITLE>办公自动化系统</TITLE>
<link href="skins/css/main.css" rel="stylesheet" type="text/css" />
</head>
<body>
<table border="0" cellpadding="3" cellspacing="1" width="100%" align=center>
<form action="" method=post>
<tr>
<th colspan="4">编写邮件</th>
</tr>
<tr>
<td class="td2">收件人：</td>
<td class=td1><input name="receiver" type=text id="receiver" size=45></td>
<td width="9%" rowspan="3" align="center" valign="top" class=td1>部门人员：</td>
<td width="28%" rowspan="3" valign="top" class=td1><select name="alluser" size="10" id="alluser" onDblClick="addreceiver(this.value)">
<option value="0">选择收件人</option>
<%
sql="select * from [user] where loginID<>'admin' order by id desc"
set rs=conn.execute(sql)
while not rs.eof
%>
<option value="<%=rs("loginID")%>"><%=rs("username")%></option>
<%
rs.movenext
wend
rs.close
%>
</select>
<script>
function addreceiver(user){
if ((user!=0)&&(document.all.receiver.value.indexOf(user)<0))
document.all.receiver.value+=user+",";
}
</script>
</td>
</tr>
<tr>
<td class="td2">信件标题：</td>
<td class=td1><input name="title" type=text id="title3" size=45></td>
</tr>
<tr>
<td width="11%" height="23" class="td2">信件内容：</td>
<td width="52%" class=td1><textarea name="content" cols="45" rows="6" id="content"></textarea></td>
</tr>
<tr>
<th style="text-align:center;" colspan="4"><input name="submit" type=submit class="button" value="发送"></th>
</tr>
</form>
</table>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -