📄 send.asp
字号:
<%
if session("user_type")<>"S" then
response.redirect "../../../index.asp"
end if
%>
<!--#INCLUDE FILE="../../../system/odbc_connection.asp"-->
<HTML>
<head>
<title>我的留言板</title>
<link rel="stylesheet" href="../../../system/all.css">
<script language="JAVASCRIPT">
<!--
function Trim(str){
while (str !="" && str.charAt(0) == " ") str = str.substring(1,str.length);
while (str !="" && str.charAt(str.length-1) == " ") str = str.substring(0,str.length-1);
return str;
}
function check_Null(){
if (Trim(document.form1.to_user_1.value)==""){
alert("收件人不能为空!");
return false;
}
if (Trim(document.form1.title.value)==""){
alert("主题不能为空!");
return false;
}
return true;
}
function touser2_OnChange(){
document.form1.to_user_1.value=document.form1.to_user_2.value;
}
function touser1_OnChange(){
document.form1.to_user_2.value="";
}
// -->
</script>
</head>
<body>
<%
dim user_id,lesson_id
lesson_id=session("lesson_id")
user_id=session("user_id")
%>
<h4 >  发件箱</h4>
<center>
<table border='0' width='95%' cellspacing='0' bordercolorlight='#000000' bordercolordark='#FFFFFF' cellpadding='0' height="114">
<tr bgcolor=#FFFFCC>
<td>
<TABLE border="0" width=100%>
<form METHOD="POST" ACTION="add.asp?theuser_name='<%=user_id%>&theuser_name2=s" name=form1 onsubmit="javascript: return check_Null();">
<tr><td>收件人：</td>
<td>
<input name="to_user_1" type=text size="12" value="本课程所有人" onChange="touser1_OnChange();">
(下拉选择)<select name="to_user_2" onChange="touser2_OnChange();">
<%
response.write "<option></option>"
response.write "<option value='本课程所有人'>本课程所有人</option>"
dim sql,rs
'列出所有老师
sql="select teacher.user_id,teacher.user_name from teacher"
set rs=db.execute(sql)
do while not rs.eof
Response.write "<option value=" &trim(rs("user_id"))&">" &trim(rs("user_name"))&"老师(" &trim(rs("user_id"))&")</option>"
rs.movenext
loop
'列出所有学生
sql="select student.user_id,student.user_name from user_lesson,student"
sql= sql + " where user_lesson.user_id =student.user_id"
sql= sql + " and user_lesson.lesson_id ='" & lesson_id & "'"
sql=sql + " and user_lesson.permit=1"
sql=sql + " order by student.user_id"
set rs=db.execute(sql)
do while not rs.eof
Response.write "<option value=" &trim(rs("user_id"))&">" &trim(rs("user_name"))&"(" &trim(rs("user_id"))&")</option>"
rs.movenext
loop
%>
</select>
</td></tr>
<tr><td>主 题：</td><td><input type="text" name="title" size="46">** </td></tr>
<tr><td>内 容：</td><td><Textarea name="body" Rows=4 Cols=45 WRAP=SOFT></TextArea></td></tr>
<tr><td>发信否：</td>
<td><input type="checkbox" name="email_open" value="1" >email
</td></tr> <tr><td></td><td><input TYPE="submit" VALUE=" 提交 " Size="20"></td></tr>
</form>
</table>
</td>
</tr>
</table>
<p>
</center>
<%
SQL="SELECT guest_id,title,body,writer_id,submit_date,reader_id FROM guest"
SQL=SQL + " WHERE writer_id = '" & user_id & "'"
SQL=SQL + " order by submit_date desc,guest_id desc"
SET RS=db.EXECUTE(SQL)
if rs.bof or rs.eof then
else
%>
<CENTER>
<p>
<TABLE border="0" bordercolor="#8800FF" width="95%" cellspacing="2">
<caption align=left>已发送信件</caption>
<tr bgcolor=#CCFFFF>
<td width=7%>序号</td>
<TD width=53%>主题</TD>
<TD width=15%>收件人</TD>
<TD width=15%>时间</TD>
<td width=10%>管理</td>
</tr>
<%
dim i
i=0
DO WHILE NOT RS.EOF
i=i+1
%>
<TR bgcolor=#FFFFCC>
<td align=center><%=i%>
<TD><a href="particular.asp?thename=<%=rs("guest_id")%>&thename2=s"><%=RS("title")%></a></TD>
<TD>
<%
if RS("reader_id")=session("lesson_id") then
response.write "本课程所有人"
end if
%></TD>
<TD><%=RS("submit_date")%></TD>
<TD><a href="delete.asp?thename=<%=rs("guest_id")%>&thename2=s">删除</a></TD>
</TR>
<%
RS.MOVENEXT
LOOP
%>
</TABLE>
</CENTER>
<%end if %>
</body>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -