mymessage.asp

论坛建站的源代码

			<tr>
				<td>
				<div class="percent">
					<div style="width:<%=UsedMessageSize%>%">
					</div>
				</div>
				<%=UsedMessageSize%>% （<%=RecipientCount%>/<%=MaxPrivateMessageSize%>）</td>
			</tr>
		</table>
		</td>
		<td width="1%"></td>
		<td valign="top"><%
select case Request("menu")

	case "Read"
		ReadMessage

	case "Delete"
		for each ho in Request("MessageID")
			ho=int(ho)
			rs.open "Select * from ["&TablePrefix&"PrivateMessages] where ( RecipientUserName='"&CookieUserName&"' or SenderUserName='"&CookieUserName&"' ) and MessageID="&ho&"",Conn,1,3
				if LCASE(rs("RecipientUserName"))=LCASE(CookieUserName) then rs("IsRecipientDelete")=1
				if LCASE(rs("SenderUserName"))=LCASE(CookieUserName) then rs("IsSenderDelete")=1
			rs.update
			rs.close
		next
		Execute("Delete from ["&TablePrefix&"PrivateMessages] where IsRecipientDelete=1 and IsSenderDelete=1")

		response.redirect("?")

	case else
		InOutbox
end select
%> </td>
	</tr>
</table>
<br />
<%
Sub InOutbox
MessageMenu=Request("Menu")
if MessageMenu=empty then MessageMenu="Inbox"

	if MessageMenu="Inbox" then
		tdstr="<td align=center width='15%'>发件人</td>"
		sql="Select * from ["&TablePrefix&"PrivateMessages] where RecipientUserName='"&CookieUserName&"' and IsRecipientDelete=0 order by MessageID Desc"
	else
		tdstr="<td align=center width='15%'>收件人</td>"
		sql="Select * from ["&TablePrefix&"PrivateMessages] where SenderUserName='"&CookieUserName&"' and IsSenderDelete=0 order by MessageID Desc"
	end if
%>
<form name="showMessage" action="?Menu=Delete" method="post">
	<table cellspacing="1" cellpadding="3" width="100%" class="CommonListArea">
		<tr class="CommonListTitle">
			<td colspan="5">
			<a href="javascript:BBSXP_Modal.Open('MyMessage.asp?Menu=Post',600,350);">
			<img src="images/i_new_msg.gif" border="0" align="absmiddle" />新建</a>　<a onclick="if(window.confirm('您确定执行本次操作?')){document.showMessage.submit();}"><img src="images/i_delete.gif" border="0" align="absmiddle" />删除</a></td>
		</tr>
		<tr class="CommonListHeader">
			<td align="center" width="6%">
			<input type="checkbox" name="chkall" onclick="CheckAll(this.form)" value="ON" /></td>
			<%=tdstr%>
			<td align="center" width="46%">主题</td>
			<td align="center" width="22%">日期</td>
			<td align="center" width="10%">大小</td>
		</tr>
		<%
	Rs.Open sql,Conn,1
	
	PageSetup=20 '设定每页的显示数量
	Rs.Pagesize=PageSetup
	TotalPage=Rs.Pagecount  '总页数
	PageCount = RequestInt("PageIndex")
	if PageCount <1 then PageCount = 1
	if PageCount > TotalPage then PageCount = TotalPage
	if TotalPage>0 then Rs.absolutePage=PageCount '跳转到指定页数 
	i=0
	Do While Not Rs.EOF and i<PageSetup
		i=i+1
%>
		<tr class="CommonListCell" id="PrivateMessage<%=Rs("MessageID")%>" <%if rs("isread")=0 then response.write" style='font-weight:bold'"%>>
			<td valign="center" align="center" width="5%">
			<input type="checkbox" value="<%=Rs("MessageID")%>" name="MessageID" onclick="CheckSelected(this.form,this.checked,'PrivateMessage<%=Rs("MessageID")%>')" /></td>
			<%if MessageMenu="Inbox" then%>
			<td align="center">
			<a href="Profile.asp?UserName=<%=Rs("SenderUserName")%>" target="_blank">
			<%=Rs("SenderUserName")%></a></td>
			<%else%>
			<td align="center">
			<a href="Profile.asp?UserName=<%=Rs("RecipientUserName")%>" target="_blank">
			<%=Rs("RecipientUserName")%></a></td>
			<%end if%>
			<td width="10%">
			<a href="?Menu=Read&MessageID=<%=Rs("MessageID")%>&box=<%=MessageMenu%>">
			<%=Rs("Subject")%></a></td>
			<td align="center" width="15%"><%=Rs("CreateTime")%></td>
			<td align="center" width="10%"><%=CheckSize(Len(""&Rs("Body")&""))%></td>
		</tr>
		<%
		Rs.MoveNext
	loop
	Rs.Close
%>
	</table>
	<table cellspacing="1" cellpadding="1" width="100%">
		<tr>
			<td colspan="5"><%ShowPage()%></td>
		</tr>
	</table>
</form>
<%
End Sub

Sub ReadMessage

if box="Inbox" then
	FieldName="RecipientUserName"
	DeleteFieldName="IsRecipientDelete"
else
	FieldName="SenderUserName"
	DeleteFieldName="IsSenderDelete"
end if

if Request("pageIndex")="previous" then
	SQL="Select top 1 * from ["&TablePrefix&"PrivateMessages] where "&FieldName&"='"&CookieUserName&"' and "&DeleteFieldName&"=0 and MessageID>"&MessageID&" order by messageID"

elseif Request("pageIndex")="next" then
	SQL="Select top 1 * from ["&TablePrefix&"PrivateMessages] where "&FieldName&"='"&CookieUserName&"' and "&DeleteFieldName&"=0 and MessageID<"&MessageID&" order by messageID desc"

else
	SQL="Select top 1 * from ["&TablePrefix&"PrivateMessages] where (RecipientUserName='"&CookieUserName&"' or SenderUserName='"&CookieUserName&"') and MessageID="&MessageID&""
end if


Rs.Open SQL,Conn,1,3

if Http_Referer="" then Http_Referer="Default.asp"
if Rs.eof then response.redirect Http_Referer

%>
<table cellspacing="1" cellpadding="5" width="100%" class="CommonListArea">
	<tr class="CommonListTitle">
		<td>
		<div style="float:left">
			<a href="javascript:BBSXP_Modal.Open('MyMessage.asp?menu=Post', 600, 350);">
			<img src="images/i_new_msg.gif" border="0" align="absmiddle" />新建</a>　<a href="?menu=Delete&MessageID=<%=Rs("MessageID")%>" onclick="return window.confirm('您确定执行本次操作?');"><img src="images/i_delete.gif" border="0" align="absmiddle" />删除</a><%if Rs("SenderUserName")<>CookieUserName then%>　<img src="images/i_reply.gif" border="0" align="absmiddle" /><a href="javascript:BBSXP_Modal.Open('MyMessage.asp?menu=Post&MessageID=<%=Rs("MessageID")%>&RecipientUserName=<%=Rs("SenderUserName")%>',600,350);">回复</a><%end if%>　<a href="javascript:BBSXP_Modal.Open('MyMessage.asp?menu=Post&MessageID=<%=Rs("MessageID")%>',600,350);"><img src="images/i_forward.gif" border="0" align="absmiddle" />转发</a></div>
		<div style="float:right">
			<a href="?menu=Read&MessageID=<%=Rs("messageID")%>&pageIndex=previous&box=<%=box%>" title="上一条">
			<img src="images/i_previous.gif" border="0" align="absmiddle" /></a>
			<a href="?menu=Read&MessageID=<%=Rs("messageID")%>&pageIndex=next&box=<%=box%>" title="下一条">
			<img src="images/i_next.gif" border="0" align="absmiddle" /></a></div>
		</td>
	</tr>
	<tr class="CommonListCell">
		<td width="10%" style="line-height:150%">
		<div style="float:left">
			发件人：<a target="_blank" href="Profile.asp?UserName=<%=Rs("SenderUserName")%>"><%=Rs("SenderUserName")%></a><%if Rs("SenderUserName")<>CookieUserName then%>　<a href="javascript:Ajax_CallBack(false,false,'MyFavorites.asp?menu=FavoriteFriend&FriendUserName=<%=Rs("SenderUserName")%>',true);">+添加好友</a><%end if%></div>
		<div style="float:right">
			<%=Rs("CreateTime")%></div>
		<br />
		收件人：<a target="_blank" href="Profile.asp?UserName=<%=Rs("RecipientUserName")%>"><%=Rs("RecipientUserName")%></a><%if Rs("RecipientUserName")<>CookieUserName then%>　<a href="javascript:Ajax_CallBack(false,false,'MyFavorites.asp?menu=FavoriteFriend&FriendUserName=<%=Rs("RecipientUserName")%>',true);">+添加好友</a><%end if%>
		<br />
		主　题：<%=Rs("Subject")%></td>
	</tr>
	<tr class="CommonListCell">
		<td><%=Rs("Body")%></td>
	</tr>
</table>
<%
	if LCASE(Rs("RecipientUserName"))=LCASE(CookieUserName) and Rs("IsRead")=0 then Rs("IsRead")=1
	Rs.update
	Rs.close


End Sub

HtmlBottom

end if
%>