outbox.asp

电子商务网络购物系统

<% Option Explicit %>
<!-- #include file="includes/header.asp" -->
<%
Response.Buffer = True

Dim rsPmMessage
Dim intRecordPositionPageNum
Dim intTotalNumOfPages
Dim intRecordLoopCounter
Dim intTopicPageLoopCounter
Dim intNumOfPMs
Dim intForumID

intNumOfPMs = 0
If blnPrivateMessages = False Then 
	Set rsConn = Nothing
	adoCon.Close
	Set adoCon = Nothing
	Response.Redirect("index.asp")
End If

If intGroupID = 2 OR blnActiveMember = False Then 
	Set rsConn = Nothing
	adoCon.Close
	Set adoCon = Nothing
	Response.Redirect("nopermission.asp")
End If

If Request.QueryString("pn") = 0 Then
	intRecordPositionPageNum = 1
Else
	intRecordPositionPageNum = CInt(Request.QueryString("pn"))
End If	

Set rsPmMessage = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT timesmess.*, timesuser.Username "
strSQL = strSQL & "FROM timesuser INNER JOIN timesmess ON timesuser.userid = timesmess.userid "
strSQL = strSQL & "WHERE timesmess.bbsid=" & lngLoggedInUserID & " "
strSQL = strSQL & "ORDER BY timesmess.messdtm DESC;"
rsPmMessage.CursorType = 1
rsPmMessage.Open strSQL, adoCon
rsPmMessage.PageSize = 10
If NOT rsPmMessage.EOF Then rsPmMessage.AbsolutePage = intRecordPositionPageNum
If rsPmMessage.EOF AND intRecordPositionPageNum > 1 Then Response.Redirect "outbox.asp?pn=1"
%>
<title>短信：发件夹</title>

  <table width="96%" border="0" cellspacing="0" cellpadding="3" align="center">
 <tr> 
  <td align="left" width="71%" class="bold"><img src="images/open.gif" border="0" align="absmiddle">&nbsp;<a href="index.asp" target="_self" class="boldLink"><% = strMainForumName %></a><% = strNavSpacer %><a href="index.asp" target="_self" class="boldLink">发件夹</a><br /></td>
  </tr>
</table>

<table width="96%" border="0" cellspacing="0" cellpadding="4" align="center">
 <tr>   <td width="60%"><span class="lgText"><img src="images/subject.gif" alt="你的位置" align="absmiddle"> 短信: 发件夹</span></td>
  <td align="right" width="40%"><a href="inbox.asp" target="_self"><img src="images/inbox.gif" alt="短信: 收件夹" border="0"></a><a href="outbox.asp" target="_self"><img src="images/outbox.gif" alt="短信: 发件夹" border="0"></a><a href="friendlist.asp" target="_self"><img src="images/friends.gif" alt="通讯录" border="0"></a><a href="newmess.asp" target="_self"><img src="images/newmess.gif" alt="写新短信" border="0"></a></td>
 </tr>
</table>
<table width="96%" border="0" cellspacing="1" cellpadding="1" align="center" bgcolor="<% = strTableBgColour %>">
    <tr height="25" align="center" class="tHeading">
     <td width="5%" background="<% = strTableTitleBgImage %>">阅读</td>
     <td width="62%" background="<% = strTableTitleBgImage %>">短信标题</td>
     <td width="12%" background="<% = strTableTitleBgImage %>">收件人</td>
     <td width="18%" background="<% = strTableTitleBgImage %>">发送时间</td>
    </tr><%
If rsPmMessage.EOF Then %>
<td bgcolor="#FFFFFF" colspan="5" class="text" height="25">您的发件夹中没有新短信<input type="hidden" name="chkDelete" value="-1"></td>
<%
Else 
	intNumOfPMs = rsPmMessage.RecordCount
	intTotalNumOfPages = rsPmMessage.PageCount
	For intRecordLoopCounter = 1 to 10 
		If rsPmMessage.EOF Then Exit For
	%>
    <tr height="25" class="text" bgcolor="#FFFFFF"> 
     <td width="40" align="center"><%   
     		If CBool(rsPmMessage("readed")) = False Then %>
			<img src="images/unreadmess.gif" alt="未读短信">
			<% 		Else %>
			<img src="images/readmess.gif" alt="已读短信">
			<% End If  %>
     </td>
     <td width="50%" ><a href="dismess.asp?ID=<%= rsPmMessage("messid") %>&M=OB" target="_self"><%= rsPmMessage("messtitle") %></a></td>
     <td width="18%" align="center" ><a href="JavaScript:openWin('puprofile.asp?pf=<% = rsPmMessage("userid") %>','profile','toolbar=0,location=0,status=0,menubar=0,scrollbars=1,resizable=1,width=590,height=425')"><% = rsPmMessage("Username") %></a></td>
     <td width="24%" align="center" nowrap="nowrap"><% = DateFormat(rsPmMessage("messdtm"), saryDateTimeData) & "  " & TimeFormat(rsPmMessage("messdtm"), saryDateTimeData) %></td>
    </tr><%
		rsPmMessage.MoveNext
	Next
End If
%>
   
</table>
    <table width="96%" border="0" cellspacing="0" cellpadding="2" align="center">
     <tr>
      <td class="text">发件夹中的短信</td>
     </tr>
    </table>
    <table width="96%" border="0" cellspacing="0" cellpadding="2" align="center">
     <tr> 
      <td class="text"><img src="images/unreadmess.gif" alt="未读短信"> 未读短信&nbsp;&nbsp;<img src="images/readmess.gif" alt="已读短信"> 已读短信</td>
      <%
If intTotalNumOfPages > 1 Then   
	Response.Write vbCrLf & "		<td align=""right""><span class=""text"">&nbsp;第" 
	Response.Write vbCrLf & "		 <select onChange=""ForumJump(this)"" name=""SelectTopicPage"">"
	For intTopicPageLoopCounter = 1 to intTotalNumOfPages  
		Response.Write vbCrLf & "		  <option value=""outbox.asp?pn=" & intTopicPageLoopCounter & """"
		If intTopicPageLoopCounter = intRecordPositionPageNum Then
			Response.Write " selected"
		End If
		Response.Write ">" & intTopicPageLoopCounter & "</option>"
	Next
	Response.Write vbCrLf & "		</select>  " & intTotalNumOfPages & "&nbsp;页</span></td>"
End If
%>


   <form>
   <td align="right"><!-- #include file="includes/forumjump.asp" --></td>
   </form></tr>
    </table>



 <%
rsPmMessage.Close
Set rsPmMessage = Nothing
Set rsConn = Nothing
adoCon.Close
Set adoCon = Nothing
%>
<br /><br />
 <!-- #include file="includes/footer.asp" -->