?? send_message.asp
字號:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<!--#include file="connsf.asp" -->
<!--#include file="md5.inc" -->
<!--#include file="checkstr.asp" -->
<!--#include file="config.asp" -->
<%'檢驗用戶
user=checkstr(session("user"))
pass1=ucase(md5(session("pass")))
str="select 姓名,能否發送 from user_teacher where 用戶名='"&user&"' and 密碼='"&pass1&"'"
set rs=conn.execute(str)
if rs.eof then
response.redirect("user_login.asp")
else
user_name=rs("姓名")
sendyesno=rs("能否發送")
end if
rs.close
if sendyesno="0" then response.redirect("list.asp")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>發送信息</title>
<!--#include file="css.css" -->
<script LANGUAGE="javascript">
<!--
function form1_onsubmit() {
var i, n;
if (document.form1.zt.value=="")
{
alert("對不起，請輸入發送信息的主題！")
document.form1.zt.focus()
return false
}
else if (document.form1.zt.value.length < 2)
{
alert("您的主題能不能長一點！")
document.form1.zt.focus()
return false
}
}
//Function to open pop up window
function openWin(theURL,winName,features) {
window.open(theURL,winName,features);
}
//-->
</script>
<SCRIPT>
// Begin upload1
function upload1(upload1)
{
url ='upload1.asp';
window.open(url,upload1,"width=520,height=180,status=no,toolbar=no,menubar=no,scrollbars=no,resizable=no");
}
// End adduser-->
</script>
</head>
<%doing=Trim(Request.QueryString("doing"))%>
<%'信息寫入數據庫
if doing="sendto" then
usr_all=Trim(Request.Form("usr_all"))
set sele_bumeng=Request.Form("sele_bumeng")
set sele_zhuwu=Request.Form("sele_zhuwu")
set sele_name=Request.Form("sele_name")
sure_user=Trim(Request.Form("sure_user"))
zt=Trim(Request.Form("zt"))
zt=checkstr(zt)
nr=Request.Form("nr")
nr=checkstr(nr)
if nr="" then nr=" "
fj_name=session("fj_name")
session("fj_name")=empty
fj_sm=session("fj_sm")
session("fj_sm")=empty
if fj_name="" then fj_name=" "
if fj_sm="" then fj_sm=" "
fj_count=int(len(fj_name)/24)
jsz="|"
if usr_all="1" then '發送給全部人員
usr_all="1"
else '發給部分人員
usr_all="0"
'得到部門人
for each temp in sele_bumeng
str="select 姓名 from user_teacher where 部門='"&temp&"'"
set rs=conn.execute(str)
if not rs.eof then
do while not rs.eof
jsz=jsz&rs("姓名")&"|"
rs.movenext
loop
end if
rs.close
next
'得到職務人員
for each temp in sele_zhuwu
temp1="|"&temp&"|"
str="select 姓名 from user_teacher where 職務 like '%"&temp1&"%'"
set rs=conn.execute(str)
if not rs.eof then
do while not rs.eof
jsz=jsz&rs("姓名")&"|"
rs.movenext
loop
end if
rs.close
next
'得到選擇人員
for each temp in sele_name
jsz=jsz&temp&"|"
next
'得到指定人
if sure_user<>"" then jsz=jsz&sure_user&"|"
end if
sql="select * from woa"
rs.open sql,conn,2,3
rs.addnew
rs("主題")=1
rs("跟貼主題")=0
rs("點擊數")=0
rs("跟貼數")=0
rs("標題")=zt
rs("內容")=nr
rs("發文日期")=date
rs("發文時間")=time
rs("發文者")=user_name
rs("接收者")=jsz
rs("已看者")="|"
rs("已清除者")="|"
rs("附件數")=fj_count
rs("附件說明")=fj_sm
rs("附件")=fj_name
rs("所有人")=usr_all
rs("置頂")=0
rs("成批刪除")=1
rs("清除")=1
rs.update
rs.close
response.redirect("list.asp")
end if
%>
<body topmargin="1" oncontextmenu="return false">
<div align="center">
<table width="760" border="0" cellpadding="0" cellspacing="0" class="tabletblg">
<tr>
<td><!--#include file="top.asp" --></td>
</tr>
</table>
<table width="760" border="0" cellpadding="0" cellspacing="0" class="tablelrb">
<tr>
<td class="fontsize04"> </td>
</tr>
</table>
<table width="760" border="0" cellpadding="0" cellspacing="0" class="tablelrb">
<tr>
<td height="30" bgcolor="#6699FF">
<!--#include file="menu.asp" -->
</td>
</tr>
</table>
<table width="760" border="0" cellpadding="0" cellspacing="0" class="tablelrb">
<tr>
<td class="fontsize04"> </td>
</tr>
</table>
<table width="760" border="0" cellpadding="0" cellspacing="0" class="tablelrb">
<tr>
<td height="30" bgcolor="#6699FF"> <span class="fontsize14"><%=user_name%>，你好！歡迎使用留溪網上傳文系統。你現在可以發送信息！</span></td>
<td width="40" bgcolor="#6699FF"><div align="center"><a href="list.asp?pageno=<%=pageno%>" class="fontsize14wu" onMouseOver="window.status='';return true"><strong><font color="#FF0000">返回</font></strong></a></div></td>
</tr>
</table>
<table width="760" border="0" cellpadding="0" cellspacing="0" class="tablelrb">
<tr>
<td class="fontsize04"> </td>
</tr>
</table>
<table width="760" border="0" cellpadding="0" cellspacing="0" class="tablelrb">
<tr>
<td bgcolor="#6699FF"><table width="600" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="fontsize10"> </td>
</tr>
</table>
<table width="750" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><form name="form1" LANGUAGE="javascript" onsubmit="return form1_onsubmit()" method="post" action="send_message.asp?doing=sendto">
<table width="740" border="1" align="center" cellpadding="2" cellspacing="0" borderColorLight="#000000" borderColorDark="#ffffff">
<tr>
<td width="16" align="center" valign="middle" bgcolor="#99CCFF">
<p class="fontsize14">接</p> <p class="fontsize14">收</p>
<p class="fontsize14">人</p></td>
<td width="710" valign="top" bgcolor="#99CCFF" class="fontsize14h20wu"><table width="100%" border="0" align="center" cellpadding="3" cellspacing="0">
<tr>
<td><input name="usr_all" type="checkbox" id="usr_all" value="1">
<span class="fontsize14">所有人 <font color="#FF0000">若選所有人接收信息，則下面不用再選擇。</font> <%if doing<>"list_all_yes" then%>
<a href="send_message.asp?doing=list_all_yes" class="fontsize14wu" onMouseOver="window.status='';return true">顯示所有人姓名</a>
<%else%>
<a href="send_message.asp" class="fontsize14wu" onMouseOver="window.status='';return true">關閉所有人姓名</a>
<%end if%></span></td>
</tr>
</table>
<%str="select * from woa_bumeng"
set rs=conn.execute(str)
if not rs.eof then
m=0%>
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="0">
<tr>
<%do while not rs.eof%>
<td width="14%">
<input name="sele_bumeng" type="checkbox" id="sele_bumeng" value="<%=rs("部門")%>">
<span class="fontsize14"><%=rs("部門")%></span></td>
<%rs.movenext
m=m+1
if m mod 7=0 then response.write "</tr><tr>"
loop%>
</tr>
</table>
<%end if
rs.close%>
<%str="select * from woa_zhuwu"
set rs=conn.execute(str)
if not rs.eof then
m=0%>
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<%do while not rs.eof%>
<td width="14%">
<input name="sele_zhuwu" type="checkbox" id="sele_zhuwu" value="<%=rs("職務")%>">
<span class="fontsize14"><%=rs("職務")%></span></td>
<%rs.movenext
m=m+1
if m mod 7=0 then response.write "</tr><tr>"
loop%>
</tr>
</table>
<%end if
rs.close%>
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td class="fontsize14">指定接收人：
<input name="sure_user" type="text" class="inputtext" id="sure_user" size="40">
請輸入收文人姓名，多人以半角的“|”符號隔開。</td>
</tr>
</table>
<%if doing="list_all_yes" then%>
<%str="select 姓名,部門 from user_teacher order by "&jsrx&""
set rs=conn.execute(str)
if not rs.eof then
m=0%>
<table width="99%" border="0" align="center" cellpadding="1" cellspacing="0">
<tr>
<%do while not rs.eof%>
<td width="14%"><input name="sele_name" type="checkbox" id="sele_name" value="<%=rs("姓名")%>">
<span class="fontsize12h20"><%=rs("姓名")%>(<%=left(rs("部門"),1)%>)</span></td>
<%rs.movenext
m=m+1
if m mod 7=0 then response.write "</tr><tr>"
loop%>
</tr>
</table>
<%end if%>
<%rs.close
end if%>
</td>
</tr>
</table>
<table width="500" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="fontsize04"> </td>
</tr>
</table>
<table width="740" border="1" align="center" cellpadding="2" cellspacing="0" borderColorLight="#000000" borderColorDark="#ffffff" bgcolor="#99CCFF">
<tr>
<td width="40" class="fontsize14"><div align="center">主題</div></td>
<td width="706"><div align="center">
<input name="zt" type="text" class="inputtext" id="zt" size="112">
</div></td>
</tr>
<tr>
<td valign="top" class="fontsize14">
<div align="center">內容</div></td>
<td><div align="center">
<textarea name="nr" style="font-family:宋體;font-size:12px" cols="110" rows="20" id="nr"></textarea>
</div></td>
</tr>
<tr>
<td class="fontsize14"><div align="center">附件</div></td>
<td height="30">
<input type="button" name="Submit2" class="inputbox" value="上傳附件" style="font-size: 9pt;cursor:hand" onclick="javascript:upload1()" title="選擇上傳文件">
</td>
</tr>
<tr>
<td height="40" colspan="2" class="fontsize14"><div align="center">
<input name="Submit" type="submit" class="inputbox" value=" 發送信息 ">
<input name="Submit3" type="reset" class="inputbox" value=" 重填信息 ">
</div></td>
</tr>
</table>
</td></form>
</tr>
</table>
<table width="600" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="fontsize10"> </td>
</tr>
</table></td>
</tr>
</table>
<table width="760" border="0" cellpadding="0" cellspacing="0" class="tablelr">
<tr>
<td class="fontsize04"> </td>
</tr>
</table>
<table width="760" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><!--#include file="bottom.asp" --></td>
</tr>
</table>
</div>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -