mymessage.asp

闻名一时的bbsxp超快论坛系统现在放出最新版2008版本给希望装论坛的朋友借鉴安装调试

<!-- #include file="Setup.asp" --><%

RecipientUserName=HTMLEncode(Request("RecipientUserName"))
UserName=HTMLEncode(Request("UserName"))
Subject=HTMLEncode(Request("Subject"))
Body=HTMLEncode(Request("Body"))
box=HTMLEncode(Request("box"))
MessageID=RequestInt("MessageID")
ForumID=RequestInt("ForumID")

MaxPrivateMessageSize=SiteConfig("MaxPrivateMessageSize")

if Request("menu")="Post" then
	if CookieUserName=empty then AlertForModal("您还未登录论坛")

	if MessageID > 0 then
		Rs.open "Select top 1 * from ["&TablePrefix&"PrivateMessages] where MessageID="&MessageID&"",conn,1
		if rs.eof then AlertForModal("引用/回复的短消息不存在")
		Subject=Rs("Subject")
		Body=replace(Rs("Body"),"<br>",vbcrlf)

		if RecipientUserName<>empty then	'回复
			Subject="RE: "&Subject
			Body=""
		else					'转发
			Body=vbcrlf&vbcrlf&vbcrlf&vbcrlf&"------------------------------------"&vbcrlf&"日期: "&Rs("CreateTime")&vbcrlf&"发件人: "&Rs("SenderUserName")&vbcrlf&"收件人: "&Rs("RecipientUserName")&vbcrlf&"主题: "&Subject&vbcrlf&vbcrlf&Body&""
			Subject="FW: "&Subject
		end if
		Rs.close
	end if
Response.clear
%>
<title>发送讯息</title>
<style type="text/css">body{FONT-SIZE:9pt;}</style>
<form name="form" action="MyMessage.asp" method="POST" onsubmit="return CheckMessage()">
<input type="hidden" name="menu" value="addPost" />
<input type="hidden" name="ForumID" value="<%=ForumID%>" />
发件人：<input type="text" name="SendUserName" value="<%=CookieUserName%>" readonly="readonly" /><br />
收件人：<input id="RecipientUserName" name="RecipientUserName" type="text" value="<%=RecipientUserName%>" />

<%
if ForumID > 0 then
	if RequestCookies("LastReportTime")<>"" then
		ReportInterval=SiteConfig("PostInterval")*3
		StopPostTime=int(DateDiff("s",RequestCookies("LastReportTime"),Now()))
		if StopPostTime < ReportInterval then AlertForModal("论坛限制一个人问题帖子两次报告间隔必须大于 "&ReportInterval&" 秒！您必须再等待 "&ReportInterval-StopPostTime&" 秒！")
	end if
%>
<select onchange="Javascript:document.getElementById('RecipientUserName').value=this.value">
<%
	ModeratedList=Execute("Select Moderated from ["&TablePrefix&"Forums] where ForumID="&ForumID&"")(0)
	if ModeratedList<>"" then
		Response.Write("<option value=''>版主列表</option>")
		Moderated=split(ModeratedList,"|")
		for i=0 to Ubound(Moderated)
			Response.Write("<option value="&Moderated(i)&">"&Moderated(i)&"</option>")
		next
	else
		Response.Write("<option value=''>管理员列表</option>")
		ModeratedList=(0)
		Set Rs=Execute("Select UserName from ["&TablePrefix&"Users] where (UserRoleID=1 or UserRoleID=2) and UserAccountStatus=1")
		do while not Rs.eof
			Response.Write("<option value="&Rs("UserName")&">"&Rs("UserName")&"</option>")
			Rs.movenext
		loop
	end if
%>
</select>
<%
end if
%><br />
主　题：<input size="60" name="Subject" value="<%=Subject%>" /><br />
<textarea name="Body" style="width:100%;height:200px"><%=Body%></textarea><br />


<input type="checkbox" name="IsSaveOutbox" id="IsSaveOutbox" value="1" /><label for=IsSaveOutbox>保存到已发送</label>

<div style="float:right"><input type="submit" value="发送讯息" />　</div>
</form>

<script language="JavaScript" type="text/javascript">
function CheckMessage(){
	var FormObject = document.form;
	if (FormObject.elements["RecipientUserName"].value == "")
	{
		alert("请输入收件人名字！");
		FormObject.elements["RecipientUserName"].focus()
		return false;
	}
	if ( FormObject.elements["Subject"].value.length < 2)
	{
		alert("请输入主题不能少于2个字节！");
		FormObject.elements["Subject"].focus()
		return false;
	}
	if (FormObject.elements["Body"].value.length < 2)
	{
		alert("请输入内容不能少于2个字节！");
		FormObject.elements["Body"].focus()
		return false;
	}
	if (FormObject.elements["RecipientUserName"].value == FormObject.elements["SendUserName"].value)
	{
		alert("不能自己给自己发送讯息！");
		FormObject.elements["RecipientUserName"].focus()
		return false;
	}
	return true;
}
</script>
<%


elseif Request("menu")="addPost" then
	if CookieUserName=empty then AlertForModal("您还未登录论坛")

	IsSaveOutbox=RequestInt("IsSaveOutbox")
	IsSenderDelete=0
	if IsSaveOutbox=0 then IsSenderDelete=1
	if Len(Subject)<2 then Alert("标题不能小于 2 字符")
	if Len(Body)<2 then Alert("内容不能小于 2 字符")
	if RecipientUserName="" or Lcase(RecipientUserName)=Lcase(CookieUserName) then Alert("请输入接收的对象且不能是自己")
	if Execute("Select UserID From ["&TablePrefix&"Users] where UserName='"&RecipientUserName&"'").eof Then Alert("系统不存在"&RecipientUserName&"的资料")
	
	if IsSaveOutbox=1 and Execute("Select count(MessageID) From ["&TablePrefix&"PrivateMessages] where RecipientUserName='"&CookieUserName&"' and IsRecipientDelete=0 or SenderUserName='"&CookieUserName&"' and IsSenderDelete=0")(0) > MaxPrivateMessageSize Then
		AddApplication "Message_"&CookieUserName,"【系统讯息】您的短讯文件夹空间已满，请整理文件夹，否则您将不能保存任何短讯！"
		Alert("您的短信箱已满不能保存短讯！本次发送失败！")
	end if

	if Execute("Select count(MessageID) From ["&TablePrefix&"PrivateMessages] where RecipientUserName='"&RecipientUserName&"' and IsRecipientDelete=0 or SenderUserName='"&RecipientUserName&"' and IsSenderDelete=0")(0)>MaxPrivateMessageSize Then
		AddApplication "Message_"&RecipientUserName,"【系统讯息】您的短讯文件夹空间已满，请整理文件夹，否则您将收不到任何短讯！"
		Alert("用户"&RecipientUserName&"的短信箱已满！本次发送失败！")
	end if
	
	sql="insert into ["&TablePrefix&"PrivateMessages](SenderUserName,RecipientUserName,Subject,Body,IsSenderDelete) values ('"&CookieUserName&"','"&RecipientUserName&"','"&Subject&"','"&Body&"',"&IsSenderDelete&")"
	Execute(sql)
	Execute("update ["&TablePrefix&"Users] Set NewMessage=NewMessage+1 where UserName='"&RecipientUserName&"'")
	if ForumID>0 then ResponseCookies "LastReportTime",""&now()&"","9999"
%>
<script language="JavaScript" type="text/javascript">parent.BBSXP_Modal.Close();</script>
<%


else
	if CookieUserName=empty then error("您还未<a href=""javascript:BBSXP_Modal.Open('Login.asp',380,170);"">登录</a>论坛")
	HtmlTop
	RecipientCount=Execute("Select count(messageID) from ["&TablePrefix&"PrivateMessages] where RecipientUserName='"&CookieUserName&"' and IsRecipientDelete=0 or SenderUserName='"&CookieUserName&"' and IsSenderDelete=0")(0)

UsedMessageSize=RecipientCount/MaxPrivateMessageSize*100

%>
<div class="CommonBreadCrumbArea"><%=ClubTree%> → 短信服务</div>
<table cellspacing="1" cellpadding="5" width="100%" class="CommonListArea">
	<tr class="CommonListTitle">
		<td align="center"><a href="EditProfile.asp">资料修改</a></td>
		<td align="center"><a href="EditProfile.asp?menu=pass">密码修改</a></td>
		<td align="center"><a href="MyUpFiles.asp">上传管理</a></td>
		<td align="center"><a href="MyFavorites.asp">收 藏 夹</a></td>
		<td align="center"><a href="MyMessage.asp">短信服务</a></td>
	</tr>
</table>
<br />
<table border="0" width="100%" id="table14" cellspacing="0" cellpadding="0">
	<tr>
		<td width="150" valign="top">
		<table width="100%" cellspacing="1" cellpadding="5" border="0" class="CommonListArea">
			<tr class="CommonListTitle">
				<td><b>文件夹</b></td>
			</tr>
			<tr class="CommonListCell">
				<td><img src="images/i_inbox.gif" align="absmiddle" />
				<a href="?menu=Inbox">收件箱</a>[<b><%=Execute("Select count(messageID) from ["&TablePrefix&"PrivateMessages] where RecipientUserName='"&CookieUserName&"' and IsRecipientDelete=0")(0)%></b>]</td>
			</tr>
			<tr class="CommonListCell">
				<td><img src="images/i_sent.gif" align="absmiddle" />
				<a href="?menu=Outbox">已发送</a>[<b><%=Execute("Select count(messageID) from ["&TablePrefix&"PrivateMessages] where SenderUserName='"&CookieUserName&"' and IsSenderDelete=0")(0)%></b>]</td>
			</tr>
		</table>
		<br />
		<table cellspacing="1" cellpadding="1" width="100%">