msgmanage.asp

同学录的设计

<!--#include file=../../INC/txlconst.asp-->
<!--#include file=../../INC/txlfun.asp-->

<%
Dim const_txl_HomeUrl,sql,i
const_txl_HomeUrl = "../../"
%>
<!--#include file=../checkadmin.asp-->
<%
OpenDatabase
txl_SiteHead const_txlname&"- 删除用户"
call online
IF Request.QueryString("action")="savemsgsend" Then
	Call savemsgsend
Else
	call main
End If
CloseDatabase
SiteBottom
sub main
dim login_username
login_username="管理员"
%>
<script language="JavaScript">
function check_form_jing_walk(jing_walk_frm){
	if(jing_walk_frm.frm_receiver.value==""){
		alert("必须填写收信人");
		jing_walk_frm.frm_receiver.focus();
		return false
	}
	if (jing_walk_frm.frm_title.value==""){
		alert("必须填写信息标题");
		jing_walk_frm.frm_title.focus();
		return false
	}
	if (jing_walk_frm.frm_content.value==""){
		alert("必须填写信息内容");
		jing_walk_frm.frm_content.focus();
		return false
	}
	if (jing_walk_frm.frm_content.value.length>800){
		alert("字数超过限制！当前字数为"+jing_walk_frm.frm_content.value.length);
		jing_walk_frm.frm_content.focus();
		return false
	}
return true
}
</script>
<form action="?action=savemsgsend" method="post" name="form_jing_walk" id="form_jing_walk" onSubmit="return check_form_jing_walk(this)">
  <table width="720" border="0" align="center" cellpadding="8" cellspacing="1" bgcolor="#CCCCCC">
    <tr> 
      <td colspan="2" class="title">==发短信==</td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="120" class="tar">发送者</td>
      <td><%=login_username%> </td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td class="tar">*接收人</td>
      <td><input name="frm_receiver" type="text" id="frm_receiver2" size="20" maxlength="50" value="<%=Request.QueryString("towho")%>"> 
        &nbsp; <select name="select" onChange="document.form_jing_walk.frm_receiver.value=this.value">
          <option selected value="">==选择接收人==</option>
		  <option  value="[all]">所有注册用户</option>
		  <option  value="[user1]">所有班级好友</option>
		  <option  value="[user2]">所有准班级成员</option>
		  <option  value="[user3]">所有班级用户</option>
		  <option  value="[user4]">所有班级嘉宾</option>
          <%Call showallreceiver%>
        </select> </td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td class="tar">*信息标题</td>
      <td><input name="frm_title" type="text" id="frm_title" size="30" maxlength="50"></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td class="tar">内容(备注)<br>
        <font color="gray">(HTML 不支持<br>
        UBB 不支持</font> <br> <font color="gray">字数小于800)</font> </td>
      <td><textarea name="frm_content" cols="80" rows="6" id="frm_content"></textarea></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td colspan="2" align="center"> <input type="submit" name="Submit" value="提　交">&nbsp;&nbsp;<input type="reset" name="Submit2" value="重　置">
&nbsp;&nbsp; </td>
    </tr>
  </table>
</form>
<%
End Sub
%><%Sub showallreceiver
	dim rs
	set rs=conn.execute ("select studentid,sname from ec order by studentid asc")
	while not rs.eof
		Response.Write("<option value='"&rs(0)&"'>"&rs(1)&"</option>"&Vbcrlf)
		rs.movenext
	wend
	rs.close
	set rs=nothing
End Sub

Sub savemsgsend
	dim title,towho,content,sql,tmpstr,login_username
	login_username="管理员"
	if outsitesubmit then
		printerror "发送短信息失败","<li>请不要外部提交数据！</li>","97%"
		exit sub
	end if
	towho=Replace(Request.Form("frm_receiver"),"'","''")
	Select Case towho
		Case "[all]"
			call sendmsgtoall(0)
			exit sub
		case "[user1]"
			call sendmsgtoall(1)
			exit sub
		case "[user2]"
			call sendmsgtoall(2)
			exit sub
		case "[user3]"
			call sendmsgtoall(3)
			exit sub
		case "[user4]"
			call sendmsgtoall(4)
			exit sub
	End Select
	if getmasterusername(towho)=""	Then
		Call printerror("发送短信息失败","<li>不存在<font color='red'>"&towho&"</font>的用户</li><li>回<a href='?'>我的信箱</a></li>","97%")
		Exit Sub
	End If
	title=Replace(Request.Form("frm_title"),"'","''")
	content=Replace(Request.Form("frm_content"),"'","''")
	title=HtmlEncode_walk(title)
	content=HtmlEncode_walk(content)
	If content="" or title="" Then
		printerror "发送短信息失败","<li>请输入标题和内容！</li><li>回<a href='?'>短信管理</a></li>","97%"
		exit sub
	End If
	sql="insert into permsg(username,towho,title,content,adddate,isread)values('"
	sql=sql&login_username&"','"&towho&"','"&title&"','"&content&"','"&now()&"',0)"
	conn.execute sql
	tmpstr="<li>发送给"&towho&"的信息已成功送出!</li>"
	tmpstr=tmpstr&"<li>回<a href='?'>短信管理</a></li>"
	Call printsuc("发送短信息成功",tmpstr,"97%")
End Sub
Sub sendmsgtoall(sendtype)
	dim rs,sql,towho,login_username,tmpstr
	login_username="管理员"
	select case sendtype
		case 0:sql="1=1"
		case 1:sql="usertype=1"
		case 2:sql="usertype=2"
		case 3:sql="usertype=3"
		case 4:sql="usertype=4"
	end select
	dim title,content
	title=Replace(Request.Form("frm_title"),"'","''")
	content=Replace(Request.Form("frm_content"),"'","''")
	title=HtmlEncode_walk(title)
	content=HtmlEncode_walk(content)
	If content="" or title="" Then
		printerror "发送短信息失败","<li>请输入标题和内容！</li><li>回<a href='?'>短信管理</a></li>","97%"
		exit sub
	End If
	sql="select studentid from ec where "&sql
	Response.Write(sql)
	set rs=Server.CreateObject("Adodb.Recordset")
	rs.open sql,conn
	while not rs.eof 
		towho=rs(0)
		sql="insert into permsg(username,towho,title,content,adddate,isread)values('"
		sql=sql&login_username&"','"&towho&"','"&title&"','"&content&"','"&now()&"',0)"
		call  connexecute (sql)
		rs.movenext
	wend
	tmpstr="<li>短信群发已经成功!</li>"
	tmpstr=tmpstr&"<li>回<a href='?'>短信管理</a></li>"
	Call printsuc("发送短信息成功",tmpstr,"97%")
End SUb
Function connexecute(sql)
	conn.execute (sql)
End Function
%>