message.asp

一套开源WEB的网站管理系统

<!--#include file="config.asp"-->
<!--#include file="check.asp"-->
<!--#include file="../inc/ubbcode.asp"-->
<!--#include file="head.inc"-->
<%
Call InnerLocation("用户短信服务")

Dim Rs,SQL,i,Action
Dim smsincept,smscontent,smstopic,sid,sendername,Chatloglist

sid = Newasp.ChkNumeric(Request("sid"))

If CInt(GroupSetting(22)) = 0 Then
	ErrMsg = ErrMsg + "<li>对不起！您没有使用短信服务的权限，如有什么问题请联系管理员。</li>"
	Founderr = True
End If
If Trim(Request("touser")) <> "" Then
	sendername = Newasp.CheckBadstr(Request("touser"))
	smsincept =  Newasp.CheckBadstr(Request("touser"))
Else
	sendername = Newasp.CheckBadstr(Request("sender"))
End If
Chatloglist = ""
Action = LCase(Request("action"))
Select Case Trim(Action)
	Case "del"
		Call DelMessage
	Case "alldel"
		Call DelAllMessage
	Case "save"
		Call SaveMessage
	Case "read"
		Call ReadMessage
	Case "outread"
		Call ReadMessage
	Case "new"
		Call SendMessage
	Case "fw"
		Call SendMessage
	Case "删除收件箱"
		Call Delinbox
	Case "清空收件箱"
		Call DelAllinbox
	Case "删除发件箱"
		Call DelSendbox
	Case "清空发件箱"
		Call DelAllSendbox
	Case Else
		ErrMsg = ErrMsg + "<li>错误的系统参数~!</li>"
		Founderr = True
End Select
If Founderr = True Then
	Call Returnerr(ErrMsg)
End If

Sub SendMessage()
	Call UserMessage
	If Founderr = True Then Exit Sub
%>
<script language=JavaScript>
var _maxCount = '<%=CLng(GroupSetting(23))%>';
function DoTitle(addTitle) {  
 var revisedTitle;  
 var currentTitle = document.myform.incept.value;
 if(currentTitle=="") revisedTitle = addTitle; 
 else { 
  var arr = currentTitle.split(","); 
  for (var i=0; i < arr.length; i++) { 
   if( addTitle.indexOf(arr[i]) >=0 && arr[i].length==addTitle.length ) return; 
  } 
  revisedTitle = currentTitle+","+addTitle; 
 } 

 document.myform.incept.value=revisedTitle;  
 document.myform.incept.focus(); 
 return; 
} 

function doSubmit(){
	if (document.myform.incept.value==""){
		alert("收件人不能为空！");
		return false;
	}
	if (document.myform.topic.value==""){
		alert("短信标题不能为空！");
		return false;
	}
	<%If CInt(GroupSetting(2)) = 1 Then%>
	if (document.myform.codestr.value==""){
		alert("请填写验证码！");
		return false;
	}
	<%End If%>
	myform.content1.value = getHTML(); 
	MessageLength = Composition.document.body.innerHTML.length;
	if(MessageLength < 2){
		alert("短信内容不能小于2个字符！");
		return false;
	}
	if(MessageLength > _maxCount){
		alert("短信的内容不能超过"+_maxCount+"个字符！");
		return false;
	}
	document.myform.Submit1.disabled = true;
	document.myform.submit();
}
</script>

<table cellspacing=1 align=center cellpadding=3 border=0 class=Usertableborder>
	<form name=myform method=post action="message.asp">
	<input type="hidden" name="action" value="save">
	<tr>
		<th colspan=2>站内短消息</th>
	</tr>
<%
	Call MessageTop
%>
	<tr>
		<td class=Usertablerow1>收件人</td>
		<td class=Usertablerow1><input type=text name="incept" value="<%=smsincept%>" size=50>
		<select name=friend onchange="DoTitle(this.options[this.selectedIndex].value)">
		<option selected value="">选择</option>
		<%=Option_Friend%> 
		</select></td>
	</tr>
	<tr>
		<td class=Usertablerow1>标题</td>
		<td class=Usertablerow1><input type="text" name="topic" maxlength="70" size="70" value="<%=smstopic%>"></td>
	</tr>
<%
	If CInt(GroupSetting(2)) = 1 Then
%>
	<tr>
		<td class=Usertablerow1>验证码</td>
		<td class=Usertablerow1><input type="text" name="codestr" maxlength="4" size="4">&nbsp;<img src="../inc/getcode.asp"></td>
	</tr>
<%
	End If
%>
	<tr>
		<td class=Usertablerow1 noWrap>短信内容</td>
		<td class=Usertablerow1><textarea name='content1' id='content1' style='display:none'><%=Server.HTMLEncode(smscontent)%></textarea>
		<script Language=Javascript src="../editor/editor1.js"></script></td>
	</tr>
	<tr height=20>
		<td class=Usertablerow1 colspan=2><b>说明：</b>标题最多50个字符，内容最多<%=CLng(GroupSetting(23))%>个字符。</td>
	</tr>
	<tr align=center height=20>
		<td class=Usertablerow2 colspan=2><input type="button" name="Submit4" onclick="javascript:history.go(-1)" value="返回上一页" class=Button>&nbsp;
		<input type="reset" name="submit2" value=" 清除 " class=button>&nbsp;
<SCRIPT LANGUAGE="JavaScript">
<!--
var reaction='<%=Newasp.CheckStr(Request("reaction"))%>';
var action='new';
if (action=='new')
{
if (reaction=='chatlog')
{
document.write ('<input class=button type=button value="关闭聊天记录" name="chatlog" onclick="location.href=\'?action=new&sid=<%=Request("sid")%>&touser=<%=sendername%>\'">');
}
else{
document.write ('<input class=button type=button value="查看聊天记录" name="chatlog" onclick="location.href=\'?action=new&sid=<%=Request("sid")%>&touser=<%=sendername%>&reaction=chatlog\'">');
}
}
//-->
</SCRIPT>
		<input type="button" name="Submit1" value=" 发送 " onclick="doSubmit();" class=button></td>
	</tr>
<SCRIPT LANGUAGE="JavaScript">
<!--
var reaction='<%=Newasp.CheckStr(Request("reaction"))%>';
var chatloglist='<%=Chatloglist%>';
var myname='<%=MemberName%>';
var action='new';
if (action=='new')
{
if (reaction=='chatlog')
{
	document.write ('<tr>');
	document.write ('<th colspan=2>我与<%=sendername%>的聊天记录</th>');
	document.write ('</tr>');
	if (myname=='')
	{
		document.write ('<tr>');
		document.write ('<td class=Usertablerow1 colspan=2>自己跟自己的聊天记录没什么好看的：）</td>');
		document.write ('</tr>');
	}
	else{
		document.write (chatloglist);
	}
}
}
//-->
</SCRIPT>
	</form>
</table>
<%
End Sub

Sub MessageTop()
%>
	<tr align=center height=20>
		<td class=Usertablerow1 colspan=2><a href="message.asp?action=del&sid=<%=Request("sid")%>" onclick=showClick('您确定要删除此短信吗?')><img src="images/m_delete.gif" border=0 alt="删除消息"></a> &nbsp; 
		<a href="message.asp?action=new"><img src="images/m_write.gif" border=0 alt="发送消息"></a> &nbsp;
		<a href="message.asp?action=new&touser=<%=sendername%>&sid=<%=Request("sid")%>"><img src="images/replypm.gif" border=0 alt="回复消息"></a>&nbsp;
		<a href="message.asp?action=fw&sid=<%=Request("sid")%>"><img src="images/m_fw.gif" border=0 alt=转发消息></a></td>
	</tr>
<%
End Sub

Sub ReadMessage()
	If Founderr = True Then Exit Sub
	If Action = "outread" Then
		Set Rs = Newasp.Execute("SELECT * FROM NC_Message WHERE sender='"&MemberName&"' And delSend=0 And id="& CLng(sid))
	Else
		Set Rs = Newasp.Execute("SELECT * FROM NC_Message WHERE (incept='"&MemberName&"' Or flag=1) And id="& CLng(sid))
	End If
	If Rs.BOF And Rs.EOF Then
		ErrMsg = ErrMsg + "<li>错误的系统参数~！</li>"
		Founderr = True
		Set Rs = Nothing
		Exit Sub
	End If
	Dim smsnumber
	If Rs("isRead") = 0 And Action="read" Then
		smsnumber = newincept(Membername) - 1
		if smsnumber < 0 Then smsnumber = 0
		SQL = "UPDATE NC_User SET usermsg=" & smsnumber & " where username='"&Membername&"'"
		Newasp.Execute(SQL)
		if Rs("flag") = 0 Then
			SQL = "UPDATE NC_Message SET isRead=1 where id="& CLng(sid)
			Newasp.Execute(SQL)
		End If
	End If
%>
<table cellspacing=1 align=center cellpadding=3 bgcolor=#cccccc border=0 class=Usertableborder>
	<tr>
		<th>阅读短消息</th>
	</tr>
<%
	Call MessageTop
%>
	<tr height=20>
		<td class=Usertablerow2>　在<b><%=Rs("SendTime")%></b>，
<%
	If Action = "outread" Then
		Response.Write "您给<b>" & Server.HTMLEncode(Rs("incept")) & "</b>发送的消息！"
	Else
		Response.Write "<b>" & Server.HTMLEncode(Request("sender")) & "</b>给您发送的消息！"
	End If
%>
		</td>
	</tr>
	<tr>
		<td class=Usertablerow1><b>短信标题：</b><%=Rs("title")%><hr size=1><%=ubbcode(Rs("content"))%></td>
	</tr>
	<tr align=center height=20>
		<td class=Usertablerow2 colspan=2><input type="button" name="Submit4" onclick="javascript:history.go(-1)" value="返回上一页" class=Button>&nbsp;</td>
	</tr>
</table>
<%
	Set Rs = Nothing
End Sub
Sub UserMessage()
	If Founderr = True Then Exit Sub
	If Not IsNumeric(Request("sid")) And Trim(Request("sid")) <> "" Then
		ErrMsg = ErrMsg + "错误的系统参数!ID请输入整数"
		Founderr = True
		Exit Sub